测量5800曲线

测量测量 Casio5800 计算器交点法程序计算器交点法程序 2008 06 10 13 50 46 来源 作者 歪哥 大 中 小 点击 2399 次 本程序由一个主程序本程序由一个主程序 JDJD 和三个子程序和三个子程序 JDAJDA JDBJDB JDCJDC 构成 运行时只需运行主程序即可 构成 运行时只需运行主程序即可 本程序适用于单交点对称型 不对称型 无缓和曲线本程序适用于单交点对称型 不对称型 无缓和曲线 单圆曲线型一个交点范围内 含交点前后有直线段时 的单圆曲线型一个交点范围内 含交点前后有直线段时 的 曲线要素核对和坐标计算 手工输入要素 对设计图纸的曲线要素核对和坐标计算 手工输入要素 对设计图纸的 直线 曲线转角表直线 曲线转角表 中交点数据进行复核验证 并为线中交点数据进行复核验证 并为线 元法程序提供起点坐标起点切线方位角等数据 当然本程元法程序提供起点坐标起点切线方位角等数据 当然本程 序也可单独逐交点输入进行放样计算用 鉴于序也可单独逐交点输入进行放样计算用 鉴于 58005800 计算器计算器 的空间和以上所述本程序的主要目的 故此程序不修改为的空间和以上所述本程序的主要目的 故此程序不修改为 数据库版本 需要的自行修改结合数据库版本 需要的自行修改结合 XYXY 框架自己修改为数据框架自己修改为数据 库反算程序等 库反算程序等 主程序名 主程序名 JDJD 2424 DimzDimz ClsCls XCXC U U YCYC V V K K JDJD K K X X JDJD X X Y Y JDJD Y Y LS1LS1 B B LS2LS2 C C R R ZHZH FWJFWJ M M Z Y Z Y O O M OM O N N ProgProg JDAJDA ClsCls T1 T1 T2 T2 L L LY LY LocateLocate 4 1 S4 1 S LocateLocate 4 2 T4 2 T LocateLocate 4 3 L4 3 L LocateLocate 4 4 Q4 4 Q ClsCls E E K K ZHZH LocateLocate 7 1 E7 1 E LocateLocate 7 2 Z 1 7 2 Z 1 ClsCls K K HYHY K K QZQZ K K YHYH K K HZHZ LocateLocate 7 1 7 1 Z 2 Z 2 LocateLocate 7 2 7 2 Z 3 Z 3 LocateLocate 7 3 7 3 Z 4 Z 4 LocateLocate 7 4 7 4 Z 5 Z 5 LbI 0 0 K K P P Z Z D D IfIf D D 0 0 Then Then RJRJ H H IfEndIfEnd ProgProg JDBJDB IfIf D D 0 0 Then Then ClsCls X L X L Y L Y L LocateLocate 6 1 F6 1 F LocateLocate 6 2 G6 2 G Pol F U G VPol F U G V ClsCls S L S L LocateLocate 6 1 I6 1 I F L F L 360360Frac Frac J 360 J 360 360360 DMSDMS GotoGoto 0 0 IfEndIfEnd IfIf D D 0 0 Then Then ClsCls X Z X Z Y Z Y Z LocateLocate 6 1 F6 1 F LocateLocate 6 2 G6 2 G QXFWJ Z QXFWJ Z Z Z DMSDMS Pol F U G VPol F U G V ClsCls S Z S Z LocateLocate 6 1 I6 1 I F Z F Z 360360Frac Frac J 360 J 360 360360 DMSDMS GotoGoto 0 0 IfEndIfEnd IfIf D D 0 0 Then Then ClsCls X R X R Y R Y R LocateLocate 6 1 F6 1 F LocateLocate 6 2 G6 2 G Pol F U G VPol F U G V ClsCls S R S R LocateLocate 6 1 I6 1 I F R F R 360360Frac Frac J 360 J 360 360360 DMSDMS GotoGoto 0 0 IfEndIfEnd 子程序子程序 1 1 名 名 JDAJDA IfIf O O 0 0 Then Then 1 1 W W ElseElse 1 1 W W IfEndIfEnd WOWO A A B B2 2 2424 R R B 4 B 4 26882688 R R 3 3 Z 6 Z 6 C C2 2 2424 R R C 4 C 4 26882688 R R 3 3 Z 7 Z 7 B B 2 2 B 3 B 3 24240 0 R R2 2 Z 8 Z 8 C C 2 2 C 3 C 3 24240 0 R R2 2 Z 9 Z 9 Z 8 R Z 7 R Z 6 Z 8 R Z 7 R Z 6 coscos A A sinsin A A S S Z 9 R Z 6 R Z 7 Z 9 R Z 6 R Z 7 coscos A A sinsin A A T T RARA 180 B C 180 B C 2 2 L L RARA 180 B C 180 B C 2 2 Q Q R Z 6 Z 7 R Z 6 Z 7 2 2 coscos A A 2 R2 R E E K SK S Z 1 Z 1 Z 1 BZ 1 B Z 2 Z 2 Z 2 QZ 2 Q 2 2 Z 3 Z 3 Z 1 L CZ 1 L C Z 4 Z 4 Z 4 CZ 4 C Z 5 Z 5 子程序子程序 2 2 名 名 JDBJDB X Scos M X Scos M Z 19 Z 19 Y Ssin M Y Ssin M Z 20 Z 20 X Tcos N X Tcos N Z 21 Z 21 Y Tsin N Y Tsin N Z 22 Z 22 IfIf P P Z 1 ThenZ 1 Then GotoGoto 1 1 IfEnd IfEnd Z 1 PZ 1 P L L X S L cos M Dcos Z H X S L cos M Dcos Z H F F Y S L sin M Dsin Z H Y S L sin M Dsin Z H G G M M Z Z GotoGoto 5 5 LbILbI 1 1 IfIf P P Z 2 ThenZ 2 Then GotoGoto 2 2 IfEnd IfEnd P Z 1 P Z 1 L LL L Z 12 BZ 12 B Z 13 ProgZ 13 Prog JDCJDC Z 19 Z 14 cos M WZ 15 sin M Dcos Z H Z 19 Z 14 cos M WZ 15 sin M Dcos Z H F F Z 20 Z 14 sin M WZ 15 cos M Dsin Z H Z 20 Z 14 sin M WZ 15 cos M Dsin Z H G G M 90WLM 90WL2 2 BR BR Z Z GotoGoto 5 5 LbILbI 2 2 IfIf P P Z 4 ThenZ 4 Then GotoGoto 3 3 IfEnd IfEnd P Z 1 P Z 1 L 90 2L B L 90 2L B R R Z 11 Z 11 Rsin Z 11 Z 8 Rsin Z 11 Z 8 Z 14 R 1 cos Z 11 Z 6 Z 14 R 1 cos Z 11 Z 6 Z 15 Z 15 Z 19 Z 14 cos M WZ 15 sin M Dcos Z H Z 19 Z 14 cos M WZ 15 sin M Dcos Z H F F Z 20 Z 14 sin M WZ 15 cos M Dsin Z H Z 20 Z 14 sin M WZ 15 cos M Dsin Z H G G M WZ 11 M WZ 11 Z Z GotoGoto 5 5 LbILbI 3 3 IfIf P P Z 5 ThenZ 5 Then GotoGoto 4 4 IfEnd IfEnd Z 5 PZ 5 P L LL L Z 12 CZ 12 C Z 13 ProgZ 13 Prog JDCJDC Z 21 Z 14 cos N WZ 15 sin N Dcos Z H Z 21 Z 14 cos N WZ 15 sin N Dcos Z H F F Z 22 Z 14 sin N WZ 15 cos N Dsin Z H Z 22 Z 14 sin N WZ 15 cos N Dsin Z H G G N 90WLN 90WL2 2 CR CR Z Z GotoGoto 5 5 LbILbI 4 4 P Z 5 P Z 5 L L X T L cos N Dcos Z H X T L cos N Dcos Z H F F Y T L sin N Dsin Z H Y T L sin N Dsin Z H G G N N Z Z GotoGoto 5 5 LbILbI 5 5 360360Frac Frac Z 360 Z 360 360360 Z Z 子程序子程序 3 3 名 名 JDCJDC IfIf Z 12 Z 12 0 0 Then Then 0 0 Z 14 Z 14 0 0 Z 15 ElseZ 15 Else Z 12 Z 12 Z 12 5 Z 12 5 4040 RZ 13 RZ 13 2 2 Z 12 9 Z 12 9 34563456 RZ 13 4 RZ 13 4 Z 14 Z 14 Z 12 3 Z 12 3 6 6 RZ 13 Z 12 7 RZ 13 Z 12 7 336336 RZ 13 3 RZ 13 3 Z 12 11 Z 12 11 4224042240 RZ 13 5 RZ 13 5 Z 15 Z 15 IfEndIfEnd 程序说明 程序说明 已知数据输入 已知数据输入 XCXC 测站测站 X X 坐标坐标 YCYC 测站测站 Y Y 坐标坐标 K K JDJD 交点桩号交点桩号 X X JDJD 交点交点 X X 坐标坐标 Y Y JDJD 交点交点 Y Y 坐标坐标 LS1LS1 第一缓和曲线长度第一缓和曲线长度 LS2LS2 第二缓和曲线长度第二缓和曲线长度 R R 圆曲线半径圆曲线半径 ZHZH FWJFWJ 交点前 即前交点至本交点也即交点前 即前交点至本交点也即 ZHZH 点 的正切线方位角点 的正切线方位角 Z Y Z Y 本交点处线路转角 左转为负 右转为正 度分秒输入 本交点处线路转角 左转为负 右转为正 度分秒输入 K K 待求桩号待求桩号 Z Z 待求桩号距中距离 左负值 右正值 中为待求桩号距中距离 左负值 右正值 中为 0 0 RJRJ 斜交右角 线路切线前进方向与边桩右侧夹角 斜交右角 线路切线前进方向与边桩右侧夹角 计算结果显示 计算结果显示 T1 T1 第一切线长第一切线长 T2 T2 第二切线长第二切线长 L L 曲线总长曲线总长 LY LY 圆曲线长圆曲线长 E E 曲线外距曲线外距 K ZH K ZH 直缓点桩号直缓点桩号 K HY K HY 缓圆点桩号缓圆点桩号 K QZ K QZ 曲中点桩号曲中点桩号 K YH K YH 圆缓点桩号圆缓点桩号 K HZ K HZ 缓直点桩号缓直点桩号 X X Y Y 待求点的坐标 其中 待求点的坐标 其中 L L 左左 Z Z 中中 R R 右 右 QXFWJ Z QXFWJ Z 待求点的中桩切线方位角 当求中桩坐标时显示 待求点的中桩切线方位角 当求中桩坐标时显示 S S F F 测站至待求点的水平距离 方位角 其中测站至待求点的水平距离 方位角 其中 L L 左左 Z Z 中中 R R 右 右 歪哥哥郑重声明 代码无误 输入注意 使用者使用不当所造成的一切 损失概不负责 返回首页 Tags CASIO 计算器计算器 测量测量 交点法交点法 程序程序 责任编辑 杨浩宇 发表评论 加入收藏 告诉好友 打印此文 关闭窗口 上一篇文章 隧道超欠挖测量新方法 下一篇文章 Casio5800 水准测量高程现场计算小程序 最新图文最新图文 相关文章列表相关文章列表 中央企业职工技能竞赛工程测量工决赛圆满落幕 关于客运专线高速铁路桥梁支承垫石顶面高程精度的探讨 Casio5800 水准测量高程现场计算小程序 盾构隧道平面控制测量技术 隧道超欠挖测