平曲线坐标计算程序.doc

平曲线坐标计算程序（CASIO fx-4800P） A子程序：X＞M?Prog“B”：Goto 0：≠?X=M?Prog“C”：≠?X＜M?Prog“B”：Q=Q 180：Lb1 0：Q=Q 360：Q≥360?Q=Q-360◢≠?Q=Q◢ B子程序：Q“Q”=tan-1（（Y-N）（X-M） C子程序：Y≥N?Q=90◢ ≠?Q=270◢ D子程序：C“SO”=√（（X-M）2 （Y-N）2） 主程序： R“R”S“LS1”U“LS2”W“ZG”P“WZH”：A=90SRπ：B=90URπ：C=S224R：D=U224R：E=S2-S＾3240R2：F=U2-U＾3240R2：Q“T1”=E （R C）tan（AbsW2） （D-C）sin AbsW◢ K“T2”=F （R C）tan（AbsW2）-（D-C）tan AbsW◢ O“S”=（AbsW-A-B）Rπ180 S U◢ J“JD”T“XJD”V“YJD”：A“ZH”=J-Q◢ B“HY”=A S◢ E“YH”=A O-U◢ F“HZ”=A O◢ G“XZH”=T Q cos（P 180）◢ H“YZH”=V Q sin（P 180）◢ I“XHZ”=T K cos（P W）◢ J“YHZ”=V K sin（P W）◢ M“X0”N“Y0”：Prog“A”：Prog“D”◢ Lb1 O：｛Z｝：Z“ZHUANG HAO”：｛D｝：D：｛T｝：T“JG”：Lb1 0：Z≤A?Goto 1：≠?Z＞A?Z≤B?L=Z-A：Goto 2：≠?Z＞B?Z≤E?L=S：Goto 2：≠?Z＞E?Z≤F?L=F-Z：Goto 2：≠?Z＞F?C=Z-F：Goto 8△Lb1 1：C=A-Z：X=G C cos（P 180）：Y=H C sin（P 180）：V=P：Goto 9△Lb1 2：Z＞A?Z≤E?K=RS：Goto Y：≠?Z＞E?Z≤F?K=RU：Goto Y△Lb1 Y：K=0?V=P：X=G：Y=H：Goto 6：≠?Goto 3：Lb1 3：X=L-L＾540K2 L＾93456K＾4-L＾6：Y=L＾36K-L＾7336K＾3 L＾1142240K＾5-L＾159676800K＾7：C=√（X2 Y2）：V=90L2πK：Q=tan-1（YX）：Goto A△Lb1 A：W＜0?Q= -Q：V= -V：GotoB△ Lb1 B：Z＞A?Z≤E?Goto 5：≠?Z＞E?Z≤F?Goto 7△Lb1 5：X=G C cos（P Q）：Y=H C sin（P Q）：V=P V ：Goto C△ Lb1 C：Z＞A?Z≤B?Goto 9：≠?Z＞B?Z≤E?Goto 6△ Lb1 6：L=Z-B：Q=90LπR：C=2R sinQ：Goto D△ Lb1 D：W＜0?Q=-Q：Goto E△ Lb1 E：X=X C cos（V Q）：Y=C sin（V Q） Y：V=V 2Q：Goto 9△ Lb1 7：X=I C cos（P W 180-Q）：Y=J C sin（P W 180-Q）：V=P W-V：Goto 9△ Lb1 8：X=I C cos（P W）：Y=J C sin（P W）：V=P W：Goto 9△ Lb1 9：X=X D cos（V T）：“X=”：Ｐause 0：Y=Y D sin（V T）◢ Prog“A”：Prog“D”◢ Goto O 程序执行输入说明 R：输入半径 Ls1：缓和曲线第一段长度 Ls2：缓和曲线第二段长度 ZG：转角 即路线偏角（左转为负，右转为正） WZH：后段切线方位角（按路线前进方向，在路线方向后为后段切线） T1：第一段切线长度 T2：第二段切线长度 S：平曲线长度（包括缓和曲线和圆曲线） JD：交点桩号 XTD：交点桩号X轴坐标 XTD：交点桩号Y轴坐标 ZH：直缓点桩号 HY：缓圆点桩号 YH：圆缓点桩号 HZ：缓直点桩号 XZH：直缓点X轴坐标 YZH：直缓点Y轴坐标 XHZ：缓直点X轴坐标 YHZ：缓直点Y轴坐标 XO：置仪点（测站点）X轴坐标 不用输 YO：置仪点（测站点）Y轴坐标 不用输 X：后视点X轴坐标 不用输 Y：后视点Y轴坐标 不用输 Q：方位角（置仪点至后视点方位角，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的方位角） SO：距离（置仪点至后视点距离，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的距离，适用于利用经纬仪 测距仪使用） ZHUANG HAO：输入所求点桩号。 D：所求点至中桩的距离，左边桩为“—”；右边桩为“ ”，