卡西欧5800道路编程程序.doc

卡西欧5800道路编程程序相关搜索: 卡西欧, 道路, 程序说明：该程序适用于计算器 CASIO fx-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。1、A? 输入转角:左转为负，右转为正2、R? 输入圆曲线半径3、LS? 输入缓和曲线长度4、JD(DK)? 输入交点里程桩号5、X(JD)? 输入本交点X坐标6、Y(JD)? 输入本交点Y坐标7、FWJ? 输入待求点切线方位角9、J? 输入0程序计算中桩，输入1程序计算边桩10、Z? 输入里程桩号1 A：R：C“LS”：D“JD(DK)”2 P=C2/24/R-C4/2688/R33 Q=C/2-C3/240/R24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q6 W=(R+P)/cos(A/2)-R7 L=(AbsA)-2B)兀R/180+2C8 G“ZH”=D-T9 H“HY”=G+C10 I“QZ”=G+L/211 K“YH”=G+L-C12 M“HZ”=G+L13 N”X(JD)”：E”Y(JD)”：F”FWJ”: J14 A0=S=-1:=S=1 (提示：0为数字“0”)15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU (提示：O为字母“O”)19 Lbl 120 Z21 ZG=L=T+G-Z22 V=F+18023 U=F24 Goto 225 ZH=L=Z-G26 V=L-L5/(90R2C2)27 L=30L2S/(兀RC)28 P=F+18029 Q=F+L30 U“FWJ”=F+3L31 Goto 432 ZK=L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FWJ”=L+90S34 Goto 535 ZM=L=M-Z36 V=L-L5/(90R2C2)37 L=30SL2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A41 Goto442 ZM=L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV48 Y=E+LsinV49 Goto 650 Lbl 351 W52 P“XL”=X+Wcos(U-90) 53 Q“YL”=Y+Wsin(U-90) 54 P“XR”=X+Wcos(U+90) 55 Q“YR”=Y+Wsin(U+90) 56 Goto 157 Lbl 458 X=N+TcosP+VcosQ59 Y=E+TsinP+VsinQ60 Goto 661 Lbl 562 X=B+R cosL63 Y=O+RsinL (提示：O为字母“O”)64 Goto 665 Lbl 666 J=1= Goto 367 Goto 1注:1、 为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。2、括号（）为说明，请不要输入。计算参数:A?=531246.1R?=4500LS?=360JD(DK)?=10021.359T=2434.65260W=534.31251L=4539.32398ZH=7586.70640HY=7946.70640QZ=9856.36839YH=11766.03038HZ=12126.03038X(JD)?=3378226.731Y(JD)?=456053.721FWJ?=985655.62J?=1Z?=10000核对结果:FWJ=487232.26X=3377706.668Y=455858.525W?=10（偏距）XL=