云南交通职业技术学院教案

1、云 南 交 通 职 业 技 术 学 院教 案公路勘测设计拓展学习领域项 目 八fx-4800计算器在公路勘测中的应用工作任务2程序应用(一)工作情景1介绍casio fx4800p计算器在公路勘测中的应用程序班 级授课时间 年 月 日学 时2知识技能点1、了解fx-4800计算器在公路勘测中的应用程序。重 点了解fx-4800计算器在公路勘测中的应用程序。难 点了解fx-4800计算器在公路勘测中的应用程序。教学方法手段理论讲授。教 学 内 容工作任务二 程序应用(一)第二章导线坐标计算及程序一、 导线坐标计算原理：1、统一坐标系： 基本公式：xpx0s cos fypy0s sin f式中：

2、 x0 -已知点o的x坐标 ； y0 -已知点o的y坐标 ； s - 距离 ； f - 方位角 ； xp -计算点p的x坐标 ； yp -计算点p的y坐标 ；2、大地坐标系： 基本公式：epe0s sin fnpn0s cos f式中： e0 -已知点o的横坐标 ； n0 -已知点o的纵坐标 ； s - 距离 ； f - 方位角 ； ep -计算点p的横坐标 ； np -计算点p的纵坐标 ；注：对于大地坐标系统：e坐标对应于程序中的y坐标，n坐标对应于程序中的x坐标。（下同）。建立高等级公路沿线控制网，需进行大量的坐标及方位角计算，极坐标法放样的关键环节同样是如何快速、准确的计算出各控制点的坐

3、标。为此，特编写了导线坐标计算程序，与主程序配套使用。一、 导线坐标计算程序：zb xx0: yy0: lbi 0 : is: cci : xxs cos c yys sin c c 0 => c 360c c 360 => c c360 c goto 0 注：程序录入方法：按mode键，选择5（prog程序），选择1（new新文件），输入文件名，再按exe键确定，选择1（comp普通计算状态），此时即可按照程序清单输入程序，全部输完对照无误后，按exit键退出，选择2（run运行），再按exe键确定即可。二、 程序使用说明：1、x0 ？ - 输入计算起始点x坐标 ；2、y0 ？

4、- 输入计算起始点y坐标 ； 3、c ？ - 输入计算起始边方位角 ；4、i ？ - 输入导线转角：1、 导线左转时，输入负值 ；2、 导线右转时，输入正值 ；5、s？ - 输入至欲计算点的距离 ；6、x - 欲计算点的x坐标 ；7、y - 欲计算点的y坐标 ；8、c - 欲计算边的方位角 ；三、 导线坐标计算示例 ： 如图：已知bp点坐标（134.26 , 240.63），bp jd1ta方位角为：120 ° 12 45，bp jd1ta线距：193.744 m ，jd1ta：z = 21 ° 4557 ，ab = 42.259 m ， tb : z = 16 °

5、; 2925，jd1tb jd2线距：239.377 m ，jd2：y = 14 ° 0128 ，jd2 jd3线距：252.686 m ，试计算图中各交点的坐标值及方位角。 按file键，寻找文件名zb，再按exe键，运行程序zb，并按以下步骤和提示，依次输入数据即可 ：提示行显示数据输入及结果显示x0 ?134.26y0 ?240.63c ?120 ° 12 45i ?0s ?193.744x =36.77y =408.06c120 ° 12 45i ?- 21 ° 45 57s ?42.259x =30.56y =449.86c98 °

6、26 48i ?- 16 ° 29 25s ?239.377x =64.05y =686.88c81 ° 57 23i ?14 ° 01 28s ?252.686x =37.73y =938.19c95 ° 58 51坐标及方位角计算结果如下：序 号x坐标 y坐标 方位角bp134.26240.63120 ° 12 45jd1ta36.78408.0698 ° 26 48 tb30.56449.0681 ° 57 23jd264.05686.8895 ° 58 51jd337.73938.19第二章 程 序 清 单

