CASIO中边桩放样程序3

CASIO 中边桩放样程序中边桩放样程序 3 程序名 TNT Defm 10 A A0 R C LS D JD P C2 24 R C 4 2688 R 3 Q C 2 C 3 240 R2 Z 5 90C p R T T R P tan AbsA 2 Q W W R P cos A 2 R L L AbsA 2 Z 5 pR 180 2C ZH G D T HY Z 1 G C QZ Z 2 G L 2 YH Z 3 G L C HZ Z 4 G L N JDX E JDY F QDFWJ O DKA B DKB H ZJX K ZJY AS 1 S 1 U F A 2 90S V W R Z 6 N VcosU Z 7 E VsinU Lbl 1 Z Z DKI Z O Z O Goto 8 Z B Z B Goto 8 Lbl 8 Z G L T G Z V F 180 U F Goto 2 Z Z 1 L Z G V L L 5 90R2C2 L 30L2S pRC P F 180 Q F L U F 3L Goto 4 Z Z 3 L F A 2 90S 180 180 Z Z 2 S R p U L 90S Goto 5 Z Z 4 L Z 4 Z V L L 5 90R2C2 L 30SL2 pRC P F A Q F A 180 L U F 3L A Goto 4 Z Z 4 L Z Z 4 T U F A V U Goto 2 Lbl 2 X N LcosV Y E LsinV Goto 6 Lbl 4 X N TcosP VcosQ Y E TsinP VsinQ Goto 6 Lbl 5 X Z 6 R cosL Y Z 7 RsinL Goto 6 Lbl 6 WM W BIAN JU M JIA JIAO UU U 360 QX FWJ U DMS X X Y Y W 0 Goto 3 W 0 X X Wcos U M Y Y Wsin U M XR X YR Y Goto 3 WX X AbsW cos U 180 M Y Y AbsW sin U 180 M XL X YL Y Goto 3 Lbl 3 Pol X H Y K JJ J 360 FWJ J DMS CJ I Goto 1 说明 A 输入转角 左转为负 右转为正 R 输入圆曲线半径 LS 输入缓和曲线长度 JD 输入交点桩号 JDX JDY 输入交点 X Y 坐标 QDFWJ 输入起点切线方位角 DKA 输入起点里程 DKB 输入终点里程 ZJX ZJY 输入置镜点 X Y 坐标 Z DKI 输入待求点里程 QX FWJ 待求点切线方位角 W BIAN JU 输入左右桩距中桩边距 左侧输入 右侧输 M JIA JIAO 输入斜交时边桩与线路方向右侧夹角 正交为 90 度 X Y 待求点中桩坐标 XR YR 右桩坐标 XL YL 左桩坐标 FWJ 置镜点至待求点方位角 CJ 置镜点至待求点距离 5800 经典程序 缓 园 缓 经典程序 缓 园 缓 5800 直 缓 圆 缓 直 型坐标计算 主程序 QXJS Prog 1 K ZH Q ZHX F ZHY G TZH JD N Y1 Z 1 I Lbl 1 LICHENG K WAIYI Z Y D Goto2 Lbl 2 if KQ L then GotoA else Goto5 ifend Lbl 5 if K Q B then Goto6 else Goto7 ifend Lbl 6 K Q S B W Prog 2 N I 90S2 RB O O O 360 O O 360 O 360 O X UcosN VsinN F Dcos O 90 X Y VcosN UsinN G Dsin O 90 Y Goto1 第一段缓曲 Lbl 7 if K Q L C then Goto8 else Goto9 ifend Lbl 8 K Q S N I90 2S B R O O O 360 O O 360 O 360 O Prog 3 X UcosN VsinN F Dcos O 90 X Y VcosN UsinN G Dsin O 90 Y Goto1 圆曲线 Lbl 9 Q L K S C W Prog 2 N IA 180 E E I 90S2 RC 180 O O O 360 O O 360 O 360 O V V X U H cosE VsinE F T cosN Dcos O 90 X Y VcosE U H sinE G T sinN Dsin O 90 Y Goto1 第二段缓曲 Lbl A N IA 180 E E 180 O O O 360 O O 360 O 360 O HcosE F T cosN X HsinE G T sinN Y X X K Q L cosO D sinO Y Y K Q L sin O DcosO Goto1 第二段直线 圆曲 缓曲参数子程序 1 A R L01 B L02 C B 2 B3 240 R2 M C 2 C3 240 R2 J B2 24 R B4 2688 R3 P C2 24 R C4 2688 R3 Z M R P tan A 2 Z P sinA T J R Z tan A 2 P Z sinA H B 2 C 2 A R 180 L 缓曲子程序 2 S S5 40R2W2 S9 3456 R4 W4 S13 599040R6 W6 U I S3 6RW S7 336 R3 W3 S11 42240 R5 W5 V 圆曲子程序 3 Rsin 180 S B 2 R M U I R 1 cos 180 S B 2 R P V 程序说明 本程序可以计算等长和不等长 直 缓 圆 缓 直 型线或者单圆曲线的中线坐标 外移 桩坐标以及中线的切线方位角 可加入 显示出来 先将主 子程序存入计算器 然后运行主程序 QXJS 输入 A 曲线偏角 曲线半径 R 第一缓和曲 线长 L01 第二缓和曲线长 L02 等长缓和曲线时 L01 L02 然后显示曲线逐要素 接着输入 ZH 坐标 ZHX ZHY ZH 到 JD 坐标方位角 TZH JD 当曲线为左偏时 Y1 Z 1 输 1 右偏输 1 输 入计算里程 K 外移距离 D 计算中桩时 D 输 0 计算左边桩时 D 输负数 算右边桩时 D 输正数 当 所输里程不在本曲线计算范围内时 屏幕显示 K OVER 继续输入有效里程可继续计算 对于单圆曲线 缓和曲线长输入 0 本程序缓和曲线 X 计算取了 4 项 Y 计算取了 3 项 一般的曲线计算精度都可达到 mm 级 5800 竖曲线高程 竖曲线高程 RGC JD K A JD H B i i I T n 1 u 1 J W K0 I 100 I K0 A T D H0 B IT E KZ A T U HZ E 2TI 4JT2 2R V Lbl 1 K Goto2 Lbl 2 if KU thenGoto3 else Goto6 ifend Lbl 5 K U Goto6 Lbl 6 H E K D I J K D 2 2R W H Goto1 JD K 交点桩号 JD H 交点直线高程 i i 后面坡度 R 竖曲线半径 T T 长 HSGC 后 视高程 5800 计算器公路全线坐标正 反算计算程序计算器公路全线坐标正 反算计算程序 2009 7 23 5800 正反算 隧道超欠挖程序 doc 正算主程序 ZS Lb1 0 FIX4 S Z Prog PM SJ Abs S O W Prog SUB1 XS X YS Y F 90 F 需要时可以让他显示 不要时不必输入 Prog SQX SJ Prog SQX H H Goto 0 反算主程序 FS Lb1 0 FIX4 S X Y Prog PM SJ X I Y J Prog SUB2 S O W S Z Z Prog SQX SJ Prog SQX H H Goto 0 隧道 3 心圆放样主程序 SD 3XY Lb1 0 Prog FS 1 5 A 1 65 B 0 89 G 2 27 C 3 3 D 2 41 E 0 51 J H1 F ifF H A then E AbsZ W IfEnd ifF H A And F H A B then D F H A G AbsZ W IfEnd ifF H A B then C F H A J AbsZ W IfEnd W W 水平方向的超欠挖 正为欠 负为超 Goto0 正算子程序 SUB1 1 P C P R 2HPR D 180 E 0 1739274226 A 0 3260725774 B 0 0694318442 K 0 3300094782 L 1 L F 1 K M U W Acos G QEKW C KWD Bcos G QELW C LWD Bcos G QEFW C FWD Acos G QEMW C MWD X V W Asin G QEKW C KWD Bsin G QELW C LWD Bsin G QEFW C FWD Asin G QEMW C MWD Y G QEW C WD 90 F X ZcosF X Y ZsinF Y 反算子程序 SUB2 G 90 T Abs Y V cosT X U sin T W 0 Z Lbl 0 Prog SUB1 T QEW C WD L J Y cosL I X sinL Z ifAbsZ 1E 6 thenGoto1 ElssW Z W Goto 0 IfEnd Lbl 1 0 Z Prog SUB1 J Y sinF Z 子程序 平面线形数据库 PM SJ ifS 500 线元起点里程 AndS 769 256 线元止点里程 Then19942 837 U 线元起点 X 坐标 28343 561 V 线元起点 Y 坐标 500 O 线元起点里程 125 16 31 G 线元起点方位角 269 265 H 线元长度 10 45 P 线元起点曲率半径 10 45 R 线元终点曲率半径 0 Q 线元左右偏标志 左负右正 IfEnd ifS 769 256 线元起点里程 AndS 806 748 线元止点里程 Then19787 34 U 线元起点 X 坐 标 28563 378 V 线元起点 Y 坐标 769 256 O 线元起点里程 125 16 31 G 线元起 点方位角 37 492 H 线元长度 10 45 P 线元起点曲率半径 221 75 R 线元终点 曲率半径 1 Q 线元左右偏标志 左负右正 IfEnd ifS 806 748 线元起点里程 AndS 919 527 线元止点里程 Then19766 566 U 线元起点 X 坐 标 28594 574 V 线元起点 Y 坐标 806 748 O 线元起点里程 120 25 54 07 G 线元 起点方位角 112 779 H 线元长度 221 75 P 线元起点曲率半径 221 75 R 线元终点 曲率半径 1 Q 线元左右偏标志 左负右正 IfEnd ifS 919 527 线元起点里程 AndS 999 812 线元止点里程 Then19736 072 U 线元起点 X 坐 标 28701 893 V 线元起点 Y 坐标 919 527 O 线元起点里程 91 17 30 63 G 线元 起点方位角 80 285 H 线元长度 221 75 P 线元起点曲率半径 9579 228 R 线元终点 曲率半径 1 Q 线元左右偏标志 左负右正 IfEnd ifS 999 812 线元起点里程 Then19744 038 U 线元起点 X 坐标 28781 659 V 线元起点 Y 坐标 999 812 O 线元起点里程 80 40 50 G 线元起点方位角 100 H 线元长度 10 45 P 线元起点曲率半径 10 45 R 线元终点曲率半径 0 Q 线元左右偏标 志 左负右正 IfEnd 子程序 竖曲线数据库 SQX SJ ifS 999 812 竖曲线终点里程 then0 0357 前坡度 上坡正下坡负 E 0 0227 后坡度 上坡 正下坡负 F 600 R 竖曲线半径 780 G 变坡点里程 110 C 变坡点高程 IfEnd 子程序 竖曲线计算公式 SQX E F J ifJ 0 then R R ElssR R Abs R J 2 T IfEnd ifS G T thenG S L C LE H IfEnd ifS G T And S G thenG S L S T G 2 R N C LE N H IfEnd ifS G And S G T then S G L G T S 2 R N C LF N H IfEnd ifS G T thenS G L C LF H IfEnd 三 使用说明 1 规定 1 以道路中线的前进方向 即里程增大的方向 区分左右 当线元往左偏时 Q 1 当线 元往右偏时 Q 1 当线元为直线时 Q 0 2 当所求点位于中线时 Z 0 当位于中线左铡时 Z 取负值 当位于中线中线右侧时 Z 取正 值 3 当线元为直线时 其起点 止点的曲率半径为无穷大 以 10 的 45 次代替 4 当线元为圆曲线时 无论其起点 止点与什么线元相接 其曲率半径均等于圆弧的半径 5 当线元为完整缓和曲线时 起点与直线相接时 曲率半径为无穷大 以 10 的 45 次代替 与 圆曲线相接时 曲率半径等于圆曲线的半径 止点与直线相接时 曲率半径为无穷大 以 10 的 45 次 代替 与圆曲线相接时 曲率半径等于圆曲线的半径 6 当线元为非完整缓和曲线时 起点与直线相接时 曲率半径等于设计规定的值 与圆曲线相 接时 曲率半径等于圆曲线的半径 止点与直线相接时 曲率半径等于设计规定的值 与圆曲线相接 时 曲率半径等于圆曲线的半径 以上程序为个人改编而得 如有好的建议及不妥处请留言 如有 好的程序 也发一份我共享啊 B B B CASIO fx 5800 计算器 工程测量与公路测量程序 1 坐标正算 X0 X Y0 Y I I J J X ICos J U Y ISin J V X U 待求点的 X 坐标 Y V 待求点的 Y 坐标 说明 X0 Y0 已知点坐标 I 两点的距离 J 方位角 坐标反算 Lbl 0 X1 X Y1 Y X2 U Y2 V Pol U X V Y J 0 J 360 J I I J J DMS GOTO 0 说明 X1Y1 第一点的坐标 X2Y2 第二点的坐标 I 两点的距离 J 方位角 圆曲线 X0 X Y0 Y FWJ D QDHAO G ZDHAO C R R Lbl 1 DQHAO L L G Or L C GOTO 2 PY K 180 L G R E 2RSin 0 5E F ReC Abs F D 0 5E Cls X X I KCos D E 90 A Y Y J KSin D E 90 B D E o o 0 360 o 0o FWJ o DMS Goto 1 Lbl 2 END 说明 X0Y0 起始点的坐标 FWJ 起始点的方位角 QDHAO 起点里程 ZDHAO 终点里程 R 半径 DQHAO 待求点里程 PY 偏移量 竖曲线 QZHAO J H B B I1 C I2 D R R T T D C 100 Abs D C 100 A Abs 0 5R D C 100 S T S J T X J T Y Lbl 0 DQ L If L X Then Goto 1 Else If L Y Then Goto 1 If End If End GC B C L J 100 A L J T 2R H Goto 0 Lbl 1 END 说明 QZHAO 曲中点里程 H B 曲中点高程 I1 第一坡度 I2 第二坡度 R 半径 T 切 线长 DQ 待求点里程 5 正算偏移 X0 A Y0 B FWJ D Lbl 0 LS L PY C ReC L D X A I CCos D 90 X Y B J CSin D 90 Y Goto 0 说明 X0 Y0 已知点坐标 LS 两点距离 FWJ 方位角 6 万能公式 X0 A Y0 B FWJ C 1 R QD D 1 R ZD E QDHAO F ZDHAO G Lbl 1 DQHAO H PY o If H F Then Goto 2 Else If H G Then Goto 2 If End IfEnd E D Abs G F P Abs H F Q PQ I C 9