求卡西欧5800圆曲线计算程序

(CASIO-4850)竖曲线标高计算程序--全线贯通

(CASIO-4850)竖曲线标高计算程序

1,加了水准点数据.

2,加了竖曲线数据库(实现了全线贯通)

3,加了测量仪器的选择功能

4,能进行现场高程放样工作

(能计算除了超高段以外的任意桩号的中桩及任意距离边桩高程)

[SJG]------------------主程序

E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘

L ≤0=>{AO}:Goto 0 : ≠>L<B-T=>Z=0:P=I: ≠>L<B=>Z=1:P=I :≠>L<B+T=>Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘

Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘

Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢

Goto 0←┘

[SQX]------------------子程序

L≤932.25(第二竖曲线起点桩号)=>H=179.17(第一竖曲线交点高程):B=160(第一竖曲线交点桩号):R=7000(第一竖曲线半径):I=-0.003(第一竖曲线前坡度):J=0.005(第一竖曲线后坡度):Goto 1⊿

L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿

Lbi 1

…………………………继续添加竖曲线要素(坡度上+下-),括号内的数据供测试程序用

说明:

选择主程序进入

1, LGP?----------输入路拱坡度,负值 (按EXE键)

2, JGC?----------输入结构层厚度(按EXE键)

3, BM?-----------输入水准点高程(按EXE键)

4, HS?------------输入后视读数(全站仪测量时带+,-号)(按EXE键)

5, 1,SZY

-1,QZY

SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)

6, K≤0 BREAK

K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)

7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)

8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)

显示:

9,12.3-------------设计高程

11.2-------------实测高程

+T,-W

1.1(填挖量,+填-挖)

(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.

本程序是在yshf及hangniu1973两位师傅的成果上作的一次改动，修改内容主要有一下几点：1、在变量符号上修改，目的是更能与工地实际结合；2、把原主程序分为两个，更能灵活调用；3、加入放样程序，做到坐标计算到放样一体化；4、使得整个测量放样过程更加简单。附件(点击下载)：GAUSSLE坐标正反算fx－4850程序源程序1.正算主程序 GSZSI"X0"：S"Y0"：O"K0"：G"F0"：H"KN"：P"R0"：R"RN"：Q”Q(-Z +Y)” :D=(P-R)÷(2(H-O)PR)：KL”L(-Z +Y)” :M”ANG(YJJ)”=90:（注：此处若不给M赋值，则可计算斜交点）J=Abs(K-O)：Prog"SUB1"：”FWJ=”:F=F-M:”X=”:X=X:Pause0: ”Y=”:Y=Y◢2. 反算主程序 GSFSXY：Z[2]=X：Z[3] =Y：I"X0"：S"Y0"：O"K0"：G"F0"：H"KN"：P"R0"：R"RN"：Q”Q(-Z +Y)” :D=(P-R)÷(2(H-O)PR):J=Abs((Y-S)cos(G-90)－(X-I)sin(G-90))：L=0：M”M(YJJ)”=90:Lbl 0：Prog "SUB1"：L=(Z[3]-Y)cos(G-90+QJ(1÷P+JD)×180÷π)-(Z[2]-X)sin(G-90+QJ(1÷P +JD) ×180÷π)：AbsL<1E-6=>Goto1：≠>J=J+L：Goto 0Δ←┘Lbl 1：L=0：Prog "SUB1"：L=(Z[3]-Y)÷sinF:”K=”:K=O+J:Pause0:”L=”:L=L◢3. 正算子程序(SUB1)Defm 4:A=0.1184634425:B=0.2393143352:Z[4]=0.2844444444:C=0.0469100770:E=0.2307653449:Z[1]=0.5:X=I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD)×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Acos(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π)):Y=S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD)×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Asin(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π))：F=G+QJ(1÷P+JD) ×180÷π+M：X=X+LcosF：Y=Y+LsinF4. 曲线元要素数据库：DAT-MK≥O=>K＜H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K＜H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘ K≥O=>K＜H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K＜H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K≤H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘ ……………………………K≥O=>K≤H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘

如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！ vae.la

楼上右CDb1 - >cdbl这个问题应该是完整的拼写错误

楼主你的代码是没有上市呢？

殿下数字和字母的按钮时，你应该调用每个num_Click，和oper_click活动，并通过在相应的数字，不知道楼主是不是上或没有写呢？

另外，我用vb.net字符串串联不允许被写入到不使用+字符串与string2中

房东还不清楚房东的问题或错误消息的症状起来，让大家看看

---