搜索
中国人民武装警察部队交通第一总队三支队CASIO4850全线坐标正反算程序主程序：ZHANGLIANGLbIØ：Deg:TWJM:C=2Ø+4Ø(T-1):T=Ø:N1.SR,2.JS:N=2=GotoA⊿MJZ-XX:OQD-ZH:UX-Ø:VY-Ø:GFWJ:LblB:{HRQP}:PQD-R：HXX-CD:RZD-R:Q).-1,(.+1,--.Ø:W=H:Z=Ø:ProgS1:ProgS4:U=X:V=Y:O=O+H:G=F-9Ø:P=R:…SR…NEXT…!”:IszT:DszM:GotoB⊿LblA：Fixm:{XYSZN}:T=Ø:N1.JS-XY,2.XY-FS:N=2=Goto2⊿SJS-ZH=:ZD=:Lbl1:S＞Z［8T+1+C］=IszT:Goto1⊿ProgS3:W=S-O:ProgS1:JS-X=:X：PauseØ:JS-Y=:Y◢GotoAΔLbl2:XX…:YY…:I=X:J=Y:Lbl3:ProgS3:W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:W＞H=IszT:Goto3⊿ProgS2:FS-ZH…:S=O+W:PauseØ:D…:Z◢GotoA⊿子程序S1A=.1184634425:B=.2393143352:N=.2844444444:K=.Ø4691ØØ77:L=.23Ø7653449:D=QrW2(P-R)÷2HPR:E=QrWP-1:Z[1]=G+KE+K2D:Z[2]=G+LE+L2D:Z[3]=G+.5E+.25D:Z[4]=G+(1-L)2D+E(1-L:Z[5]=G+(1-K)2D+E(1-K:F=G+E+D+9Ø：中国人民武装警察部队交通第一总队三支队X=U+ZcosF+W(AcosZ[1]+BcosZ[2]+NcosZ[3]+BcosZ[4]+AcosZ[5:Y=V+ZsinF+W(AsinZ[1]+BsinZ[2]+NsinZ[3]+BsinZ[4]+AsinZ[5：子程序S2W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:Z=Ø:Lbl4:ProgS1:L=G-9Ø+E+D:Z=(J-Y)cosL-(I-X)sinL:AbsZ.ØØ1=Goto5:≠W=W+Z:Goto4⊿Lbl5:Z=Ø:ProgS1:Z=(J-Y)÷sinF:子程序S3H=Z［8T+C+6:O=Z［8T+C+1］-H:U=Z［8T+C+2:V=Z［8T+C+3:G=Z［8T+C+4:P=Z［8T+C+5:R=Z［8T+C+7:Q=Z［8T+C+8:子程序S4Z［8T+C+1］=O+H:Z［8T+C+2］=U:Z［8T+C+3］=V:Z［8T+C+4］=G:Z［8T+C+5］=P:Z［8T+C+6］=H:Z［8T+C+7］=R:Z［8T+C+8］=Q:结束程序编制说明：1.本程序是为CASIO-fx4850p编制的。有1个主程序，4个子程序。约1000字节。需输入文件名（1～67），根据28500步可以存储67条线路数据。2.程序是以平曲线基本线型（直、缓、圆、缓、直）数学模型编制，三角函数计算。3.本程序是采用高斯勒让德公式计算待放点坐标或根据全站仪测得坐标计算该点在线路中的位置（距某桩号的左右距离）。程序可以计算任何公路线型数值。适用直线、圆曲线、缓和曲线、S型曲线、卵型曲线、凸曲线、C型曲线、复合曲线、回头曲线，及其任意组合的线型。包括不完整缓和曲线。4.程序一次输入67条线路以内的数据。工作时配合全站仪只要输入桩号，即可计算出一条道路的中边桩坐标或根据全站仪测得坐标计算该点在线路中的位置（距某桩号的左右距离）。已知数据输入时无须人工判断，程序自动存入应存的存储器。本程序可在正反计算时自动切换。5.已知数据输入后，只要不影响扩展存贮器Z[21]以上的数值，都可以进行其他程序计算,中国人民武装警察部队交通第一总队三支队一般情况下可以扩展到Defm400，足够空间调整。6.输入67条线路时，需要人工扩展存贮器到2700个，即【Defm2700:】。此时要多占用容量2700步。如果计算器容量有限，而你不需要那么多线路，则扩展存贮器数量＝线路数量×40+20。7.程序均未考虑断链，有断链时，请将断链处作为起终点处理。分为两条线路。程序使用说明：1.本程序可根据多个线形数据计算平曲线任意点和边桩的坐标。2.本程序适用回头曲线、S型曲线、卵型曲线、凸曲线、C型曲线、复合曲线线形。3.本程序启动后按1进行数据输入，按2直接进入数据计算程序。4.本程序中所有输入数据全部都保留在寄存器中，未被置换，以便待查。但请不要破坏寄存器中数据，这样关机后重新开机可直接进入坐标计算程序。不需要重新输入线形数据。5.桩号输入时，K29+585.456应输入29585.456。操作流程：启动程序：1、显示WJM?:询问文件名：输入1～67、EXE；2、显示：1.SR，2.JS?询问是输入数据抑或根据已存储的数据计算需求点的XY坐标：输入：1为输入新的计算数据，（如输入2则为计算以前储存在计算器内的数据）EXE；3、显示:JZXX?:询问输入几组线元线型；根据所需输入：1～5、EXE；4、显示：QD-ZH、X-Ø、Y-Ø、FWJ、QD-R、XX-CD、ZD-R、“).-1,(.+1,--.Ø”：即分别输入起点桩号；起点的X、Y坐标；起点的方位角；起点的半径；线元线型的长度；线元线型终点的半径；线型的转向，左转、右转、直线则分别输入-1、1、Ø；EXE；5、显示：……SR……NEXT……SUJU!”:提示输入下一线型的数据，QD-R、XX-CD、ZD-R、“).-1,(.+1,--.Ø”：输入线型的长度、终点半径、转向，EXE；6、继续循环显示5，直至所有数据输入完毕：7、显示“JS-ZH”:“D”:询问输入计算桩号距中桩距离，输入后，计算大约1.5秒的时间，即可显示所需计算点的XY坐标，本程序自动计算夹角180度，如有斜交则将S1子程序F=G+E+D+9Ø：中的90改为任意交角。8、循环计算自动进入下一个要求的桩号坐标。本程序计算精度较高，1km17种线型确保与电脑软件：速通测绘――公路施工测量坐标计算系统的计算数据偏差在1mm之内。中国人民武装警察部队交通第一总队三支队任任任意意意等等等级级级公公公路路路线线线型型型坐坐坐标标标连连连续续续计计计算算算程程程序序序CCCAAASSSIIIOOOFFFXXX444888555000PPP版版版权权权所所所有有有武武武警警警交交交通通通第第第一一一总总总队队队三三三支支支队队队□□□作作作者者者张张张亮亮亮二二二○○○○○○六六六年年年六六六月月月二二二十十十二二二日日日中国人民武装警察部队交通第一总队三支队直、缓、圆、卵、回头曲线CASIOFX4800~4850P（（（二二二）））版权所有武警交通第一总队三支队~~~~~~~~~张亮中国人民武装警察部队交通第一总队三支队扩展变量操作（15个）：Defm15,O字母0数字←┚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”：E1=E=1E-9⊿K1=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:E1=X“ZY”◢≠=X“ZH”◢Y“HY”◢⊿Y“QZ”=X+(L-K-E)÷2+E◢Y=X+L-K:X=X+L:K1=X“YZ”◢≠=Y“YH”◢中国人民武装警察部队交通第一总队三支队X“HZ”◢⊿Prog“J-JSMS”←┚J-JSMS（放样模式主程序）“1-ZS,2-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb10:{Z}:Z“MS”≤2=Goto1:≠=Z≤4=Goto2:≠=Goto3⊿⊿←┚Lb11:{PDW}:PD“BZ”W“BJ”:Prog“JP”:X“X=”◢(4850输入“X=”：X◢)Y“Y=”◢(4850输入“Y=”：Y◢)Z2=Goto1:≠=Prog“JS”:Prog“JC”:H“Z”=H+G◢Goto1⊿←┚Lb12:{XYW}:XYW“BJ”:Prog“JF”:P“P=”◢(4850输入“P=”：P◢)D“BZ=”◢(4850输入“BZ=”：D◢)Z4=Goto2:≠={Q}:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto2⊿←┚Lb13:{P}:P:Prog“JS”:H“Z0=”◢(4850输入“Z0=”：H◢)Z6=Goto3:≠={D}:S“CGZ”:T“JKZ”:Z[8]=Q“LH”:D“BZ”:Prog“JC”:J“JK=”◢(4850输入“JK=”：J◢)G“Z”=H+G◢(4850输入“Z=”：G=H+G◢)Goto0⊿中国人民武装警察部队交通第一总队三支队JS（竖曲线计算子程序）PZ[14]=Prog“J-SQX”⊿PZ[15]=Prog“SJ-SQX”⊿←┚N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=HAbs(U-V)÷200:PN=I=U:M=N-G:MP=M=P⊿≠=I=V:M=N+G:MP=M=P⊿⊿J=(P-M)2÷2H:U-V0=J=-J⊿H=Z[10]+(P-N)×I÷100+JJP（平曲线正算子程序）Fixm←┚Lb11:J=F:X=B-Z[3]cosF:Y=C-Z[3]sinF:G=E←┚P≤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π:O0=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+180:G=K←┚P≤A-Z[3]+L=I=A-Z[3]+L-P:H=90II÷RKπ:O0=H=-H⊿H=H+J+W+180:Goto3←┚≠=I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto5←┚Lb13:M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto5←┚Lb14:H=(E+2I)×90÷πR:M=RsinH+Z[2]:N=R(1-cosH)+Z[1]:O0=H=-H⊿H=J+H+W:Goto5←┚Lb15:P≤A-Z[3]+L-K=O0=N=-N⊿≠=O0=N=-N⊿⊿Goto6←┚中国人民武装警察部队交通第一总队三支队Lb16:X=X+McosJ-NsinJ+DcosH:Y=Y+MsinJ+NcosJ+DsinHJF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cosJ-(X-B)sinJ←┚Lb11:Prog“JP”:J=H-180:I=(V-Y)cosJ-(U-X)sinJ:AbsI1E-4=Goto2:≠=P=P+I:Goto1⊿←┚Lb2:D=(V-Y)