7、（casio fx4800p计算器）一、 程序录入方法：按defm键，将内存扩展20，按mode键，选择5（prog程序），选择1（new新文件），输入文件名，再按exe键确定，选择1（comp普通计算状态），此时即可按照程序清单输入程序，全部输完对照无误后，按exit键退出，选择2（run运行），再按exe键确定即可。二、 中桩及边桩坐标计算、放样程序：a *主程序*prog xx: opqb: oxa: pya: qf°: bz(y): dqba : z1of cos q : z2pf sin q : z3z1t cos q : z4z2t sin q : klhn: kx0:

8、ly0: hxc: nyc: j0 : pol ( hk，nl ) : z12 j : lbi 0 : k: k z => goto 1 k z7 => goto 2 k z8 => goto 3 k z9 => goto 4 x z1( k z9t ) cos d : y z2( k z9t ) sin d : goto 9 : lbi 1 : lwk : xol cos q : ypl sin q : goto 9 : lbi 2 : lkz : m(l3 ÷ 6rsl7 ÷ 336 r3 s3 )2 (l l5 ÷ 40r2 s2 )

9、 2 ) : uq 30l2 b ÷rs : goto 8 : lbi 3 : lkz7: z5r sin ( 90 (s2l) ÷r)s÷ 2s3 ÷ 240r2 : z6r(1cos ( 90 ( s2l ) ÷r)s2÷24r : m(z52z62) : uqb tan -1 (z6÷ z5) : goto 8 : lbi 4 : lz9k : z5tll5÷40r2 s2 : z6l3÷6rsl7 ÷336r3s3 : ctz5cos az6sin a : ez5sin az6cos a

10、 : m(c2e2) : uqb tan -1 (e ÷ c) : goto 8 : lbi 8 : x z3m cos u : y z4m sin u : goto 9 : lbi 9 : z13x : z14y : goto 7 : lbi 7 : x y i0 : pol ( xh，yn ) : z10 i : z11 j : fz11z12180 : f 0 => ff360 f 360 => ff360 fdeg z10s c (xz15)2(yz16)2) z15 x : z16 y : g : gbz: g 0 => goto 0 g 0 =>

11、g abs g : m - 1 : m 1 k z => vq90m : goto 6 k z7 => vq90l2b ÷rs90m : goto 6 k z8 => vq90b(s2l) ÷r90m : goto 6 k z9 => vqab90l2b ÷rs90m : goto 6 vqab90m : goto 6 lbi 6 : x z13g cos v : y z14g sin v : goto 7三、 选线程序：xx *子程序*sls: a: aia: c0 : f0 : u0 : n0 : lbi 0 : d: dab: d 0

12、 => u u1 : n nd : b: bib: d cd : hd÷sin (ab) : ffh sin b : ch sin a : aab : goto 0 ia÷2 : r 0 => prog r: t 0 => prog t: j t1 0 => t jf : prog t l 0 => r 180 (ls)÷÷a prog r: e 0 => w 1cos i : re cos i ÷w÷2(e cos i ÷w)2s2÷6÷w)÷2 prog

