曲线(含直线)任意里程中边桩坐标正反算.doc

第页共NUMPAGES7页
曲线（含直线）任意里程中边桩坐标正反算
（CASIOfx-5800）
J-PQX(平曲线数据输入,自动切换到J-JSMS)
“JD”?A:“JDX”?B:“JDY”?C:“FJ”?N:“ZJ：Z-，Y+”?O:"R"?R:“LS1”?D:“LS2”?K：
DD÷(24R)-D^4÷(2688RRR)->Z[1]:D÷2-D^3÷(240RR)->Z[2]：(DD-KK)÷(24R)÷sin(Abs(O))->Z[37]：“T1=”:(R+Z[1])tan((AbsO÷2))+Z[2]-Z[37]->Z[3]▲
“T2=”:（(R+KK÷(24R))-K^4÷(2688RRR)）tan(Abs(O÷2))+K÷2-KKK÷(240RR)+Z[37]->Z[4]▲
"L=":Abs(O)πR÷180+(D+K)÷2->L▲
tan-1((R+Z[1])÷(Z[3]-Z[2]))->J：“E=”:(R+Z[1])÷sin(J)-R->Z[34]▲
A-Z[3]->Z[35]：X+E->Z[36]：
“ZH=”:A-Z[3]->Z[35]▲
“HY=”:Z[35]+D->Z[36]▲
“QZ=”:Z[36]+(L-K-D)÷2->Z[31]▲
Z[35]+L-K->Z[32]：
X+L->Z[31]:
“YH=”:Z[35]+L-K->Z[31]▲
“HZ=”:Z[35]+L->Z[32]▲
Prog“J-JSMS”
J-JSMS(放样模式主程序)
“1-ZS,2-FS,4-DMFY”
Lb10：“MS=”?Z:IfZ≤1:ThenGoto1
ElseifZ≤4:ThenGoto2
Lb11："P"?P:“BZ”?V:“BJ”?W：Prog“JP”：“X=”:Z[15]->X▲
“Y=”:Z[16]->Y▲
Goto0
Lb12：“X”?X:“Y”?Y：“BJ”?W:Prog“JF”
“P=”P->P▲
“BZ=”:V-2.42->V▲
“G1=”:1.225.353+（P-O）*1.5/1000->[58](高程计算公式）▲
“S=”?S
Prong“J”
Goto0
JP(平曲线正算子程序)
Fixm
Lb11：N->J：B-Z[3]cosN->Z[21]：C-Z[3]sinN->Z[22]
IfP≤A-Z[3]+D:ThenP-A+Z[3]->I：90II÷(RDπ)->H：O＜0=＞-H->H:H+W+N->H
Goto3
ElseIfP≤A-Z[3]+L-K:ThenP-(A-Z[3]+D)->I：Goto4
ElseGoto2
Lb12：B+Z[4]cos（J+O）->Z[21]：C+Z[4]sin（J+O）->Z[22]：J+O+180->J:
A-Z[3]+L-P->I：90II÷(RDπ)->H：O＞0=＞-H->H:H+J+W+180->H：Goto3
Lb13：I-I^5÷(40RRKK)->M：III÷(6KR)-I^7÷(336RRRKKK)->T：Goto5
Lb14：(D+2I)×90÷(πR)->H：RsinH+Z[2]->M：R(1-cosH)+Z[1]->T：O＜0=＞-H->H:N+W+H->H：Goto5
Lb15：IfP≤A-Z[3]+L-K:ThenO＜0=＞-T->T:Goto6
Else0>0=＞-T->T
Goto6
Lb16：Z[21]+McosJ-TsinJ+VcosH->Z[15]：Z[22]+MsinJ+TcosJ+VsinH->Z[16]
JF(平曲线反算子程序)
0->V:N-90->J
A+（Y-C)cosJ-(X-B)sinJ->P
Lb11:Prog"JP":H-180->Z[10]:(Y-Z[16])cos(Z[10])-(X-Z[15])sin(Z[10])->I:IfAbs(I)＜1*10-4:ThenGoto2
ElseP+I->P:Goto1
IfEnd
Lb12:(Y-Z[16])/sinH->V
J(超欠挖算子程序)
IfS>G-1.601:Then“YY=”:∫(2.022-(G+1.108-S)2)+3.3-∫(B2)▲
Else“YG=”:∫(13.912-B2)-(G+11.54-S▲
IfEnd
一、程序简介
1、本套程序共有2个主程序，5个子程序。包括了坐标正反算，竖曲线、隧道断面计算（超欠挖情况）等程序。
二、程序功能
根据不同需要，本程序共设置了6种计算模式J-JSMS：
1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=＞平面坐标。
2-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=＞里程、边距。
3-DMFY，隧道断面放样模式：适用于有竖曲线段隧道断面放样和超欠挖检查，