几种常见的程序设计中命名规则

几个常用的：

1、Oracle8/8i/9i数据库（thin模式）

ClassforName("oraclejdbcdriver");

2、DB2数据库

ClassforName("comibmdb2jdbcappDB2Driver");

3、SqlServer70/2000数据库

ClassforName("commicrosoftjdbcsqlserver");

4、Sybase数据库

ClassforName("comsybasejdbcSybDriver");

5、Informix数据库

ClassforName("cominformixjdbcIfxDriver");

6、MySQL数据库

ClassforName("orggjtmmmysqlDriver");

7、PostgreSQL数据库

ClassforName("orgpostgresqlDriver");

8、aess数据库直连用ODBC的

ClassforName("sunjdbcodbc");

在一个路径下不能做到同时满足两个文件名相同（故进程名在同个路径下不可能相同，所以只能更名自身的方法来实现），或者进程名相同路径却不相同（这个楼主不是你想要的吧），

当然还有使用暴力手段强制删除正在运行的这个程序（你想要这个强力删除模块的目的来达到的话那么请继续联系我！）

以下为更名自身并运行的方法（请楼主采纳我吧）

既然他更改了，那你就更名回来！

版本 2

支持库 shell

子程序 __启动窗口_创建完毕

更名自身 (“儍子exe”)

子程序 更名自身, , , 注：第一次更名后自动结束，直至下次与欲更换的文件名一致时才不进行更名自身 *** 作

参数 欲更文件名, 文本型, , 填写完整文件名，如：傻子exe

局部变量 执行文件路径, 文本型

局部变量 命令行, 文本型, , "0"

如果真 (取执行文件名 () ＝ 欲更文件名)

返回 ()

如果真结束

取命令行 (命令行)

执行文件路径 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()

如果真 (取数组成员数 (命令行) ＝ 0)

写到文件 (取特定目录 (11) ＋ “nameexe”, 读入文件 (执行文件路径))

运行 (取特定目录 (11) ＋ “nameexe” ＋ “ name ” ＋ #引号 ＋ 执行文件路径 ＋ #换行符, 假, )

结束 ()

如果真结束

如果真 (命令行 [1] ＝ “name”)

' 终止进程 (路径取文件名 (命令行 [2]))

写到文件 (取运行目录 () ＋ “\data1ini”, 到字节集 (命令行 [2] ＋ #换行符 ＋ 去路径文件名 (命令行 [2]) ＋ “\” ＋ 欲更文件名))

命令行 [2] ＝ 子文本替换 (命令行 [2], #换行符, , , 3, 真)

文件更名 (命令行 [2], 去路径文件名 (命令行 [2]) ＋ “\” ＋ 欲更文件名)

' 更完名后，你知道你想要做什么了吧……

运行 (去路径文件名 (命令行 [2]) ＋ “\” ＋ 欲更文件名, 假, )

结束 ()

如果真结束

子程序 去路径文件名, 文本型, , 总的，参考路径取文件名

参数 路径, 文本型

返回 (子文本替换 (路径, “\” ＋ 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假)), , , , 真))

子程序 路径取文件名, 文本型, , 取指定路径中的文件名(返回文件名)

参数 路径, 文本型, , 完整路径

返回 (取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假)))

1主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)

程序名:1ZD-XY

Lb1 0:Norm

2

F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)

Z[1]=90（与路线右边夹角）

Prog＂THB＂：F=1=>Goto

1:F=2=>Goto 2

Lb1 1:Fix 3:＂ X=＂：Locate 6,4,X◢

＂ Y＝＂：Locate

6,4,Y◢

Prog＂3JS”:Goto 0:

Lb1 2:Fix 3:＂　KM＝＂：Locate 6,4,Z◢

＂D＝＂：Locate

6,4,D◢

Goto 0

2．主程序2：高程序横坡程序(设计任意点高程及横坡)

程序名：2GC

LbI 0:Norm

2

“KM”Z:D:

Prog”H”:Fix 3:” H=”:Locate 6,4,H◢

