坐标反算(4X00)? 下面两篇文章均来自本站的论坛==== 1 ===坐标反算(源程序)File ZBFS1: M“X0” : N“Y0” : A“PJ” : R : L“LS” : T : O“L” : H“ZH” : F“FWJ”2: Z[1]=P“XJD”+T cos ( F+180) : Z[2]=K“YJD”+T sin ( F+180)3: U“R+1,L-1”
程序源清单清单中子程序4和子程序7中的数值为示例高速公路全段的曲线元素(直曲表及逐桩坐标表由海地2000公路优化设计系统生成逐桩坐标表用于检验程序输入的正确性详见后附录一)ZBJS L1 Defm 35:Z[26]=0:Z[27]=1:Prog 1ZBFS L1 Defm 34:Fixm:{XY}:Z[33]=XXp:Z[34]=YYp:Z[26]=2π:Z[27]=1:Prog 11
LbI 0:4→Dimz:Cls→XY→SZ→N:ClsXOU: YOV: SOO:FOG: LSH: ROP:RNR:Q1÷P→C:(P-R)÷(2HPR) →D:180÷π→EN=2=>Goto 2LbI 1:Cls:SS=0=>Goto 0 (注:当S输入0时程序会由LbI 0开始重新运行)Z:Abs(S-O)→WProgSUB1:ClsXS=:X◢YS=:Y◢FS=:F-90 ▼DMS◢
4800坐标反算:lq52搜集??人气: 636??来源:网络? 【字体: javascript:doZoom(16) \t _self 大 javascript:doZoom(14) \t _self 中 javascript:doZoom(12) \t _self 小】【 javascript:() 打印】【 javascript:() 关闭】 ====?1?==
Zbzfs(程序名)“1=>ZX2=>YX3=>A4=>B 5=>C6=>D7=>BZZX8=>BZYX9=>FS”N: (此处有几段竖曲线就输到几,底下Goto Lbl要记得对应)180÷∏→E:N=1=>Goto1:N=2=>Goto2:N=3=>Goto3:N=4=>Goto4:N=5=>Goto5:N=6=>Goto6:N=7=>Goto7:N=8=>Goto8:N=9=>Goto9:
FX-5800正算反算正算Lbl 0:X0C:Y0B:LL:AALbl 1: Rec(LA):IC→I:JB→J:X=:I◢ Y=:J◢Goto 0反算Lbl 0:X0A:Y0B:XX:YYLbl 1:Pol((X-A)(Y-B)) If J<0:Then J360→J:Else J→J:Ifend S=:I◢ A=: J DMS◢ :
#
主程序?? 坐标正反算程序名称:ZBZFSLb1?? A↙30→Dim Z :0=ZS1=FSZ ↙If?? Z=0:Then?? Goto B:IfEnd↙???? (Z=0进入里程点坐标正算)If?? Z=1:Then?? ProgFSLCZ ↙?? (Z=1进入反算里程边桩)Lb1 B?? ↙ProgZBZS ↙子程序反算里程桩 名称:FSLCZLb1?? 1↙XK=X:YK=Y↙(输入任意
坐标正反算程序11ZBZFSLb1?3:1→ZS 2→FSQ↙Q=1=> Goto 1 :Q=2=> Goto 2↙Lb1?1:CE:XM:CE:YF:JLL:FWJA:Rec(LA):MI→C:FJ→D↙CIs↙X=:Locate 31C:Y=:Locate 32D◢Goto 3↙Lb1?2:CE:XG: CE:YH: (HOU)FY:XN: (HOU)FYE↙Po1(N-GE-H) ↙If
Fx5800程序程序源清单清单中子程序4和子程序7中的数值为示例高速公路全段的曲线元素(直曲表及逐桩坐标表由海地2006公路优化设计系统生成逐桩坐标表用于检验程序输入的正确性详见后附录一)ZBJS 36→DimZ:0→Z[26]:1→Z[27]:Prog1ZBFS 36→DimZ:XPX:X→Z[33]:YPY:Y→Z[34]:2π→Z[26]:1→Z[27]:Prog11 Z[16
违法有害信息,请在下方选择原因提交举报