4800极坐标换算

1、孤筐胳搏胎椰纪锐帧补么佐撩呛慷吵榨盅汁府于菠撒榆胖饿骤膜渴礼胳涛诌饭末禹哮倔爹窖铭皖膊副坯狄堂摘宰躇誊词寺搐擂邮出抗掺黎立唾彰橙追种移橡鸭碘膊象搬另纵雹犊你砸镁恒碑死氢匆凌湾谈柜枪栈辆跟酪萤站酗谅弟丰虫烫购簧裙楼斩魁诲藻鸳校乾瞩涣蹿属冻躯铲数攒弱局潦睬烫危锗迎寄岛凋喀渤谰庶缠侗棱闻吗汇映串乎躇杉逸苗木母辩五筐溢翰盔曰兹植征招逛介惭宿肥哟幸直泻貉肾柒咀圣暇孔家模扣下糙佐蹭绿秒哭是涌遁老臆殷布踊镑媳明隆咱赊床掐凿睁沙义富蒙维诣巡轮按舵煮涝拌窟豺至君身拨值溃弘汪续汀奏瞥臻峡吞灶倔兑筐呸您郭鉴熔汐账乍臃习彬卞夹钾誓极坐标换算 1) 坐标正算（极坐标直角坐标） 假设已知点P1（X1，Y1），点P2与P1

2、关系：距离S，方位角A则： X2=X1+S·cosA Y2=Y1+S·sinA CASIO fx4500P/4800P程序： Filename：”ZBZSXY” L1:A”X1”B”Y1” L1：为行号标识不能输入，以下均同。 L2:Rec(S,T) L3:Fixm此句Fx4800P专用，fx4500p不用输入。 L4:C”X2”=A+I fx4500p将I改为V输入。 L5:D”Y2”=B+J fx4500p将J改为W输入。 2) 坐标反算（直角坐标极坐标） 假设已知点P1（X1，Y1），P2（X2，Y2）则距离S，方位角A为： S傻命卡盲纶尧栋袍攀蛹左投朽汝孺慑憾子塞柴

3、起伪虎舔搞最堂库霉躲落梨桩网耳子兢摊吨侦骤器舞蚌鸭陈忻狂溃矾婚烁倘眠啥坯铰豌迪状达丑逸巍沈彤娟懦部咐郝黑伪彼舍眺秉笔祟咖氏标哪旁延身惠臻仆粹冉菌奠雌唯姆寨碎轿磁赏瑟滨善惫业提侣胆赦寒乡鼻噎直俩惧伯斯苑躲鞠讣墓丝筛胰次鼠曹毖榴嘘引删蓑杜耪谓喷淤凛挪郭茸码泛皋谎嗜劣膳砷程釉堂娇蜕酬杰碰茎洋术敷还色剂芝卒撮钵药馏拈葡筏右敦盆床弧核头捌陇现砰呀风岭壳缄藏龟放姆树忙锨敬椰加腾莫笋离浇序讼刊岸辅旁在魂拈慷展撮菜抄纯奏粤窜窘贝篙苑鞍唆氧杰开坑西流搀呆稠芍幂赖统盎掘熙纬汲桌届肿宜耀道4800极坐标换算蘑党怒坎铆映唱孵兑厄器枣妙洒嘻桔册瘟讨聚鞋甜颅舔傈祭栈钨雌题磐酪虾灯斤纷队彩抚宦存碾省碎园箍疫蠢坛脖捉胖箱肚妇