“ I=”: Locate

6,4,I◢

Goto

0

3主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)

程序名：3JS

X：Y：

1268．123→K(置仪点X坐标)

2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）

Y-L→E：X-K→F：Pol(F,E):IF

J<0:Then J+360→J:Int(J)+001Int(60Frac(J))+0006Frac(60Frac(J))

→J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate

6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)

Fix 3:” S=”:Locate

6,4,I◢

4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)

程序名：4JH-XY

LbI

0:Norm

2

90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)

1→F:Prog”THB”:L:

Z[2]-Z[1]

→E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂ X=＂：Locate 6,4,X◢

＂ Y＝＂：Locate

6,4,Y◢

Prog＂3JS”:Goto

0:

5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）

程序名：5FBX

LbI

0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog

“THB”:Z:D:”M0”M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 075-L→D:Goto

H:Else L-075→D:Goto H:IfEnd

LbI H:Prog”H”:H-003-Z[4] →Z[5]:Z[6] →L:If

Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:

LbI W:Prog

“W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else

Goto 3:IfEnd:

LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto

Z:

LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:

LbI

3:L+Z[12]+G×Z[7]:Goto z:

LbI T:L+05→N:If G>Z[17]:Then

(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:

LbI

Z:Z[3]→D:Fix 2:Abs(D)-S→T:” L0=”:L Locate 6,4,T◢

＂　KM＝＂：Locate

6,4,Z◢

＂D＝＂：Locate 6,4,D◢

“ TW=”: Locate 6,4,Z[5]◢

Goto

0

6．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)

程序名：6GD

Prog

“G0”Z-C→E:(B-A)×E/S+A→L:L:

7．坐标计算次程序（THB）

程序名：THB

18→DimZ：＂KM＂Z：Prog

＂X0＂

1÷P→C： (P-R)÷(2HPR) →S： 180÷π→E：F=1=>Goto 1：F=2=>Goto 2←┘

Lbl

1：D： Abs(Z－O) →W：Prog "A"：X：Y：Goto 3

LbI 2:X：Y：X→I：Y→J：Prog

＂B＂：O＋W→Z：D→D：Goto 3

LbI 3:IF F＝1Then X：Y：Else Z：D

8

正算子程序(A)

程序名：A

01184634425→A： 02393143352→B：02844444444→N

0046910077→K： 02307653449→L：05→M：

U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))

→X：

V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS)))

→Y：

G+QEW(C+WS)+Z［1］→Z［2］：X+Dcos（Z［2］）→X： Y+Dsin（Z［2］）→Y

9

反算子程序(B)

程序名：B

G-90→T： Abs((Y-V)cos(T)-(X-U)sin(T)) →W： 0→D：Lbl 0：Prog

