卡西欧5800P完整程序(两套)

逻辑运行运算公式主程序逻辑运行运算公式主程序 Deg Fix 3 20 DimZ 回车符号 ZS 1 FS 2 J 回车符号 If J 1 Then Goto 0 Else Goto 4 IfEnd 回车符号 Lbl 0 回车符号 ROAD 1 5 E 回车符号 XS U YS V 回车符号 Lbl 1 回车符号 KP P 回车符号 Prog ROAD DATA 回车符号 M O N 回车符号 Prog ROAD SUB1 回车符号 Prog ROAD SUB2 回车符号 XP F 黑色三角 YP G 黑色三角 BP Z 黑色三角 DMS 黑色三角 If U 0 Then Goto 3 Else Pol F U G V IfEnd 回车符号 Lbl 2 回车符号 If J 0 Then J 360 J IfEnd 回车符号 A1 J 黑色三角 DMS 黑色三角 D1 I 黑色三角 Lbl 3 回车符号 DANGLE H If H 0 Then Goto 1 IfEnd D 回车符号 XB F Dcos Z H Z 11 黑色三角 YB G Dsin Z H Z 12 黑色三角 If U 0 Then Goto 3 Else Pol Z 11 U Z 12 V IfEnd 回车 符号 Goto 2 回车符号 Lbl 4 回车符号 ROAD 1 5 E 回车符号 XS U YS V 回车符号 Lbl 5 回车符号 XB U YB V KP P 回车符号 Lbl 6 回车符号 Prog ROAD DATA 回车符号 M O N 回车符号 Prog ROAD SUB1 回车符号 Prog ROAD SUB2 回车符号 Z 90 A 回车符号 V G cos A U F sin A H 回车符号 If Abs H 0 0001 Then P H P Goto 5 IfEnd 回车符号 K P 黑色三角 D G V sin A D 黑色三角 Goto 4 回车符号 ROAD DATA If E 1 Then Prog ROAD DATA1 IfEnd 回车符号 If E 2 Then Prog ROAD DATA2 IfEnd 回车符号 If E 3 Then Prog ROAD DATA3 IfEnd 回车符号 If E 4 Then Prog ROAD DATA4 IfEnd 回车符号 If E 5 Then Prog ROAD DATA5 IfEnd 回车符号 注 ROAD DATA 编几段对应的计算数据库就编几段 比如此例有 五段 那么就编五段 ROAD DATA1 2 3 ROAD DATA 1 数据库 圆曲线要素 开始编的第一个交点第一缓和曲线起点 也叫起始交点 D 下一个交点的第一缓和曲线起点 H If P H Then 开 始编写的第一个交点的交点桩号 K 起始交点的 X 坐标 X 起 始交点的 Y 坐标 Y 与上一个焦点的方位角 M 起始交点的转 角值 O 起始交点的半径 R 上一交点的缓和曲线长度 B 编 写的起始交点的缓和曲线长度 C Goto 1 IfEnd 回车符号 H D 下一个交点的第一缓和曲线起点 H If P H Then 所计算交点的交点桩号 K 所计算交点的 X 坐标 X 所计算交 点的 Y 坐标 Y 与上一个焦点的方位角 M 所计算交点的转角 值 O 所计算交点的半径 R 上一交点的缓和曲线长度 B 所 计算交点的缓和曲线长度 C Goto 1 IfEnd 回车符号 结束段 Lbl 1 If P 起始桩 Or P 此段终点桩 Then Cls Locate 5 2 KPERROR 黑色三角形 Stop IfEnd Return 回车符号 ROAD DATA 2 ROAD DATA 3 模式同上 注 每段按实际曲线要素选择终点桩号 ROAD SUB 1 If O 0 Then 1 W Else 1 W IfEnd WO A 回车符号 B 24 R B 4 2688 R 3 B 6 R 5 Z 6 回车 符号 C 24 R C 4 2688 R 3 C 6 R 5 Z 7 回车符号 B 2 B 3 240 R B 5 34560 R 4 Z 8 回车符号 C 2 C 3 240 R C 5 34560 R 4 Z 9 回车符号 Z 8 R Z 7 R Z 6 cos A sin A S 回车符号 Z 9 R Z 6 R Z 7 cos A sin A T 回车符号 RA 180 B C 2 L 回车符号 L B C Q 回车符号 K S Z 1 回车符号 Z 1 B Z 2 回车符号 Z 2 Q 2 Z 3 回车符号 Z 1 L C Z 4 回车符号 Z 4 C Z 5 回车符号 ROAD SUB 2 X Scos M F Y Ssin M G 回车符号 If P Z 1 Then Goto 1 IfEnd 回车符号 X F Y G P K Z 16 O Z 17 M A M Z Goto 5 回 车符号 Lbl 1 回车符号 If P Z 2 Then Goto 2 IfEnd 回车符号 P Z 1 L L Z 14 B Z 15 Prog ROAD SUB3 回车符号 WZ 17 Z 17 M A M 90WL BR Z Goto 5 回车符 号 Lbl 2 回车符号 If P Z 4 Then Goto 3 IfEnd 回车符号 P Z 1 L 90 2L B R A 回车符号 Rsin A Z 8 Z 16 W R 1 cos A Z 6 Z 17 回车符号 M WA Z M A Goto 5 回车符号 Lbl 3 回车符号 If P Z 5 Then Goto 4 IfEnd 回车符号 Z 5 P L L Z 14 C Z 15 Prog ROAD SUB3 回车符号 X Tcos N F Y Tsin N G 回车符号 Z 16 Z 16 WZ 17 Z 17 N A N 90WL CR Z Goto 5 回车符号 Lbl 4 回车符号 X F Y G P Z 15 T Z 16 O Z 17 N A N Z Goto 5 回车符号 Lbl 5 回车符号 F Z 16 cos A Z 17 sin A F 回车符号 G Z 16 sin A Z 17 cos A G 回车符号 If Z 0 Then Z 360 Z IfEnd 回车符号 ROAD SUB 3 If Z 14 0 Then 0 Z 16 0 Z 17 Else 回车符号 Z 14 Z 14 5 40 RZ 15 Z 14 9 3456 RZ 15 4 Z 16 回车符号 Z 14 3 6 RZ 15 Z 14 7 336 RZ 15 3 Z 14 11 42240 RZ 15 5 Z 17 回车符号 IfEnd 回车符号 第二套程序 第二套程序 逻辑运行运算公式主程序逻辑运行运算公式主程序 Deg Fix 4 G Abs G V F2 24R F 4 2688R 3 F 6 R 5 F 8 R 7 P F 2 F 3 240R2 F 5 34560R 4 F 7 R 6 F 9 R 8 Q Q R P Vtan G 2 T R GV 180 F I IF L H T Then L H J Goto 1 IfEnd If L H T F The n L H T J C Z 1 S Goto 2 IfEnd If L H T I F Then L H T J C Z 1 S Goto 3 IfEnd If L H T I Then H T I L J C G C 1 S Goto 2 IfEnd If L H T I Then L H I 2T J C G C Goto 1 If End Lbl 1 D Jcos C X E Jsin C Y C O Goto C Lbl 2 J J 5 40 RF 2 J 9 3456 RF 4 J 13 RF 6 J 17 RF 8 T S M J 3 6RF J 7 336 RF 3 J 11 42240 RF 5 J 15 RF 7 J 19 RF 9 V N C 90J2SV RF O Goto B Lbl 3 180 J 0 5F R O Q Rsin O T M P R 1 cos O V N C VO O Goto B Lbl B D Mcos C Nsin C X E Msin C Ncos C Y Goto C Lbl C If Z 3 0 0001 Then K M U K180 U U O U Abs K K 10 10 Z X X Abs K cos Z X Y Y Abs K sin Z Y tan 1 Y B X A 10 10 W X AW 180 W WW 360 W X A 2 Y B 2 S DIS S FW W DMS IfEnd 运行数据库运行数据库 圆曲线要素圆曲线要素 3 DimZ X0 A Y0 B Ln L Abs L Int Abs 1000L 1000 Z 3 Lbl 0 If Z 3 0 0001 Then L Else Xp X Yp Y X Z 1 Y Z 2 IfEnd Lbl 1 If L 桩号 Then 方位角 C 需 要计算交点的 X 坐标 D 需要计算交点的 Y 坐标 E 需计算交点的缓和曲线长度 F 需要计算交点的转角值 G 需要计算交