版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、CASIO-fx5800 (任意平曲线极坐标与直角坐标放样,求里程及边距) 湖南津市 赵济汉主程序PQX Deg : Fix 3 : “XZ0:YZ1”?A : If A = 1: Then Goto 1 : IfEnd If A = 0 : Then “ BS0:XY1:AND2:DK3:L(I)4 ” ?O : IfEnd If O = 4: Then Goto 1 : IfEnd If&
2、#160; O = 3: Then Prog “ F.2 ” : If X= 0 : Then Goto 1 : IfEnd : IfEnd If O 1: Then “ X1 ” ?X : “ Y1” ?Y : XZ11: YZ12: “ X2 ” ?P : “ Y2” ?Q : Pol( PX , QY) : If J0 : Then J + 360J : IfEnd : Cls : “ S12= ” :
3、Locate 6 ,1, I : “ B12= ” : J DMS1B : IfEnd If O = 1: Then “XY(0) 0: 1” ? B: IfEnd Lbl 1 : If A = 1 And O = 3 :Then Prog “ F.2 ” : IfEnd : Prog “ Q.1 ” 子程序PPQX
4、; (给定综合曲线属性)“ ZQX 0: * 1: * 2 * ” ?C If C=0: Then 100Z98: n0 Z99: IfEnd If C=1: Then m1Z98: n1 Z99: IfEnd If C=2: Then m2Z98: n2 Z99: IfEnd *Prog “ PQX ” 其中: mi为第i条综合曲线矩阵变量起始单元,(第1条综合曲线矩阵变量起始单元应自100开始,以便其他程序临时使用100以前
5、的矩阵变量,综合曲线中每一基本单元需8个矩阵存储单元); ni为第i条综合曲线中基本单元数,每增加一个条综合曲线则增加一行If C=*Z99: IfEnd语句。还应注特别意,原有程序中的矩阵变量定维语句DimZ应取消,只要原有程序中的矩阵变量定维不大于100,原有程序的运行不受影响。子程序Q . 5 (建立数据库)Deg : Fix 5 0I : “ N ” ? W : W Z99: “ZMIN”? V :
6、VZ98Lbl 1 : “NO.I= ”: I Lbl C : V + 8 IG “DK ”?A : AZG“X ”?B : BZG + 1“Y ”?C : CZG +2“AT ”?D : DZG +3“(1Y+1) ”?K : KZG +4“L ”?E : EZG +5“R1 ”?F : FZG +6“R2”?O : OZG +7Lbl 2 : “JX1: NO0 : OK2”? M : If M = 2 : Then Goto 3 : IfEnd : If M
7、 = 1: Then Goto C : IfEnd I + 1I : Goto 1 Lbl 3 : “END ”子程序Q . 6Lbl 1 : “S ” ? W : If W = 0 : Then Goto 2 : IfEnd IWW : Cls : “S= ” : Locate 5 , 1 , W : “ BP= ” : J DMSGoto 1 Lbl 2 : Cls : “ OK ”子程序Q.1
8、If X = 0 And O = 3 : Then Goto 2 : IfEnd Lbl 1 : Z98 I : Z99 J : “ DKP ” ? S If S = 1: Then Prog “JH . ZJ ” : Goto 1 : IfEnd (加桥台转轴时)If S = 2: Then Prog “ZH
9、. 2 ” : Goto 1 : IfEnd (加涵通转轴时)If S = 0: Then Goto 2 : IfEnd : If SZ I : Then “ DKP<MIN ” Goto 1 : IfEnd : If S > Z I + 8 J : Then “ DKP>MAX ” Goto 1 : IfEnd If O 4 And B
10、 0 : Then “ B ” ? V : V : Prog “ J ” : TU : “()D÷2 ” ? N : Else 0 N : IfEnd Prog “ Q.2 ” : Goto 1 Lbl 2 : “ END ”子程序Q . 2If O 3 : Then “ ” : IfEnd 0I : Z98+ 8 M If S ZM8 And S ZM :Then Goto &
11、#160;1 : IfEnd Lbl 2 : I +1 I : M + 8 M If S ZM :Then Goto 1 : Else Goto 2 : IfEnd Lbl 1 : If O = 3 : Then I B :IfEnd : MZ27: If O 4 : Then Prog “
12、Q. 3” : Else “ L(I) , I = ” : I Cls : “ MIN = ” : Locate 6 , 1 , ZZ98+8 I : “ MAX = ” : Locate 6 ,2 , ZZ98+8 I +8:IB : IfEnd 子程序Q . 3If O = 3 And U = 0 : Then BI : IfEnd Z98+8 I G ZGZ ZG +1Z1: ZG +2Z2: ZG +3Z3 Z3:Prog
13、 “ J ” : TZ3ZG +4Z4: ZG +5M : 1÷ ZG +6Z5: 1÷ ZG +7Z6Z6Z5Z6: SZD If O = 3 : Then 0N : IfEnd : Prog “Q . 4 ”子程序Q .4 (正算)Lbl 0 : 0I : 0E:0F : 0G : 0H Lbl
14、60;1 : I + 1I : Z3+ Z4( ( I D÷12) ( Z5+ I D Z6÷24÷M ) ( 180÷ ) W : If I 12: Then If Frac ( I÷2 ) 0 : Then E + cos ( W ) E : F + sin ( W ) F : Else G + cos ( W ) G : H + sin ( W ) H : IfEnd : IfEnd If I 12 : Th
15、en Goto 1:IfEnd Z1+(D÷36)( cos ( Z3) + cos ( W ) + 2G + 4E ) + N cos ( U + W ) P Z2+(D÷36)( sin ( Z3) + sin ( W ) + 2H + 4F ) + N sin ( U + W ) Q If O = 3 : Then Goto 2 : IfEnd If O 0 : Then Cls : “ XP = ” : Locate 5 , 1 , P
16、 : “ YP = ” : Locate 5 , 2 , Q : “ AT = ” : WDMSIfEnd Z27I : If ZI S = 0 And ZI + 1= 0 And N = 0 : Then P ZI + 1: QZI + 2: W : Prog “ H ” : TZI +3: IfEnd If O 1: Then Pol( PZ11, QZ12) : If J < 0 : Then J360J :
17、 IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J DMSProg “ Q. 6 ” : IfEnd Lbl 2子程序F . 2 (反算)“ ZH.D(LI) 0 : NO1” ? U Lbl 2 : If U = 0 : Then “ I ” ? B : IfEnd Z98+ 8 Z99M If
18、; X = 0 : Then Z13X : IfEnd : “ X ” ? X : If X = 0 : Then Goto 3 : IfEnd “ Y ” ? Y : 1 Z8“= ” If U = 1 : Then ( ( XZM + 1) ² + (YZM +2) ² ) Z7: Z7+ZMS : Prog“Q . 2”: IfEnd Z98+ 8 BM : ZM +3: Prog“J ”: T90T ( YZM +2) cos
19、 (T) ( XZM + 1) Sin (T) Z7If U =1 And Abs ( Z7) 0.01: Then 0.01 Z7: IfEnd Z7D : ZM+ D S : If S > ZM +8: Then ZM +8S ; IfEnd If U = 0 : Then Prog“Q . 3”: Else Prog“Q . 2”: IfEnd “= ” Lbl 1 : ( YQ ) c
20、os (W90)(XP) sin (W90) Z8Z + Z7+ Z8SIf Abs ( Z8) 0.0001: Then Z7+ Z8D : Prog“Q .4”: DZ7: Goto 1: IfEnd If U =1: Then If S + 0.01< Z : Then “ DKP ” : S If B< Z991 : Then B1B : ZZ98+ 8B I : ZJ : Else ZI : ZZ98+ 8 Z99J : IfEnd : “
21、L(I)= ” : B Cls : “ MIN= ” : Locate 6 , 1 , I : “ MAX= ” : Locate 6 , 2 , J : “ END, =ZH.D(LI)”X Z13: 0X : 3O: Goto 3 : IfEnd: IfEnd If U =0: Then If S< Z 0.01 : Then “ DK<MIN,L(I1) ” Goto 2 : IfEnd : If S> ZZ98+ 8(B+1) + 0.0
22、1: Then “ DK>MAX , L(I+1) ” Goto 2 : IfEnd : IfEnd Cls : “ DKP=” : Locate 6 ,1, S : XPP : If P =0: Then ×109P : IfEnd : Pol( P , YQ) : If sin(WJ)>0: Then II : IfEnd : “ D÷2= ”: Locate 6 , 2, I : Goto 2Lbl 3子
23、程序 JAns ÷ . 36 16 ( Int ( Ans ) ) ÷ 9Int (100 (Ans Int (Ans ) ) ) ÷90T子程序 H. 6 4 Int ( Ans )+. 36 Ans + . 004 Int ( ( 60 ( Ans ( Int (Ans ) ) T 为了实现桥台转轴坐标计算,现(2009.04.19)加一个子程序如下:子程序 JH . ZJ (桥台转轴)“=B ”? V
24、 : V : Prog“J : W + TT Lbl 1 : “=(Y +) D ”? N : N = 0 = Goto 2 : “=( +) S ”? SPol(N , S ) : Rec( I ,TJ ) Cls : “X = ”: Locate 6, 1 , I + P : “Y = ”: Locate 6 , 2 , J + Q Goto 1 Lbl 2 : “ OK ” 在子程序Q.1 中语句 Lbl 1 : Z98 I : Z99 J : “ DKP ” ? S 后加If&
25、#160; S = 1: Then Prog “JH . ZJ ” : Goto 1 : IfEnd (加桥台转轴时)就可以了,(2009.04.19以加,见绿色标注语句。 桥台(桩基)转轴直角坐标计算 运行提示符 直角坐标放样令DKP=
26、-1时,转向桥台(桩基)转轴直角坐标计算 提示符说明 以上一测点中桩为中心作偏转 = B ? 问转轴偏角(以小数点为度) =(Y + ) D? 问偏距(与直角坐标放样时意义一致)。赋值0时转向OK =( + ) S? 问支距(小里程方向为,大里程方向为+) X= &
27、#160; 给出点位纵坐标 Y= 给出点位横坐标 &
28、#160; OK 本转轴各点计算结束,返回直角坐标放样。子程序 ZH . 2 (涵通转轴)“=B ”? V : V : Prog“J”: W + TTLbl 1 : “=( +) K ”? S : S = 0 = Goto 2 : “=(Y +) D ”? N N Cos ( T) + P X
29、 : N Sin ( T) + Q Y Cls : “X = ”: Locate 6, 1 ,S Cos( W ) + X : “Y = ”: Locate 6 , 2 , S Sin(W ) + Y Goto 1 Lbl 2 : “ OK ” 在子程序Q.1 中语句If S = 1: Then Prog “JH . ZJ ” : Goto 1 : IfEnd 后加
30、0; If S = 2: Then Prog “ZH . 2 ” : Goto 1 : IfEnd (加涵通转轴时)即可。
31、160; 涵通转轴直角坐标计算 中桩直角坐标放样令DKP=2时,提 示 符 示 例 说 明 以上一测点中桩为中心
32、作偏转= B ? 问涵通偏角(以小数点为度)=( + ) K? 问里程差(相对于涵通中桩,小里程为、大里程为+),赋值0时转向OK=(Y + ) D? 问偏距(与直角坐标放样时意义一致)X=
33、60; 给出点位纵坐标Y= 给出点位横坐标 OK 本转轴各点计算结束,返回直角坐标放样。算例1 例某工程C匝道:
34、; 根据算例数据确定综合曲线属性: 令名 C.ZD 令编号0 令(矩阵存起始储单元 )ZMIN= 100 (综合曲线段数,不含终点)N = 4 红色数据应在Q.5程序运行时按提示赋值 一 给矩阵存储单元定维:(COMP状态下) 140DimZ 二 编写程序PPQX(PROG状态下给定综合曲线属性)
35、60;“ C. ZD 0 ” ? C If C=0: Then 起始单元100Z98: 段数4 Z99: IfEnd Prog “ PQX ” 三 启动Q . 5 按下列数据建立矩阵存储表 (COMP状态下按提示赋值,详见附件运行提示符) 自 然段名称 L0
36、60; L1 L2 L3 L4 DK 0
37、160; 190 355.927 472.168 561.791X 20934.495 21066.119 21142.859 21076.993 20988.267Y 89274.1
38、72 89411.182 89552.427 89640.286 89644.485AT 47.08177 45.09322 93.33281 160.09323 185.50027±1 -1
39、 1 1 1 0L 190 165.927 116.241
40、 89.623 0R1 5500 5500 100 100
41、 0R2 5500 100 100 ×1020 0 备注: 起始矩阵存储单元 Z100 终了矩阵存储单元 Z139 。 (139 =100 +8 × 5-1)四 启动程序PPQX(COMP状态下指定需计算的综合曲线编号) C. ZD 0 ?
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 中国人手腕部骨龄标准-中华05:第一近节指骨部分
- 食品安全教育大班教案(20篇)
- 部编版二年级语文上册识字3《拍手歌》精美课件
- 低分子肝素钙的使用课件
- 【冀教】第三次月考卷【1-4章】
- 2024年四川省凉山州中考地理真题卷及答案解析
- 新能源汽车动力电池管理及维护技术教案任务4
- 苏教版二年级上册劳动与技术(劳技)教案
- 五一初中实践活动方案
- 卫生用消毒剂项目评价分析报告
- 自乂琐言-袁保庆
- 2022年吉林长春南关区东北师范大学附属中学(新城校区)七上期中数学试卷
- 钢筋组织供应、运输、售后服务方案
- DB34∕1659-2022 住宅工程质量常见问题防治技术规程
- 辞职信个人原因辞职信
- 异质性企业贸易理论的发展课件
- BCG矩阵图文详解
- 某汽车制造公司12万辆整车项目安全预评价报告
- 红色温馨生日快乐祝福相册PPT模板课件
- 中小学落实“双减政策”,加强“五项管理”资料(全套完整)
- 光缆通信线路工程的设计毕业论文
评论
0/150
提交评论