"A"： T+QEW(C+WS) →L： (J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<001:Then Goto1：Else

W+D→W:Goto 0←┘

Lbl 1:0→D：Prog "A"：(J-Y)÷sin(Z［2］)

→D:

10．高程计算子程序（H）

程序名：H

Prog “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If

T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then

Q+LI+L2÷2÷R→H:Goto 0:

LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto

I:LbI I:H:I:

11高程超高计算程序（I）

程序名：I

Prog”I0”:

W=1=> Goto

0:W=2=>Goto 1:

LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else

Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:

LbI 1:If L=0:Then Abs(D)×M→V:Goto

2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:

LbI

2:Abs(D)→E:V÷E→I:I(E-K)→V:

12．数据子程序(附后示例)

①程序名：X0（坐标计算要素程序）

If Z≥25900

And Z≤26615555:Then

25900→O:11587421→U:1847983→V:101。09’231”→G:715555→H:1×1045→P: 1×1045→R:

0→Q:Goto 0: IfEnd:

If Z≥26615555 And Z≤26915555:Then

26615555→O:1144897→U:2550016→V:101。09’231”→G:300→H:1×1045→P: 1800→R:1→Q:Goto

0:IfEnd:

If Z≥26915555 And Z≤27316952:Then

26915555→O:11382792→U:2842531→V:105。55’5183”→G:401396→H:1800→P:

1800→R:1→Q:Goto 0:IfEnd:

……

LbI

0:O:U:V:G:H:P:R:Q:

程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角;

H－线元长度，P－线元起点曲率半径，R－线元终点曲率半径,Q－线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。

②程序名：SO(高程竖曲线要素子程序)If Z≥25900 And

Z≤261578:Then -200000→R:1578→T:26000→C:371→G:001222→I:Goto 0:IfEnd:

If

Z≥261578 And Z≤27421915:Then

300000→R:171915→T:27250→C:3265→G:-000356→I:Goto 0:IfEnd:

If Z≥27421915

And Z≤27889029:Then 1000000→R:134029→T:27755→C:3664→G:00079→I:Goto

0:IfEnd:

……

LbI

0:R:T:G:C:I:

程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡

③程序名：I0（高程超高参数子程序）

15→K:2→W:If

D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≥25900 And Z≤26615555:Then

0→L:-002→M:Goto 0:IfEnd:

If Z≥26615555 And Z≤26735555:Then

120→L:26615555→C:-002→M:002→N:Goto 0:IfEnd:

If Z≥26735555 And

Z≤26795555:Then 60→L:26735555→C:002→M:004→N:Goto 0:IfEnd

If Z≥26795555

And Z≤27436951:Then 0→L:004→M: Goto 0:IfEnd

……

LbI R: If Z≥25900 And

Z≤26735555:Then 0→L:-002→M: Goto 0:IfEnd

If Z≥26735555 And

Z≤26795555:Then 60→L:26735555→C:-002→M:-004→N:Goto 0:IfEnd

If Z≥26795555

And Z≤27436951:Then 0→L:-004→M: Goto 0:IfEnd

……

LbI 0

K:W:L:C:M:N:

字程序中字母表示说明：

K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;L－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。

④程序名：GO(路基标准半幅宽度参数子程序)

If

D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≥25900 And Z≤28110727:Then

Z→C:1725→A:Goto 0:IfEnd:

If Z≥28110727 And Z≤28200727:Then

28110727→C:1725→A:2125→B:90→S:Goto 0:IfEnd

……

LbI R: If Z≥25900 And

Z≤27927478:Then Z→C:1725→A: Goto 0:IfEnd

If Z≥27927478 And Z≤28172:Then

27927478→C:1725→A:27031→B:244522→S:Goto 0:IfEnd

……

LbI 0

C:A:B:S:

字程序中字母表示说明：

C－宽度渐变段起点桩号（不是渐变段C=Z）；A－宽度渐变段起点宽度;

B－宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。

⑤程序名：WO(路基填挖边坡参数子程序)075→Z[7]:1→Z[8]:125→Z[9]:10→Z[10]:10→Z[11]:26→Z[12]:2→Z[13]:2→Z[14]:

15→Z[15]:175→Z[16]:8→Z[17]:2→Z[18]

字程序中字母表示说明：

Z[7]－挖方第一阶边坡边率；Z[8]－挖方第二阶边坡边率；Z[9]－挖方第三阶边坡边率；Z[10]－挖方第一阶高度；Z[11]－挖方第二阶高度；Z[12]－挖方路基碎落台及水沟宽度；Z[13]－挖方第二台阶平台宽度；Z[14]－挖方第三台阶平台宽度；

Z[15]－填方第一阶边坡边率；Z[16]－填方第二阶边坡边率;

Z[17]－填方第一阶高度；Z[18]-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和5FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）

三、使用说明1、规定

(1)

Z“KM”为所求点桩号，反算时为输入大概桩号

(2)

当所求点位于中线时，D=0；当位于中线左铡时，D取负值；当位于中线中线右

侧时，D取正值。

(3)

当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4)

当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆

弧的半径。

(5)

当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半

径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6)

当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的

值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2、输入与显示说明 输入部分：

1

F＝1：ZD => XY

2F＝2： XY = > ZD

F

