(整理)线路计算程序
- 格式:doc
- 大小:47.50 KB
- 文档页数:13
线路、变压器参数计算第一部分:线路一:线路参数表输电线路参数统计附页:棉线杆塔示意图垂直排列1(包棉线挂在中回路)垂直排列2(包棉线挂在中回路)垂直排列3(棉纺线挂在上回路)首先看懂线路参数表的内容:1、线路的长度2、线路的型号3、线路的排列方式4、备注内容二、线路几何均距的计算1、明确三相的排列方式及相与相间的距离水平排列、三角排列、垂直排列等…….. .A B CAB C...ABC几何均距的计算公式:Dcp=3√(AB× BC×CA)例如:AB=4.7768 mBC=5.7762 mCA=6.11248 mDcp=3√(AB× BC×CA)=3√(4.7768×5.7762×6.11248)=5.5287 m取:5.5 m三、线路等值阻抗的计算公式1、线路的电阻RR=ρ.L/S公式中:ρ---电阻率,铝为31.5(Ω.mm2/Km)、铜为18.8(Ω.mm2/Km)L---导线长度S---导线截面积2、线路的电抗X单导线:x=0.1445lg(Djj/rdz)+0.0157(Ω/km)公式中:Djj-----三相导线的几何均距(计算出来的)rdz -----每相导线的等值半径(cm)。
计算公式为rdz= ª√(r·djj ª¯ ¹)rdz= ª√(r·djj ª¯ ¹)= 1√(r·djj 1¯ ¹)= r(从书中查---分裂导线中次导线半径)分裂导线:x=0.1445lg(Djj/rdz)+0.0157/a(Ω/km)公式中:Djj-----三相导线的几何均距(计算出来的)rdz -----每相导线的等值半径(cm)。
计算公式为rdz= ª√(r·djj ª¯ ¹)a-----每相分裂导线的根数其中:rdz= ª√(r·djj ª¯ ¹)当线路为双分裂导线时a=2则:rdz= ²√(r·djj ²¯ ¹)=√(r·djj )公式中:r -----分裂导线中次导线半径(从书中查)djj -----每相次导线间的几何均距式中:djj=σ·d=σ×400(mm)当线路为双分裂导线时σ=1公式中:σ-----次导线排列方式二分裂σ=1三分裂(正三角)σ=1三分裂(水平)σ=1.26d-----次导线距离,一般取400(mm)3、线路的阻抗Z有名值:Z=√(R²+ X²)标幺值:Z*=Z×Sj/Ucp²=0.0341公式中:Sj-----系统基准容量100MVAUcp-----平均电压,220KV为230KV、110KV为115KV、35KV为37KV10KV为10.5KV4、线路阻抗角ФФ=arctg(X/R)第二部分:变压器一、变压器参数表电力变压器参数站名:编号:投运日期:制造厂:出厂日期:型式:首先看懂线路参数表的内容:1、变压器的容量及容量比2、变压器的电压比及分头3、变压器的接线方式4、备注内容二、变压器等值阻抗的计算1、变压器的电阻值R(1)两卷变压器的电阻值RR=ΔP.Ue2.103/Se2 (Ω)公式中:R1------变压器绕组电阻值ΔP1------变压器的短路损耗值Ue------变压器高压侧额定电压Se------变压器高压侧额定容量(2)三卷变压器的电阻值R高压侧R1=ΔP1.Ue2.103/Se2 (Ω)中压侧R2=ΔP2.Ue2.103/Se2 (Ω)低压侧R3=ΔP3.Ue2.103/Se2 (Ω)公式中:R1------变压器高压侧绕组电阻值(归算到变压器高压侧)R2------变压器中压侧绕组电阻值(归算到变压器高压侧)R3------变压器低压侧绕组电阻值(归算到变压器高压侧)ΔP1------变压器高压侧绕组的短路损耗值ΔP2------变压器中压侧绕组的短路损耗值ΔP3------变压器低压侧绕组的短路损耗值Ue------变压器高压侧额定电压Se------变压器高压侧额定容量其中:ΔP1=(ΔP12 +ΔP13-ΔP23)/2ΔP2=(ΔP12 +ΔP23-ΔP12)/2ΔP3=(ΔP13 +ΔP23-ΔP12)/2公式中:ΔP1、ΔP2、ΔP13----各绕组的短路损耗ΔP12、ΔP13、ΔP23----各绕组间的短路损耗其中:ΔP12 ----高对中绕组间的短路损耗ΔP13 ----高对低绕组间的短路损耗ΔP23----中对低绕组间的短路损耗经验:计算保护定值时,由于变压器的电阻值与变压器电抗值相比小的很多,则一般只考虑变压器的电抗值,其变压器电阻值忽略不计。
线路计算使用说明本软件的输入输出均在Excel电子表中完成。
很好的利用了Excel的各种功能。
使用本程序前您首要安装Microsoft office 2000 中的Excel. 否则不能使用本程序。
1. 数据输入启动线路计算程序自动启动Excel , 在Excel中新建一个文档。
程序自动完成数据表格的初始化。
只要按着初始化的表格输入就行了,使用很简单。
注意:1,输入里程时如14+003,14+050这样的里程中间的0不能省略。
里程中间的+号可省略:如K14+003.00和14003.00是一样的。
2,这里的曲线交点的意思如图:a)平曲线表平曲线分为直线、圆曲线、缓和曲线。
各种曲线里程相连。
即第一条曲线的终点,和第二条曲线的起点是同一个点,里程坐标完全一样,所以从第二条曲线开始起点可以不输入。
(如下表1下划线部分可以不输入)类型数字分别为:(输入时类型必输入否则计算可能不正确)直线 1圆曲线 2直圆缓和曲线 3圆直缓和曲线 4直线输输入起点里程坐标,终点里程坐标,类型1,交点里程坐标不用输入。
圆曲线输入起点里程坐标,终点里程坐标,交点坐标,交点里程不用输入,圆曲线半径,曲线长,类型2。
缓和曲线交点坐标、起点里程坐标,终点里程坐标,半径,表1交点里程交点X交点Y起点里程起点X起点Y 终点里程终点X终点Y半径R线路长平曲线类型3586485040610+149.885 358582.14504079.698281.637 358711.297504087.31200131.7522358737.5504098281.637 358711.3504087.308366.137 358784.098504129.8820084.54358843.3504170366.137 358784.1504129.875473.695358873.164504190.174100107.5583b)竖曲线表输入交点里程,交点高程,坡度1,坡度2,曲线半径。
作者:徐光辉日期:2002年8月9日当线路改变或线路数据改变时,就要进行如下操作:(1)打开工作簿“线路计算.XLS”(2)在工作表“曲线要素”里,首先按屏幕要求输入曲线起点桩号,然后在蓝格子里(即第1~6、23、24列)修 改或更新数据:输入桩号时,只要输入数字即可,例如:桩号为K23+235.78,则输为23235.78;输入起终点和交点时,只要输入数字即可,起点输为0,终点输为“-”数,例如交点JD13输为13;输入测量断链的增减长度时,长链输为“+”数,短链输为“-”数;注意各交点的转角值不能超过180°,若超过的话,可以把其划分为几个曲线。
(3)在工作表“副交点数据”中更新副交点设计数据,更新时,只要把不同于主线上的副交点数据更新即可, 交点号要与主线上相同,其输入方法同“曲线要素”里的交点输入,列如主线上的交点JD13 存在有副交 点,则只要输入13即可;当副交点数目跟主线交点数目不一样多时,则应将较少的那条线路划分开几段, 从而达到交点数目相同。
(4)在工作表“竖曲线要素”里的蓝格子内(即第1~4列)修改或更新数据:输入桩号时,只要输入数字即可,例如:桩号为K23+235.78,则输为23235.78;输入变坡点时,只要输入数字即可,例如变坡点BD13输为13;输入起终点的变坡点编号时,起点输为0,终点输为“-”数;(5)在工作表“副线竖曲线”里修改或更新数据,其方法均同“竖曲线要素”里的输入,只不过不存在副线的 路段要把主线上的数据输进去补齐一条完整的线路纵断数据;(6)在工作表“超高设计”里修改或更新超高设计桩号、横坡设计数据:输入桩号时,只要输入数字即可,例如:桩号为K23+235.78,则输为23235.78;输入横坡时,只要输入百分值即可,例如:横坡为3%,则输为3;橫坡输入时,符号规定:从中间向两侧上坡为"-",下坡为"+";(7)在工作表“副线超高”里修改或更新数据,其方法均同“超高设计”里的输入,同“副线竖曲线”一样, 只不过不存在副线的路段要把主线上的数据输进去补齐整条路线;(8)在工作表“匝道设计”中输入匝道设计数据,在“匝道名称”栏里输入匝道名称,在“起点数据”栏里横 向对应行“X坐标”、“Y坐标”、“切线方位角”的单元格里分别输匝道起点的X坐标、Y坐标和切线方位 角(度),在行“切点”、“桩号”、“半径R”、“曲率1/R”,分别输入对应的设计数据,当半径为∞时, 则在“半径R”行里千万不要输入任何数据,可以在“曲率1/R”里输入为0,当半径不为∞时,可以不在 “曲率1/R”行输入任何数据,输入半径和曲率时,注意线路左转输为“-”数,右转输为“+”数;当直线 直接和圆曲线相接时,应该把一个切点看作桩号相同的两个,即假想直线和圆曲线之间有一段长度为零的 缓和曲线。
CASIO4850全线坐标正反算程序主程序:ZHANG LIANGLbI Ø :Deg:T"WJM":C=2Ø+4Ø(T-1):T=Ø:N"1.SR,2.JS":N=2=> Goto A⊿M"JZ-XX":O"QD-ZH":U"X-Ø ":V"Y-Ø ":G"FWJ ":Lbl B:{HRQP}: P"QD-R":H"XX-CD":R"ZD-R":Q").-1,(.+1,--.Ø":W=H:Z =Ø:Prog"S1":Prog"S4":U=X:V=Y:O=O+H:G=F-9Ø:P=R:"…SR…NEXT…!”:Isz T: Dsz M:Goto B⊿Lbl A:Fixm:{XYSZN}:T=Ø:N"1.JS-XY,2.XY-FS": N=2=>Goto 2⊿S"JS-ZH=":Z"D=":Lbl 1:S>Z[8T+1+C]=>Isz T:Goto 1⊿Prog "S3":W=S-O: Prog "S1": "JS-X=":X:Pause Ø:"JS-Y=":Y◢Goto AΔLbl 2: X"X…":Y"Y…":I=X:J=Y:Lbl 3: Prog "S3":W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:W>H=> Isz T:Goto 3⊿Prog "S2":"FS-ZH…":S=O+W:Pause Ø:"D…":Z ◢Goto A⊿子程序S1A=.1184634425:B=.2393143352:N=.2844444444:K=. Ø4691ØØ77:L=.23Ø7653449:D=Q r W2(P-R)÷2HPR:E=Q r WP-1:Z[1]=G+KE+K2D:Z[2]=G+LE+L2D:Z[3]=G+.5E+.25D:Z[4]=G +(1-L)2D+E(1-L:Z[5]=G +(1-K)2D+E(1-K:F=G+E+D+9Ø:X=U+ZcosF+W(AcosZ[1]+BcosZ[2]+NcosZ[3]+BcosZ[4]+AcosZ[5:Y=V+ZsinF+W(AsinZ[1]+BsinZ[2]+NsinZ[3]+Bsin Z[4]+Asin Z[5:子程序S2W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:Z=Ø:Lbl 4:Prog "S1":L=G-9Ø+E+D:Z=(J-Y)cosL-(I-X)sinL:AbsZ<.ØØ1=>Goto 5:≠>W=W+Z:Goto 4⊿Lbl 5:Z=Ø:Prog "S1":Z=(J-Y)÷sinF:子程序S3H=Z[8T+C+6:O=Z[8T+C+1]-H:U=Z[8T+C+2:V=Z[8T+C+3:G=Z[8T+C+4:P=Z[8T+C+5:R=Z[8T+C+7: Q=Z[8T+C+8:子程序S4Z[8T+C+1]=O+H: Z[8T+C+2]=U: Z[8T+C+3]=V:Z[8T+C+4]=G:Z[8T+C+5]=P:Z[8T+C+6]=H:Z[8T+C+7]=R: Z[8T+C+8]=Q: 结束程序编制说明:1.本程序是为CASIO-fx4850p编制的。
线元法路线计算程序线元法(LE法)是一种用于计算电力系统潮流分布的方法,它将电力系统抽象成节点和支路的网络,通过对节点和支路进行编号,可以建立节点电压和潮流分布之间的方程,进而求解电力系统中各节点的电压和潮流分布。
下面是一个用于计算线元法路线的程序。
1.定义节点和支路:首先,我们需要对电力系统的节点和支路进行定义。
节点可以是发电站、变电站或负荷节点;支路可以是输电线路或变压器。
每个节点和支路都需要有一个唯一的编号,以便在后续的计算中进行引用。
2.建立节点电压方程:根据电力系统的KCL(电流平衡方程),我们可以得到节点电压方程。
每个节点的电压方程可以表示为:V(i) = Σ{(V(j) - V(i)) / Z(ij)},其中V(i)表示第i个节点的电压,V(j)表示第j个节点的电压,Z(ij)表示第i个节点到第j个节点的支路阻抗。
3.建立支路潮流方程:根据每个支路的电流平衡方程,我们可以得到支路潮流方程。
每个支路的潮流方程可以表示为:I(ij) = (V(i) - V(j)) / Z(ij),其中I(ij)表示从第i个节点到第j个节点的支路电流,V(i)表示第i个节点的电压,V(j)表示第j个节点的电压,Z(ij)表示第i个节点到第j个节点的支路阻抗。
4.解线性方程组:将节点电压方程和支路潮流方程组合成一个线性方程组,我们可以通过求解线性方程组,得到电力系统中各节点的电压和潮流分布。
5.输出结果:根据求解的节点电压和支路潮流,我们可以将结果输出,以便进行分析和评估。
下面是一个基本的线元法路线计算程序的伪代码示例:```Input: 节点和支路的定义,节点电压和支路阻抗的初始值Output: 节点电压和支路潮流的计算结果1.建立节点电压方程和支路潮流方程-初始化节点电压和支路潮流的初始值-根据节点电压方程和支路潮流方程2.解线性方程组-使用数值计算方法求解线性方程组,得到节点电压和支路潮流的计算结果3.输出结果-将节点电压和支路潮流的计算结果输出,以便进行分析和评估```这是一个简化的线元法路线计算程序的框架,具体实现时需要根据具体的电力系统结构和算法细节进行调整和优化。
一、扩展变量设置说明1.统计各种要素点的数目各要素点数目表设置扩展变量总数目为:36+6a+3b+2c+d+2e(使用横坡点)或30+6a+3b+2c+d+2e(未使用横坡点)个2.设置各扩展变量数据①固定变量及自由变量Z[1]~Z[19]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]~Z[19]:程序中使用的自由变量②平曲线要素扩展变量Z[20]~Z[25+6a]各平曲线要素于扩展变量中的位置表③竖曲线要素扩展变量Z[26+6a]~Z[30+6a+3b]各竖曲线要素于扩展变量中的位置表注:扩展变量Z[30+6a+3b]设置为空值(即为0),以便其在程序中使用。
④超高设计扩展变量Z[31+6a+3b]~Z[30+6a+3b+2c]各段超高设计数值于扩展变量中的位置表说明:存入设计横坡数值时,当路基左右幅的横坡为互补时,只要把左幅的设计横坡存入扩展变量即可,当左右幅的设计横坡为相同时,则在对应扩展变量中存入横坡为0。
⑤边坡坡度扩展量Z[31+6a+3b+2c]~Z[30+6a+3b+2c+d]当使用了子程序FY时,d=10,否则d=0,这些扩展变量主要用于储存各阶边坡的坡度。
⑥导线点扩展变量Z[31+6a+3b+2c+d]~Z[30+6a+3b+2c+d+2e]各导线点坐标值于扩展变量中的位置表⑦路基横断面点扩展变量Z[31+6a+3b+2c+d+2e]~Z[36+6a+3b+2c+d+2e](根据情况可省)Z[31+6a+3b+2c+d+2e]=-11.5(路基横坡1#点)Z[32+6a+3b+2c+d+2e]=-6.0(路基横坡2#点)Z[33+6a+3b+2c+d+2e]=-0.75(路基横坡3#点)Z[34+6a+3b+2c+d+2e]=0.75(路基横坡4#点)Z[35+6a+3b+2c+d+2e]=6.0(路基横坡5#点)Z[36+6a+3b+2c+d+2e]=11.5(路基横坡6#点)上述横断面点的扩展变量里数据设置可根据需要进行修改。
公路路线5800计算器计算程序——杨江军本套程序仅供菜鸟学习用,老鸟请阉割,高手请撸过,大婶求赐教。
本套程序适用于公路主线计算、公路匝道计算等线型本套程序包含的主程序及子程序:1、主程序:0---ZXJS2、坐标计算判断数据库:ZXDATA3、坐标正算子程序:SUB14、坐标反算子程序:SUB25、竖曲线判断数据库程序:ZXGC6、超高段判断数据库程序:ZXCG7、竖曲线高程计算子程序:SUB38、竖曲线超高计算子程序:SUB49、任意点放样程序(全线无障碍反算+高程高差计算)(暂却数据)若要更换新路线数据,只需要更改ZXDATA、ZXGC、ZXGC这三个数据库即可。
注:1、“=>”符号等同于数学中的“推出”符号。
2、编写数据库前请认真看懂每一个参数的含义。
3、程序6及程序8暂时只适用于单向横坡或左右幅横坡绝对值相等且无超高过度的道路。
4、程序9暂时未完成,将来会和程序6、程序8一起更新。
5、有任何程序上的问题和一加我QQ:346541138 可以给我留言,有时间我会一一解答。
6、如果哪位大婶有什么建议或者意见,亦或亲自不吝赐教,本人感激不尽1、主程序0---ZXJS:26→DimZ↙为Z数组变量定义范围Z[1]~Z[26]180÷π→K↙弧度转换到角度系数"N=1=>ZS:N=11=>FS""N="?NIf N=1:Then Goto A:IfEnd 进入正算If N=11:Then Goto B:IfEnd 进入反算Lbl A 主线正算主程序起始点"ZH="?S:"E="?E:"JL="?Z:Prog "ZXDATA":Abs(S-O)→W:1÷P→C:(P-R)÷(2HPR)→D:Prog "SUB1"↙"ZX=":X◢计算出的X坐标"ZY=":Y◢计算出的Y坐标Prog "ZXGC" 判断所求高程点所在竖曲线Prog "ZXCG" 判断所求高程点所在超高段Prog "SUB3" 计算路线中心高程Prog "SUB4" 计算路线边桩高程"H=":H◢计算出的当前点高程"TJ=":Z[5]?DMS◢曲线当前点的切线←方位角Goto ALbl B 坐标反算程序起始点?X:?Y?:90→E:X→I:Y→J:Prog "SUB2":"Kxxx+xxx=":O+W→S◢:"D=":Z◢Goto B运行效果:N=1=>ZS:N=11=>FS N=1时运行跳转到正算程序 N=11时跳转到反算程序N=? 提示输入N的值以确定是正算还是反算输入正算时:ZH? 提示输入所求点的里程桩号E=? 提示输入计算点与先前所输入桩号中心点连成的直线与路线方位角的夹角(夹角)JL=? 提示输入所求点到先前所输入桩号中心点的距离(偏距)YX= 计算得出的所求点X坐标YY= 计算得出的所求点Y坐标(注意:如果要进行坐标反算,则必须先正算附近桩号(必须为同一曲线上的桩号)至此处,然后按AC/ON+EXIT键退出程序再运行本程序,输入N的值为11才可进行坐标反算,否则会出错或者卡住,但不会卡死。
4800全套计算程序(吐⾎推荐)整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏:我长年从事公路桥梁测绘⼯作,收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序,该套程序经过反复修正,具有极⾼的可靠性。
现在免费提供给⼤家.程序⽬录:1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能:任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。
FX5800计算器公路测量常用程序集一、程序功能本程序组由2个主程序、5个次子程序及3个参数子程序。
主要用于公路测量中坐标正反算,设计任意点高程及横坡计算。
程序坐标计算适应于任何线型.二、源程序1.主程序1:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1:(正反算判别,F=1正算,F=2反算)Z[1]=90(与路线右边夹角)Prog"THB":F=1=>Goto 1:F=2=>Goto 2Lb1 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 02.主程序2:高程序横坡程序(设计任意点高程及横坡)程序名:2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:” H=”:Locate 6,4,H◢“ I=”: Locate 6,4,I◢Goto 03.主程序3:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名:3JSX: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)+0. 01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)F ix 3:” S=”:Locate 6,4,I◢4.主程序4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名:4JH-XYLbI 0:Norm 290→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:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名:5FBXLbI 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 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:T hen –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:E lse 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+0.5→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 06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名:6GDP rog “G0”Z-C→E:(B-A)×E/S+A→L:L:7.坐标计算次程序(THB)程序名:THB18→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 3LbI 3:IF F=1Then X:Y:Else Z:D8. 正算子程序(A)程序名:A0.1184634425→A: 0.2393143352→B:0.2844444444→N 0.04 6910077→K: 0.2307653449→L:0.5→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+QE MW(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])→Y9. 反算子程序(B)程序名:BG-90→T: Abs((Y-V)cos(T)-(X-U)sin(T)) →W: 0→D:L bl 0:Prog "A": T+QEW(C+WS) →L: (J-Y)cos(L)-(I-X) sin(L)→D:IF Abs(D)<0.01:Then Goto1:Else W+D→W:Go to 0←┘Lbl 1:0→D:Prog "A":(J-Y)÷sin(Z[2]) →D:10.高程计算子程序(H)程序名:HP rog “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)程序名:IP rog”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:IfEn d:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12.数据子程序(附后示例)①程序名:X0(坐标计算要素程序)If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U: 1847.983→V:101。
09’23.1”→G:715.555→H:1×1045→P: 1×1 045→R: 0→Q:Goto 0: IfEnd:If Z≥26615.555 And Z≤26915.555:Then 26615.555→O:1144 8.97→U:2550.016→V:101。
09’23.1”→G:300→H:1×1045→P: 1800→R:1→Q:Goto 0:IfEnd:If Z≥26915.555 And Z≤27316.952:Then 26915.555→O:1138 2.792→U:2842.531→V:105。
55’51.83”→G:401.396→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≤26157.8:Then -200000→R:157.8→T:260 00→C:37.1→G:0.01222→I:Goto 0:IfEnd:If Z≥26157.8 And Z≤27421.915:Then 300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:If Z≥27421.915 And Z≤27889.029:Then 1000000→R:134.02 9→T:27755→C:36.64→G:0.0079→I:Goto 0:IfEnd:……LbI 0:R:T:G:C:I:程序字母说明:C-竖曲线交点桩号;G-交点桩号高程(未竖曲线调整的);T-竖曲线切线长;R-竖曲线半径(分正负:凹曲线为正,凸曲线为负);I-竖曲线前纵坡③程序名:I0(高程超高参数子程序)1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z≥25900 And Z≤26615.555:Then 0→L:-0.02→M:G oto 0:IfEnd:If Z≥26615.555 And Z≤26735.555:Then 120→L:26615.555→C:-0.02→M:0.02→N:Goto 0:IfEnd:If Z≥26735.555 And Z≤26795.555:Then 60→L:26735.555→C:0.02→M:0.04→N:Goto 0:IfEndIf Z≥26795.555 And Z≤27436.951:Then 0→L:0.04→M: Got o 0:IfEnd……LbI R: If Z≥25900 And Z≤26735.555:Then 0→L:-0.02→M: Goto 0:IfEndIf Z≥26735.555 And Z≤26795.555:Then 60→L:26735.555→C:-0.02→M:-0.04→N:Goto 0:IfEndIf Z≥26795.555 And Z≤27436.951:Then 0→L:-0.04→M: Go to 0:IfEnd……LbI 0 K:W:L:C:M:N:字程序中字母表示说明:K-中央分隔带半幅宽(中桩标高至中桩中线距离,无分隔带则为0);W-超高方式参数(W=1为一般直线方式超高,W=2为三次抛物线方式超高);L-超高渐变段距离(不是渐变段则输入0);C-超高渐变段起点桩号(不是渐变段,无需输入);M-超高段起点横坡,N-超高渐变段终点横坡(不是渐变段,无需输入)。