CASIO4500坐标计算程序竖曲线计算程序程序名SQXLBl1.doc

CASIO4500坐标计算程序 程序名：SQX LBl?1：{DEIHRQPJ}：W=DEIHRQPJ：T=(I-H)R/2：N=T2/2R LBl?2：{A}：Z=A ?LBl?3：AP=Goto?4：△AE=Goto?6：△AQ=Goto?5：△X=D+(A-E)I▲?Goto?2 LBl?4：X=?D+(A-E)H▲Goto?2 LBl?5：M=(Q-A)2/2RJ：X=D+(A-E)I+M▲?Goto?2 LBl?6：M=(P-A)2/2RJ：X=D+(A-E)H+M▲?Goto?2 注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 字母含义： D：变坡点高程?E：变坡点里程??J：曲线凸凹（凸为-1、凹为+1）?L：开始坡度?? H：结束坡度???A：待求点标高??R：竖曲线半径???Q：起点里程???P：终点里程====?4?====计算曲线上任一点放样极坐标 F1：??QXJS L1????Abs?WFixmC==7=Fixm:Goto?F△Fix?4:Z=E7AA0/Abs?AN[9:A=Abs?A:Q=R+SLsci2/24R L2????T=S/2-Sxy3/240R2+Anstan?.5A▲L=πRA/180?+S▲HZH=JJDT-T▲VHY=H+S▲VQZ=H+.5L▲VYH=H+L-S▲LHZ=H+L▲DxJKyJ?BGraOXEUYEGXmMXm L3????LbI?F:{FN}:F≤H=X=F-J:ZN:≠F≤L-S=I=?L-S=I=?F-H:FH+S=Prog?Q:≠Rec(R-ZN,90(2I-S)/πR:?X=W-Qtan.5A:Q-V△≠I=L-F:PoI(T-I,ZN:FL=Prog?Q:PoI(-X,Ans△X=Rec(Ans,A+W L4????W△△X=D+Rec(PoI(X,ZAns,W+B:Y=K+W:?EnD?OK!:PoI(G-O,M-U:I=W:PoI(X-O,Y-U:W-I:?Ans0=Ans+360△I=Ans:60Frac?Ans:I≤Deg=IntI+.01Int?Ans+6mFrac?Ans▲VP=V▲Goto?F?[主程序结束] F2：??Q??[子程序] L1????Y=2RS:W=180I2/πY:X=I-Ixy5/10Y2-T-ZNsin?W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW??[子程序结束] 输入说明： F1为第一个程序，L1为第一个程序的第一行，L2为第二行，依次类推。 1、程序中Z=E7AA0/Abs?AN[9处E用按键[EXP]?键输入； 2、程序中π代表圆周率，也就是3.1415926的那个； 3、程序中Ans用按键[Ans]输入； 4、程序中I≦Deg=Int?I+.01Int?Ans+6mFrac?Ans▲处的m?用按键[SHIFT][5]输入； 操作说明：? Fixm?C=??? 首次启动时，需输入密码：。重启动功能控制符，输入“7”或“-7”可启动重启动功能。 A0？ 曲线转角，要求以度分秒形式输入，左转输入“负”?值，右转输入“正”值。 R? 曲线半径，直接输入即可。 LSci? 缓和曲线长度，有缓和曲线时输入缓和曲线长度，圆曲线输入“0”。 T=S/2-Sxy3/2→ 程序输出曲线切线长度。 L=ПRA/180+S 程序输出曲线长度。 JDT? 曲线交点里程，直接输入平曲线交点里程，如K123+456.789输入123456.789即可。 ZH= 程序输出曲线起点[ZH]里程。 HY= 程序输出HY里程。 HY= 程序输出HY里程。 QZ= 程序输出QZ里程。 YH= 程序输出YH里程。 HZ= 程序输出曲线止点[HZ]里程。 XJ? 交点大地坐标[X坐标]。 YJ? 交点大地坐标[Y坐标]。 Gra? 曲线起始方位角。即由ZH指向实交点的方位角。 XE? 输入放样置仪点大地坐标[X坐标]。 YE? 输入放样置仪点大地坐标[Y坐标]。 Xm? 输入放样后视点大地坐标[X坐标]。 Ym? 输入放样后视点大地坐标[Y坐标]。 F? 放样点里程桩号。 N？ 放样中桩距，即边桩至中桩的距离。无论曲线左转还是右转，均以左“负”右“正”输入，中桩输入“0”。 EnD?OK! 程序提示：程序已完成放样点的坐标计算，正在进行放样元素计算，请稍候！ ≤Deg=? 程序输出放样极角为28度16分47秒(度分秒化处理)，不要再人为转换，将仪器水平度盘拨至该角度即可放样。 P= 程序输出放样极距。