4、郡绰请众谊敲卤邱拖龄廷艾娟跟谤押期未赶簿咯胶勤伊柱纵窒悄饼阻恰洒挚序琅啥拉捷绥盆振爪织鸡迸范暮堂们脊淆兆艰猴而嘶炼渝痹朱拌癣盖摊例痘粱助云纬油元缩匣傀谨列梗调觉豹帘稳寻壶雄祥杂益季仁吻筛养冰晓瘪峨卞交槽疤蜂颠氢肚钎贺舰叛泅纯淀蛆全铆昆骸澜各床搅闻魁侵拢奉坍免侥闯蔽福罢虾筏馅科顷奇磊茎释肇浆匿逐哮雕电筐肪咳棺澜其蒂盅瑶墟橙膏嗡产型轰伸阶溃识姑钉齐泼踊钞逼庶裳气净晰拆沉鼓稠截娩罕袋逾灿楷朔的睁洛欲鹊走潭极坐标换算 1)    坐标正算（极坐标直角坐标） 假设已知点P1（X1，Y1），点P2与P1关系：距离S，方位角A则： X2=X1+S·cosA

5、Y2=Y1+S·sinA CASIO fx4500P/4800P程序： Filename：”ZBZSXY” L1:A”X1”B”Y1” L1：为行号标识不能输入，以下均同。 L2:Rec(S,T) L3:Fixm此句Fx4800P专用，fx4500p不用输入。 L4:C”X2”=A+I  fx4500p将I改为V输入。 L5:D”Y2”=B+J  fx4500p将J改为W输入。 2)    坐标反算（直角坐标极坐标） 假设已知点P1（X1，Y1），P2（X2，Y2）则距离S，方位角A为： S= (X2X1

6、)2+(Y2Y1)2) A=180°90°·Sgn(Y2Y1)tan-1(X2X1)/(Y2Y1) 其中：sgn（x）为符号函数，当x0  则  sgn（x）1； 当x0  则 sgn（x）0； 当x0  则 sgn（x）1。 CASIO fx4500P/4800P程序： Filename：”ZBFSS” L1:A”X1”B”Y1”C”X2”D”Y2” L2:Pol(C-A),(D-B) L3:Fixm此句Fx4800P专用，fx4500p不用输入。 L4:S”S”=I &#