13、r: j: j 0 => goto 3 : goto 4 lbi 3 : u 1 => q n÷( tan (a÷2b÷2) tan (b÷2) : qn÷u÷2÷tan (a÷2÷(u1) : p s2÷24÷q : r qp prog r: lbi 4 : q n÷( tan (a÷2b÷2)tan (b÷2) : p s2÷24÷q : r qp : e(rp)÷cos i r : eej : w1

14、cos i : r e cos i ÷w÷2(e cos i ÷w)2s2÷6÷w)÷2 prog r r *子程序*lbi 0 : ps2÷24÷r s4÷2384÷r3 qs÷2s3÷240÷r2 xss3÷40÷r2 ys2÷6÷r t(rp) tan iq lra÷180s e(rp)÷cos i r u 0 => j t1tf v t2tc br : r: r 0 => goto 0

15、rb : zzhw jdtf z7 hyzs mqzzl÷2 z8yhzls z9hzzl t *子程序*r (ts÷2)÷2÷ tan i (ts÷2)2s2( tan i )2÷6)÷2÷tan i prog r第三章 程序使用方法及步骤一、主程序使用说明： 运行主程序a，并按以下步骤和提示，依次输入数据即可 ：1. ls？ - 输入缓和曲线长 ； 2. ia？ - 输入第一转角 ；3. ab？ - 输入第一基线长 （如为单交，则输入 0 ） ；4. ib？ - 输入第二转角，（至第 n 个转角） ；5. ab

16、？ - 输入第n1基线长 ，如无，则输入0 ；6. r？ - 输入圆曲线半径 （此时如输入0，程序则自动进入选线程序中各种条件控制下，反算圆曲线半径的计算 ；使用方法及步骤，详见选线程序使用说明） ；7. p - 圆曲线内移值 ；8. q - 切线增长值 ； 9. x - 缓圆点x坐标 ；10. y - 缓圆点y坐标 ；11. t - 切线长 ；12. l - 曲线长 ；13. e - 外距 ；14. t1 - 起始边切线长 ；（如曲线为单交，则无t1、t2项显示）15. t2 - 终止边切线长 ；16. r？ - 输入圆曲线半径 （此时所显示半径，如为满意值，请输入0，程序自动进入中线计算；

17、如为不满意值，请继续输入调整后的半径值，直至满意为止，然后再输入0，程序自动进入中线计算） ；17. jd？ - 输入交点里程桩号 ；18. zh - 直缓点里程桩号 ； 19. hy - 缓圆点里程桩号 ； 20. qz - 曲中点里程桩号 ；21. yh - 圆缓点里程桩号 ；22. hz - 缓直点里程桩号 ； 23. xa？ - 输入交点x坐标 ； 24. ya？ - 输入交点y坐标 ；25. f°？ - 输入zh至交点的方位角 ； 26. z（y）？ - 输入曲线的左转或右转信息 ： 、当曲线为左转时，请输入1 ；、当曲线为右转时，请输入1 ； 27. x0？ - 输入归零

18、点x坐标 ； 28. y0？ - 输入归零点y坐标 ；29. xc？ - 输入置镜点x坐标 ； 30. yc？ - 输入置镜点y坐标 ；31. k？ - 输入欲敷设中桩的里程桩号 ；32. x - 欲敷设桩位的x坐标 ；33. y - 欲敷设桩位的y坐标 ； 34. deg - 欲敷设桩位的极角 （放样角度） ；35. s - 欲敷设桩位的极距（放样平距） ； 36. c - 桩距 ；37. bz？ - 输入欲敷设的边桩距中桩的距离 （左边桩则输入负值 ；右边桩则输入正值 ；如不敷设边桩或边桩敷设完毕，请输入0，则程序自动进入下一中桩的计算） 。 注：考虑到某些早期购买的全站仪，输入方位角不便

19、，故本程序后视点仍旧沿用后视点归零的方式。二、选线程序使用说明： 选线程序xx即可作为子程序，也可作为一个单独的程序使用。 运行程序xx，并按以下步骤和提示，依次输入数据即可 ：1. ls？ - 输入缓和曲线长 ； 2. ia？ - 输入第一转角 ；3. ab？ - 输入第一基线长 （如为单交，则输入 0 ） ；4. ib？ - 输入第二转角，（至第 n 个转角） ；5. ab？ - 输入第n1基线长 ，如无，则输入0 ；6. r？ - 输入圆曲线半径 （当输入0时，则程序自动进入选线程序中下列各种条件控制下，反算圆曲线半径的计算 ） ： t？ - 输入欲控制的切线长，程序即可反算出，在该控制条件下的圆曲线半径及相关曲线元素；如欲控制的不是该条件，请输入0，则程序自动进入下一控制条件的计算 ； t1？ - 输入欲控制的zh（或zy）点到ta的距离t1，程序即可反算出，在该控制条件下的圆曲线半径及相关曲线元素；如欲控制的不是该条件，请输入0，则程序自动进入下