选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。Z［1］为线元边桩与中线右夹角。

KM？正算时所求点的里程（反算输入大概桩号）

D ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)

X0 ？反算时所求点的X坐标（放样程序中实测X坐标）

Y0

？反算时所求点的Y坐标（放样程序中实测Y坐标）

显示部分：

L 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负

M0

边坡放样程序中原地面标高输入

X= 正算时，计算得出的所求点的X坐标

Y=

正算时，计算得出的所求点的Y坐标

FWJ=

正算时，计算得出的所求点的至置仪点方位角（在3JS程序中应输入X、Y坐标值于K、L）

S=

正算时，计算得出的所求点的至置仪点距离

KM= 反算时，计算得出的所求点的里程

D=

反算时，计算得出的所求点的边距

H= 所求点位置设计路面顶标高

I=

所求点位置设计路面横坡

L0= 边桩放样程序中实测点至设计边坡点距离，正向内移，

FX4800P常用测量程序集

1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）

程序清单：

X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐 标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）

程序清单：

M“X0”：N“Y0”：D“XH”：E“YH” �6�8

Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢

I“S=”◢

Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）

程序清单：

C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}�6�8

T=E+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=C+Scos T◢

Y=D+Ssin T◢

Goto 1

程序运行说明：

变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）

M“X0”：N“Y0”：D“XH”：E“YH” �6�8

Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢

I“S=” ◢

Lb1 1:{SA}�6�8

T=F+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 1

5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：

V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2�6�8

Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3�6�8

Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+360⊿H=J：H“TH-0=”◢

I“S-H=”◢

Goto 3�6�8

Lb1 3: X=F：Y=G：T=H ： V=1=> Goto 4:≠> Goto 5�6�8

Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 4

Lb1 5：{AS}:A:S

T=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=F+Scos T◢

Y=G+Ssin T◢

Goto 5

6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）

程序清单：

F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}�6�8

Pol(X-F，Y-G) �6�8

J〈0 =〉J=J+360⊿A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 1

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

7、已知置镜点和后视点坐标进行放样（FY2）

程序清单：

F“X0”：G“Y0”：M“XH”：N“YH”�6�8

Pol(M-F，N-G)：Fixm：H=J�6�8

H〈0=〉H=H+360⊿H“T-H=”◢

I“S-H=” ◢

Lb1 1:{XY}: Pol(X-F，Y-G) �6�8

J〈0 =〉J=J+360⊿�6�8

A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=”◢

I“S=” ◢

Goto 1

8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）

程序名“FY”

程序清单：

I“I=1 =>1-D≠>2-D”�6�8

I=1=> Goto 1:≠> Goto2�6�8

Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3�6�8

Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J:H“T-H=”◢

I“S-H=”◢

Goto 3�6�8

Lb1 3：{XY}�6�8

Pol(X-F，Y-G) ：Fixm �6�8

J〈0 =〉J=J+360⊿A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 3

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）

程序清单：

A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿J“T（1-2）=” ◢

I“S（1-2）=”

10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB）

程序清单：

X=（tan A“T1”×B“X1”-C“Y1”-tan D“T2” ×E“X2”+F“Y2”） V÷（tan A- tan D）◢

Y= tan A（X-B）+C

11、直线线路坐标计算（ZXXY）

程序清单：

V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢

Y=W+（K-U）sin T+D×sin(T+90)◢

Goto 0

程序运行说明：

已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。

12、“缓+圆+缓”型曲线坐标计算

主程序（QXJS）

程序清单：

Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1，Z-1）” �6�8

Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2�6�8

Lbl 2:K Goto3:≠> Goto4�6�8

Lbl 3:“K—OVER”: Goto1�6�8

Lbl 4:K>Q+L => Goto3:≠> Goto5�6�8

Lbl 5:K≤Q+B => Goto6:≠> Goto7�6�8

Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1�6�8

Lbl 7：K≤Q+L-C => Goto8:≠> Goto9�6�8

Lbl 8:S=K-Q：O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1�6�8

Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢

V=-V�6�8