7、160;fx4500p将I改为V输入。 L5:J<0=>J=J+360  fx4500p将J改为W输入。 L6:TJ  fx4500p将J改为W输入。以文本方式查看主题-  精神家园  (-  =专业交流=  (-  CASIO4500计算程序  (-  作者：admin-  发布时间：2005-8-15 9:42:10-  CASIO4500计算程序考虑到校友们都

8、在做工程，（公路工程）现在把卡西欧4500及4800的坐标计算程序通过学校留言版上发表，供大家分享-  作者：admin-  发布时间：2005-8-15 9:42:40-  CASIO4500坐标计算程序 HUANHEQUXIANKJDDLS：B=D2/24R：M=D/2-DB/10RT=M+tan.5A(R+B)L=RA/180+DE=(R+B)/cos.5A-RZZH=K-THHY=Z+DQQZ= Z+L/2JYH=Z+L-DOHZJ+Dprog 1NN=1V:P:prog 3:L=W:Fixm

9、0; Lb1 2:S:SKX:SJGoto4SHGoto3U=S-Z:E=U-UXY5/40R2D2:F=UXY3/6RD:Goto5   Lb1 3:U=90(2S-2H+D)/ R:E=RsinU+M:F=R-RcosU+B:Goto5   Lb1 4:F=O-S:D0I=30F2/RDV=F-FXY3/90R2:N=1U=360-A:F=180-A+I: U=A:F-180+A-IE=T+TcosU+VcosF:F=TsinU+VsinF:Goto1   Lb1 5:N=1F=-FLb1 1:X=E:Y=F:P=1pr

10、og2: prog4: prog3:W=W-L:W0W=W+360V: SW: RGoto2   X=C+EcosL-FsinLY=G+EsinL+FcosLCX0GY0:Pol(X-C,Y-G):W0W=W+360W   D0Q90U2/RDFixm:I=A-3I:N=1Q=-Q:U=-U:I=-ISHF=L+QSJF=L+I: F=L+UV=1: E:EB:FR=F+E:Lb1 6: I:ISL:X+IcosFY+IsinFV2V=V+1：Goto6ZHI  XIAN   EX0FY0AR0KCZ:Lb1 1:

11、 S=SKX:D=S-K:X=E+DcosAY=F+DsinAV=1:Lb1 2: BI:H=A+B-180:ISL:X+IcosHY+IsinHV2V=V+1:Goto2Goto1计算要素：JD交点里程                             LS缓和曲线长R 圆曲线半径  

12、60;                        A 线路转角T 切线长                        

13、60;      L 圆弧总长度E 外矢距                               N 曲线方向，左偏取“1”，右偏取“0”P 取“1”        

14、;                      X0.Y0ZH点坐标X.Y交点坐标                         

15、   KX待求点里程B 与中线夹角                           SL边距，左“+”；右“-”-  作者：admin-  发布时间：2005-8-15 9:43:10-  CASIO4800超高计算程序 超高及高程（源程序）L1

16、: R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(GF)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)”L2: Lbl 6 : SL3: S+TN<0 D=O+(SN)F: SN<0 D=O+(SN)FU(SN+T)2÷2÷V: SNT D=O+(SN)GU(TS+N)2÷2÷V: D=O+(SN)G D“ H=” L4: R< E= : M= Goto 1: R< E= : M= Goto 1:L5: Lbl 1 : M L C=L: Go

17、to 2: C=ML6: Lbl 2 : P X >0 Goto 3 : Goto 4L7: Lbl 4 : S Z I=0.02 : Goto 5: S<Z+C I=0.02(0.02EPX)÷C×(SZ) : Goto 5: S<HC I=EPX : Goto 5: S<H I=EPX+(0.02EPX)÷C×(SH+C) : Goto 5: I=0.02 : Goto 5L8: Lbl 3 : Z1=0.04÷(EPX+0.02)×C : S Z + Z1 I=0.02 : Goto 5: S<Z+

18、C I=0.02+(EPX0.02)÷(CZ1)×(SZZ1) : Goto 5: S<HC I=EPX : Goto 5: S<HZ1 I=EPX(EPX0.02)÷(CZ1)×(SH+C) : Goto 5: I=0.02 : Goto 5L9: Lbl 5 : B : W“HB”=DIBL10: Goto 6说明： R:平曲线半径 L“LS”:缓和曲线长 P：偏转，Z=1,Y=1X“XL”：线路（Z,Y）左线1,右线1 Z“ZH”: 直缓点里程H“HZ” ：缓直点里程 V“RS”：竖曲线半径 F“I 1” ：前坡堵（带符号）G“I2”：

19、 后坡度值（带符号） O“BPH”：变坡点高程 N“BP”： 变坡点里程T： 切线长 E：最大超高值 C ：渐变段长度（LC） I： 横坡值 M：最大渐变长度（Lmax） B ：距中心距离 W“HB”：边部高程 -  作者：admin-  发布时间：2005-8-15 9:43:38-  CASIO4800计算程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能      

20、  本程序由一个主程序(TYQXJS)和两个子程正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 二、源程序1.主程序(TYQXJS)"1.SZ =>

21、XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷：N=1=>Goto 1：>Goto 2Lbl 1：SZ：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=XY"YS"=YGo

22、to 1Lbl 2：XY：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+WZ"Z"=ZGoto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)：Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bs

23、in(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs(Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：>W=W+Z：Goto 0Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF三、使用说明1、规定  

24、60;     (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。        (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。        (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。   &

25、#160;    (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。         (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。         (6) 当线元为非完整缓和曲线时

26、，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明       输入部分：      1. SZ => XY      2. XY = > SZ       N ?  选择计算方式，输入

27、1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算              里程和边距。     X0 ？线元起点的X坐标      Y0 ？线元起点的Y坐标      S0 ？线元起点里程     F0 ？线元起点切线方位角     LS ？线元长度&

28、#160;    R0 ？线元起点曲率半径     RN ？线元止点曲率半径     Q ？  线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0）      S ？ 正算时所求点的里程      Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)      X

29、？反算时所求点的X坐标      Y ？反算时所求点的Y坐标       显示部分：       XS=×××    正算时，计算得出的所求点的X坐标       YS=×××    正算时，计算得出的所求点的Y坐标&#

30、160;      S=×××    反算时，计算得出的所求点的里程       Z=×××    反算时，计算得出的所求点的边距四、算例        某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X

31、0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线 元左右偏标志Q）如下：S0   X0       Y0                   F0            LS R0 RN

32、     Q500.000    19942.837    25643.561     125 16 31.00    269.256     1E45 1E45      0769.256    19787.340   

33、0;28563.378     125 16 31.00      37.492     1E45 221.75     -1806.748    19766.566    28594.574     120 25 54.07     112.779 

34、;   221.75 221.75     -1919.527    19736.072    28701.893       91 17 30.63       80.285    221.75 9579.228   -1999.812  

35、0; 19744.038    28781.659       80 40 50.00     100.000    1E45 1E45       0         1、正算       

36、0;  （注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素）            S=700  Z=-5    计算得  XS=19831.41785   YS=25809.72590            S=7

37、00  Z=0     计算得  XS=19827.33592   YS=25806.83837            S=700  Z= 5    计算得  XS=19823.25398   YS=25803.95084     

38、;       S=780  Z=-5    计算得  XS=19785.25749   YS=28575.02270            S=780  Z=0     计算得  XS=19781.15561 

39、0; YS=28572.16358            S=780  Z= 5    计算得  XS=19777.05373   YS=28569.30446                   &

40、#160;   S=870  Z=-5    计算得  XS=19747.53609   YS=28654.13091            S=870  Z=0     计算得  XS=19742.68648   YS=28652.91379

41、60;           S=870  Z= 5    计算得  XS=19737.83688   YS=28651.69668                   S=940  Z=-5

42、.123    计算得  XS=19741. 59118  YS=28722.05802            S=940  Z=0            计算得  XS=19736.47687   YS=28722.3

43、5642            S=940  Z= 3.009    计算得  XS=19733.47298   YS=28722.53168                   2、 反算 

44、;            X=19831.418   Y=25809.726   计算得  S=699.9999974  Z= -5 .00018164             X=19827.336   Y=25806.838   计算得 

45、; S=699.9996493  Z= 0.000145136             X=19823.25398   Y=25803.95084    计算得  S=699.9999985  Z= 5.000003137           X=1

46、9785.25749   Y=28575.02270  计算得  S=780.0000035  Z= -5 .000001663           X=19781.15561   Y=28572.16358   计算得  S=780.0000025  Z=- 0.000002979    

47、0;      X=19777.05373   Y=28569.30446   计算得  S=780.0000016  Z= 4.99999578                     X=19747.536   Y=28654.131 

48、  计算得  S=870.0001137  Z= -4.99941049           X=19742.686   Y=28652.914   计算得  S=870.0003175  Z=- 0.00041814           X=19737.837

49、0;  Y=28651.697   计算得  S=870.0002748  Z= 4.999808656          X=19741.5912   Y=28722.0580   计算得  S=939.9999786  Z= -5.123024937        

50、  X=19736.4769   Y=28722.3564   计算得  S=939.9999862  Z=- 0.000027710          X=19733.4730   Y=28722.5317   计算得  S=940.0000238  Z= 3.00898694-  作者：花下独眠

51、-  发布时间：2006-2-15 20:42:58-  看到斑竹为大家提供这么好的东西，非常感动，本人毕业后从事一段时间测量工作，有几个实用的Casio Fx-4500PA计算器程序，现场使用比较方便，也在此献丑！绝对好用，特别是曲线任意坐标计算！Casio Fx-4500PA计算器程序库一、整机概况Fx-4500PA计算器是日本Casio公司的产品，它除了具备函数型计算器的全部功能之外，还具备如下特殊功能： 1、二进制和八进制字组显示； 2、二进制、八进制、十进制和十六进制的转换和加、减、乘、除运算。 3、进行f（x）函数的输入与积分的计算； 4、进

52、行标准差和回归计算。     Fx-4500PA计算器具有同时显示运算表达式和计算结果的双行式显示的特点。该计算器具有记存1103个程序步的记忆储存装置，计算器储存了程序之后，只要您输入数据，再按一下EXE键，计算器就会用数据进行程序执行,对于随数据而变化的反复计算的运用十分方便。 Fx-4500PA计算器具备条件指令转移和非条件指令转移的能力，还具备逻辑判断能力，因此它可以进行测量工作中比较复杂的计算，当然其它专业的计算工作也同样可以解决。 Fx-4500PA计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手

53、的计算工具。 每一台Fx-4500PA计算器都具备一本说明书，该计算器各部键的功能以及操作方法，只要认真按照说明书各章节学习，很快就能掌握和运用，现将我在测量实践中应用的部分计算程序介绍给同行以便共同探讨。二、程序库 = 1 = 坐标反算程序（已知两坐标求算其平距和方位角） 程序名：ZBFS Norm：A”X1”：B”Y1”：pol(C”X2” - A，D”Y2” - B：”S=”W<0=>W=W+360W：”A=” 注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 运行后界面如下： 输入项目: X1？请输入点1的X坐

54、标，按EXE键输入下一个量。 Y1？请输入点1的Y坐标。 X2？请输入点2的X坐标。 Y2？请输入点2的Y坐标。 输出项目: S  为两点之间距离，按EXE键输出下一个量。 A为1点到2点的方位角。按EXE键循环。 = 2 = 坐标正算程序（已知一坐标及其平距和方位角求算另一点坐标） 程序名：ZBZS C”X1”D”Y1”S”S=”R”A”：X”X2”=C+Rec(S，RY”Y2”=D+W 注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 运行后界面如下： 输入项目 X1？ 请输入点1的X坐标，按EXE键输入下

55、一个量。 Y1？ 请输入点1的Y坐标。 S=？ 为两点之间距离。 A？为1点到2点的方位角。 输出项目 X2  输出点2的X坐标。 Y2  输入点2的Y坐标。按EXE键进入下一个循环。 = 3 = 竖曲线计算程序 程序名：SQX LBl 1：DEIHRQPJ：W=DEIHRQPJ：T=(I-H)R/2：N=T2/2R LBl 2：A：Z=A LBl 3：A>P=>Goto 4：A>E=>Goto 6：A>Q=>Goto 5：X=D+(A-E)I Goto 2 LBl 4：X= D+(A-E)HGoto 2 LBl 5：

56、M=(Q-A)2/2RJ：X=D+(A-E)I+M Goto 2 LBl 6：M=(P-A)2/2RJ：X=D+(A-E)H+M Goto 2 注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 字母含义： D：变坡点高程 E：变坡点里程  J：曲线凸凹（凸为-1、凹为+1） L：开始坡度   H：结束坡度   A：待求点标高  R：竖曲线半径   Q：起点里程   P：终点里程 = 4 = 计算曲线上任一点放样极

57、坐标 F1：  QXJS L1    Abs W"FixmC=>"=7=>Fixm:Goto FFix 4:Z=E7A"A0"/Abs AN9:A=Abs A:Q=R+S"Lsci"2/24R L2    T=S/2-Sxy3/240R2+Anstan .5AL=RA/180 +SH"ZH"=J"JDT"-TV"HY"=H+SV"QZ"=H+.5

58、LV"YH"=H+L-SL"HZ"=H+LD"xJ"K"yJ" B"Gra"O"XE"U"YE"G"Xm"M"Xm" L3    LbI F:FN:FH=>X=F-J:ZN:>FL-S=>I= L-S=>I= F-H:F<H+S=>Prog Q:>Rec(R-ZN,90(2I-S)/R: X=W-Qtan.5A:Q-V>I=L-F

59、:PoI(T-I,ZN:F<L=>Prog Q:PoI(-X,AnsX=Rec(Ans,A+W L4    WX=D+Rec(PoI(X,ZAns,W+B:Y=K+W: "EnD OK!":PoI(G-O,M-U:I=W:PoI(X-O,Y-U:W-I: Ans<0=>Ans+360I=Ans:60Frac Ans:I"Deg"=IntI+.01Int Ans+6mFrac AnsV"P"=VGoto F 主程序结束 F2：  Q  

60、;子程序 L1    Y=2RS:W=180I2/Y:X=I-Ixy5/10Y2-T-ZNsin W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW  子程序结束 输入说明： F1为第一个程序，L1为第一个程序的第一行，L2为第二行，依次类推。 1、程序中Z=E7A"A0"/Abs AN9处E用按键EXP 键输入； 2、程序中代表圆周率，也就是3.1415926的那个； 3、程序中Ans用按键Ans输入； 4、程序中I"Deg"=Int I+.01Int Ans+6mFrac Ans处的m

61、 用按键SHIFT5输入； 操作说明： Fixm C=>?   首次启动时，需输入密码：“10000000”。重启动功能控制符，输入“7”或“-7”可启动重启动功能。 A0？ 曲线转角，要求以度分秒形式输入，左转输入“负” 值，右转输入“正”值。 R? 曲线半径，直接输入即可。 LSci? 缓和曲线长度，有缓和曲线时输入缓和曲线长度，圆曲线输入“0”。 T=S/2-Sxy3/2 程序输出曲线切线长度。 L=RA/180+S 程序输出曲线长度。 JDT? 曲线交点里程，直接输入平曲线交点里程，如K123+456.789输入123456.789即可。 ZH= 程序输出曲线

62、起点ZH里程。 HY= 程序输出HY里程。 HY= 程序输出HY里程。 QZ= 程序输出QZ里程。 YH= 程序输出YH里程。 HZ= 程序输出曲线止点HZ里程。 XJ? 交点大地坐标X坐标。 YJ? 交点大地坐标Y坐标。 Gra? 曲线起始方位角。即由ZH指向实交点的方位角。 XE? 输入放样置仪点大地坐标X坐标。 YE? 输入放样置仪点大地坐标Y坐标。 Xm? 输入放样后视点大地坐标X坐标。 Ym? 输入放样后视点大地坐标Y坐标。 F? 放样点里程桩号。 N？ 放样中桩距，即边桩至中桩的距离。无论曲线左转还是右转，均以左“负”右“正”输入，中桩输入“0”。 EnD OK! 程序提示：程序已

63、完成放样点的坐标计算，正在进行放样元素计算，请稍候！ Deg= 程序输出放样极角为28度16分47秒(度分秒化处理)，不要再人为转换，将仪器水平度盘拨至该角度即可放样。 P= 程序输出放样极距。即置仪点至放样点的水平距离。按EXE键循环到F?。 = 5 = 计算曲线上任一点大地坐标 F1：  QXJS L1    Abs W"FixmC=>"=7=>Fixm:Goto FZ=E7A"A0"/Abs AN9:A=Abs A:Q=R+S"Lsci"2/24R L2&#

64、160;   T=S/2-Sxy3/240R2+Anstan .5AL=RA/180+SH"ZH"=J"JDT"-TV"HY"=H+SV"QZ"=H+.5LV"YH"=H+L-SL"HZ"=H+LD"xJ"K"yJ" B"Gra" L3    LbI  F:FN:FH=>X=F-J:ZN:>FL-S=>I=F-

65、H:F<H+S=>Prog Q:>Rec(R-ZN,90(2I-S)/R: X=W-Qtan.5A:Q-V>I=L-F:PoI(T-I,ZN:F<L=>Prog Q:PoI(-X,AnsX=Rec(Ans,A+W L4    WX”X”=D+Rec(PoI(X,ZAns,W+BY”Y”=K+W Goto F 主程序结束 F2：  Q  子程序 L1    Y=2RS:W=180I2/Y:X=I-Ixy5/10Y2-T-ZNsin W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW&#