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

(CASIOfx-4800p&fx-4850)J-SQX(竖曲线数据输入)“J-SQX”:{NHUVMQP}:Z[9]=N“SJD”:Z[10]=H“JDZ”:Z[11]=U“I1”:Z[12]=V“I2”:Z[13]=M“R”:Z[14]=Q“QD”:Z[15]=P“ZD”:“TOJ-JSMS”J-PQX(平曲线数据输入,自动切换到J-JSMS)A“JD”B“JDX”C“JDY”F“FJ”O“ZJ:Z-,Y+”RE“LS1”K“LS2”:E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷(24R)-E^4÷(2688RRR):Z[2]=E÷2-EEE÷(240RR):X=(EE-KK)÷(24R)÷sinAbsO:Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X▲Z[4]“T2”=(R+KK÷(24R)-K^4÷(2688RRR))tan(AbsO÷2)+K÷2-KKK÷(240RR)+X▲L=AbsOπR÷180+(E+K)÷2▲J=tan-1((R+Z[1])÷(Z[3]-Z[2])):X“E”=(R+Z[1])÷sinJ-R▲X=A-Z[3]:Y=X+E:E<1=>X“ZY”▲≠=>X“ZH”▲Y“HY”▲⊿Y“QZ”=X+(L-K-E)÷2+E▲Y=X+L-K:X=X+L:K<1=>X“YZ”▲≠=>Y“YH”▲X“HZ”▲⊿Prog“J-JSMS”J-JSMS(放样模式主程序)“1-ZS,2-FS,4-DMFY”Lb10:{Z}:Z“MS”≤1=>Goto1:≠=>Z“MS”≤4=>Goto2⊿⊿Lb11:{PDW}:PD“BZ”W“BJ”:Prog“JP”:X“X=”▲Y“Y=”▲Goto0⊿Lb12:{XYW}:XYW“BJ”:Prog“JF”:P“P=”▲D“BZ=”▲Z=3=>Prog“JS”:Prog“DMFY”⊿(运行竖曲线高程计算程序)Z=4=>Z[26]“H”=+(P-75360)*:Prog“DMFY”⊿(运行单面坡比高程计算,+360的高程,可以根据实际情况进行调整;,上坡输正值,下坡输负值)Goto0JS(竖曲线计算主程序)P<Z[14]=>Prog“J-SQX”⊿P>Z[15]=>Prog“J-SQX”⊿N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=HAbs(U-V)÷200:P<N=>I=U:M=N-G:M>P=>M=P⊿≠=>I=V:M=N+G:M<P=>M=P⊿⊿J=(P-M)2÷(2H):U-V>0=>J=-J⊿H=Z[10]+(P-N)×I÷100+JZ[26]“H”=HJP(平曲线正算子程序)FixmLb11:J=F:X=B-Z[3]cosF:Y=C-Z[3]sinF:G=EP≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto5≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷(REπ):O<0=>H=-H⊿H=H+W+F:Goto3≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto4:≠=>Goto2⊿⊿Lb12:X=B+Z[4]cos(F+O):Y=C+Z[4]sin(F+O):J=F+O+1