X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢

Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢

Goto1�6�8

子程序“BQXYS”

A:R:B“L01”:C“L02” �6�8

M“M1”=B÷2-B3÷（240 R2）◢

J“M2”=C÷2-C3÷（240 R2）◢

P“P1”= B2÷（24 R）- B4÷（2688 R3）◢

Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢

T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢

H“T2”=J+（R+Z）tan(A÷2)+( P-Z) ÷sinA◢

L= B÷2+C÷2+A RЛ÷180◢

E= ◢

子程序“HQXY”

U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5))

子程序“YQXY”

U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P)

程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。

先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZH—JD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示K—OVER，继续输入有效里程可继续计算。

对于单圆曲线，缓和曲线长输入0。

本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。

13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）

程序名“XLJS”

程序名“XLJS”(V11，2005年12月7日星期三升级于秦岭公司)

G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1÷RA ,Z-，Y+”：P“KA=”�6�8

Lbl 1：{FQ}：F“1÷RB, Z-，Y+”：Q“KB=” �6�8

Lbl 2：{V}：V“K=”：O=V：O

Goto3：≠> Goto4�6�8

Lbl 3：“K-SMALL”：Goto2�6�8

Lbl 4：O>Q => Goto5：≠> Goto7�6�8

Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6�6�8

Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8�6�8

Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”�6�8

Lbl 8：T=C+90÷Л×（2E+（F-E）（V-P）÷（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿�6�8

Rad：W=A+∫（cos（C°+05×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×cos(T°+Z°) �6�8

Y=B+∫（sin（C°+05×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×sin(T°+Z°)：Deg：Goto9�6�8

Lbl 9：O≤Q => GotoB：≠> GotoA�6�8

Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1�6�8

Lbl B： W“X=”◢

Y“Y=”◢

T“T=”◢

Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M�6�8

J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢

I“S=”◢

Goto 2

程序积分式中“°”的编辑输入为：“FUNCTION”键+5（DRG）+4（°）。

程序功能

由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。

程序运行

运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1÷RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1÷RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。

程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I=1=>ESC≠>NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消” *** 作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN：A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=？”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。

迁站时，直接按“AC”键终止程序的运行，到新的测站后重新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。

当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为00001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R，KB=直线终点里程+00001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先输入微小长度的回旋线（1/RB=1/R2，KB=第一圆曲线终点里程+00001），然后输入第二圆曲线终点的曲率和里程即可。

有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。

14、四等水准测量记录计算程序（红黑面常数为4687、4787）

Lbl 0:“H4687=>I=1”: Fixm: {IABCD}：I=1=> Goto1: ≠> Goto2�6�8

Lbl 1:U=4687:W=4787: Goto3: Lbl 2:U=4787:W=4687: Goto3: Lbl 3:

G“H1”=A“HOU1”-B“QIAN1”◢

E“V2”=B-C“QIAN2”+W◢

F“V1”=A-D“HOU2”+U◢

P“H2”=D-C◢

H=（G+P+W-U）÷2

程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。

15、高斯抵偿高程投影面边长改正计算FX-4850程序

E“YI-CHANG：hm=”：F“DI-CHANG：Hm=”�6�8

Lbl 1:{HYS}：H“PING-JUN：Hp=”:Y“PING-JUN：Ym =”:S“GUAN-CE:S=”:V=-S×(H+E-F)÷(6371000+H+E)×1000:W=S×Y2÷(2×63712)×1000:D=S+( V+W)÷1000�6�8

“V1=”:V◢

“V2=”:W◢

“D=”:D◢

Goto 1

说明：该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm=0，即认为高程异常可忽略，Hm为抵偿高程，当没有设抵偿高程面时取Hm=0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。

hm=0，Hm取隧道平均高程面高程，Ym=0时，为计算隧道平均高程面的投影改正。

以上就是关于几种常见的程序设计中命名规则全部的内容，包括:几种常见的程序设计中命名规则、c语言子程序的写法，子函数main函数写哪，还用写吗、VB浏览器后退前进代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！