fx-5800P坐标高程计算程序(交点法)
CASIO fx-5800P单交点通用型曲线坐标高程计算程序
一、说明：
本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。
二、内容：
1．PM5-3 XYZJS（主程序）
“SINGLE BASIC TYPE CURVE”◢
“METHOD OF COORDINATE PM5-3”◢
Deg:ClrStat:FreqOn:Fix 3
40→DimZ 定义额外变量
“INPUT(0) Or DATA(1.2.3…)”?N 是否手工输入数据,选择线路输入（1.2.3。）“ZHUI PO FANG YANG(1),NO(≠1)”?P 锥坡放样输入1，否则输入≠1 Prog “SUB5-35”调用平曲线数据库
If Z[30]<0:Then -1→Z[20]:Else 1→Z[20]:IfEnd
Abs(Z[30])→D
Pol(Z[26]-Z[28],Z[27]-Z[29]):Cls
If J<0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD方位角
Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角
If Z[16]>360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEnd
If Z[12]>180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角
S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值
0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值
T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值
0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值
(R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长
(R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长
90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度
S+T+Z[9]→Z[10] 计算曲线总长度
Z[25]-Z[5]→List X[1] 计算直缓点桩号
1→K:Prog “SUB5-37”
List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号
Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1]
If S≠0:Then“ZH PEG(m)=”:List X[1]◢显示直缓点桩号
Else “ZY PEG(m)=”:List X[1]◢显示直圆点桩号
IfEnd
“X(m)=”:List Y[1]◢显示直缓(圆)点X坐标
“Y(m)=”:List Freq[1]◢显示直缓(圆)点Y坐标
“H（m）=”:Z[24]◢显示直缓(圆)点Z坐标
“FWJ=”:Z[11]?DMS◢显示直缓(圆)点切线方位角
1→K:Z[11]→Z[13]:Prog “SUB5-34”调子程序计算直缓点边桩坐标
2→K:If S≠0:Then Prog “SUB5-31”调子程序计算缓圆点中边桩坐标Else List Y[1]→List Y[K]:List Freq[1]→List Freq[K]
Z[11]→Z[17]:IfEnd
3→K: Prog “SUB5-32”调子程序计算圆缓点中边桩坐标List X[1]+Z[10]→List X[4] 计算缓直点桩号
4→K:Prog “SUB5-37”
If T≠0:Then Z[26]+Z[6]cos(Z[23])→List Y[4]
Z[27]+Z[6]sin(Z[23])→List Freq[4] 计算缓直点中桩坐标
“HZ PEG(m)=”:List X[4]◢显示缓直(圆)点桩号
“X(m)=”:List Y[4]◢显示缓直(圆)点X坐标
“Y(m)=”:List Freq[4]◢显示缓直(圆)点Y坐标
“H（m）=”:Z[24]◢显示缓直(圆)点Z坐标
“FWJ=”:Z[23]?DMS◢显示缓直点切线方位角
Z[23]→Z[13]:Prog “SUB5-34”调子程序计算缓直(圆)点边桩坐标Else List Y[3]→List Y[K]:List Freq[3]→List Freq[K]:IfEnd
If R<30: Then 5→I: Else If R<60: Then 10→I: Else 20→I: IfEnd :IfEnd
“INT DIST(m)=”?O 输入整桩间距，（0）选择默认间距If O>0: Then O→I: IfEnd 当桩号间距大于0，代入计算“ONLY CALC +PEG(1)=”?→G 是否（1）计算加桩计算，（≠1）不计算
If G=1:Then Goto 1:IfEnd
K+1→K:Int(Z[31]÷I)I+I→List X[K] 计数变量
If List X[K]>List X[1]:Then Prog “SUB5-31”:Else Prog “SUB5-33”:IfEnd 调用子程序Do
K+1→K:List X[K-1]+I→List X[K]
If List X[K]≤ List X[1]:Then Prog “SUB5-33”
Else If List X[K]≤ List X[2]:Then Prog “SUB5-31”
Else If List X[K]≤ List X[3]:Then Prog “SUB5-32”
Else If List X[K]≤ List X[4]:Then Prog “SUB5-31”
Else Prog “SUB5-33”
IfEnd:IfEnd:IfEnd:IfEnd
LpWhile List X[K]+I Lbl 1 Do “+PEG(m)=”?F 输入加桩号 If F If F>Z[32]:Then Break:IfEnd 加桩号大于HZ点桩号时结束程序K+1→K:F→List X[K] 计数变量，储存加桩到统计串列If List X[K]≤ List X[1]:Then Prog “SUB5-33”调用子程序计算直线段 Else If List X[K]≤ List X[2]:Then Prog “SUB5-31”调用子程序计算第一缓和曲线段Else If List X[K]≤ List X[3]:Then Prog “SUB5-32”调用子程序计算圆曲线段 Else If List X[K]≤ List X[4]:Then Prog “SUB5-31”调用子程序计算第二缓和曲线段Else Prog “SUB5-33”调用子程序计算直线段 IfEnd:IfEnd:IfEnd:IfEnd LpWhile F>0 没有计算到HZ点时循环 “PM5-3 XYZ JS→END” 2．SUB5-31（缓和段坐标计算子程序） If List X[K]≤ List X[2]:Then S→H:List X[K]-List X[1]→L Else T→H:List X[4]-List X[K]→L:IfEnd If H≠0:Then L-L5÷（40R2H2）+L9÷（3456R4H4）-L13÷（599040R6H6）→X L3÷（6RH）-L7÷（336R3H3）+L11÷（42240R5H5）-L15÷（9676800R7H7）→Y √（X2+Y2）→Z[14]:tan-1(Y÷X)→Z[15] Else 0→Z[14]:0→Z[15]:IfEnd If List X[K]≤List X[2]:Then Z[11]+Z[20]Z[15]→Z[16] List Y[1]+Z[14]cos(Z[16])→List Y[K] List Freq[1]+Z[14]sin(Z[16])→List Freq[K] If H≠0:Then Z[11]+90Z[20]L2÷(πRH)→Z[13] Else Z[11]→Z[13]:IfEnd If List X[K]=List X[2]:Then Z[13]→Z[17]:IfEnd Else Z[12]-Z[20]Z[15]→Z[16] List Y[4]+Z[14]cos(Z[16])→List Y[K] List Freq[4]+Z[14]sin(Z[16])→List Freq[K] If H≠0:Then Z[12]-90Z[20]L2÷(πRH)→Z[13]:Else Z[12]→Z[13]:IfEnd Z[13]+180→Z[13]:IfEnd If Z[13]<0:Then Z[13]+360→Z[13]:Else If Z[13]>360:Then Z[13]-360→Z[13]:IfEnd:IfEnd Prog “SUB5-37” If List X[K]=List X[2]:Then “HY PEG(m)=” Else If G=1:Then “+PEG(m)=” Else“INT PEG(m)=”:IfEnd:IfEnd List X[K]◢显示桩号 “X(m)=”:List Y[K]◢显示X坐标 “Y(m)=”:List Freq[K]◢显示Y坐标 “H（m）=”:Z[24]◢显示Z坐标 “FWJ=”:Z[13]?DMS◢显示切线方位角 Prog “SUB5-34”:Return 3.SUB5-32（圆曲线曲线段坐标计算子程序） List X[K]-List X[2]→L 90L÷(πR)→Z[15]:2Rsin(Z[15])→Z[14] Z[17]+Z[20]Z[15]→Z[16] List Y[2]+Z[14]cos(Z[16])→List Y[K] List Freq[2]+Z[14]sin(Z[16])→List Freq[K] Z[17]+2Z[20]Z[15]→Z[13] If Z[13]<0:Then Z[13]+360→Z[13]:Else If Z[13]>360:Then Z[13]-360→Z[13]:IfEnd:IfEnd Prog “SUB5-37” If List X[K]=List X[3]:Then If T≠0:Then “YH PEG(m)=” Else “YZ PEG(m)=”:IfEnd Else If G=1:Then “+PEG(m)=” Else“INT PEG(m)=”:IfEnd:IfEnd List X[K]◢显示桩号 “X(m)=”:List Y[K]◢显示X坐标 “Y(m)=”:List Freq[K]◢显示Y坐标 “H（m）=”:Z[24]◢显示Z坐标 “FWJ=”:Z[13]?DMS◢显示切线方位角 Prog “SUB5-34”:Return 4.SUB5-33（直线段坐标计算子程序） If List X[K]≤ List X[1]:Then List X[1]-List X[K]→L List Y[1]-Lcos(Z[11])→List Y[K] List Freq[1]-Lsin(Z[11])→List Freq[K] Z[11] →Z[13] Else List X[K]-List X[4]→L List Y[4]+Lcos(Z[23])→List Y[K] List Freq[4]+Lsin(Z[23])→List Freq[K] Z[23]→Z[13]:IfEnd Prog “SUB5-37” If G=1:Then“+PEG(m)=” Else“INT PEG(m)=”:IfEnd List X[K]◢显示桩号 “X(m)=”:List Y[K]◢显示X坐标 “Y(m)=”:List Freq[K]◢显示Y坐标 “H（m）=”:Z[24]◢显示Z坐标 “FWJ=”:Z[13]?DMS◢显示切线方位角Prog “SUB5-34”:Return 5.SUB5-34（边桩坐标计算子程序） “WL(m),0 NO=”?M If M<0:Then Prog “SUB5-39” Else If M>0:Then “ANGLE→L(Deg)=”?A Z[13]-A→Z[21] List Y[K]+Mcos(Z[21])→Z[18] List Freq[K]+Msin(Z[21])→Z[19] “XL(m)=”:Z[18]◢ “YL(m)=”:Z[19]◢ If P=1:Then Prog “SUB5-36”:IfEnd Else NO:IfEnd:IfEnd “WR(m),0 NO=”?W If W<0:Then Prog “SUB5-39” Else If W>0:Then “ANGLE→R(Deg)=”?A Z[13]+A→Z[22] List Y[K]+Wcos(Z[22])→Z[18] List Freq[K]+Wsin(Z[22])→Z[19] “XR(m)=”:Z[18]◢ “YR(m)=”:Z[19]◢ If P=1:Then Prog “SUB5-36”:IfEnd Else NO:IfEnd:IfEnd Return 6.SUB5-35(平曲线要素数据库子程序，可扩充为多条线路) If N=0:Then Goto 1:IfEnd 选择手工输入线路计算 If N=2:Then Goto 2:IfEnd 选择线路2计算 “+PEG(m)=”?→F Lbl 0 If F≤47129.607:Then 第一交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平路线起点桩号→Z[31]:本平路线终点桩号→Z[32]:Return Else If F≤48000:Then 第二交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T: 本平路线起点桩号→Z[31]:本平路线终点桩号→Z[32]:Return Else If F≤49009.82:Then 第三交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T: 本平路线起点桩号→Z[31]:本平路线终点桩号→Z[32]:Return Else If F≤50200:Then 第四交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return ………………………………… Lbl 1 “JD PEG(m)=”?→Z[25] “JD X(m)=”?→Z[26] “JD Y(m)=”?→Z[27] “ZD X(m)=”?→Z[28] “ZD Y(m)=”?→Z[29] “TURNING ANGLE,-L +R(Deg)=”?→Z[30] “Lh1(m)=”?S “R(m)=”?R “Lh2(m)=”?T “START PEG(m)=”?→Z[31] 本平曲线起点桩号 “END PEG(m)=”?→Z[32] 本平曲线终点桩号 Return Lbl 2 If F≤判断区间桩号（可以是曲线终点，也可以是下个竖曲线的起点）:Then 第一交点桩号→Z[25]:交点X 坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return Else If F≤48000:Then 第二交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return: Else If F≤49009.82:Then 第三交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return Else If F≤50200:Then 第四交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return ………………………………… 7.SUB5-36(锥坡放样坐标计算子程序) “ZHUIPO FANGYANG”◢ “LONG R(m)=”?U 锥坡椭圆的长轴半径U “FW→LONG（Deg）=”?C 锥坡长轴的方位角C “SHORT R(m)=”?V 锥坡椭圆的短轴半径V “LONG→SHORT ANGLE（Deg）=”?Z 锥坡长半轴与短半轴的夹角 If Z≥0:Then 1→D:Else -1→D:IfEnd 短半轴在长半轴右侧夹角为正，反之则为负 U-V→L 计算锥坡椭圆长短轴的半径差 Lbl 1 “ADD ANGLE(Deg)=”?J 取锥坡椭圆的等分角度 If J>Abs(Z):Then Return:IfEnd C+DJ→H Z[18]+Vcos(H)→X:Z[19]+Vsin(H)→Y If J≤90:Then J→H:C→Q:Else 180-J→H:C+180→Q:IfEnd Lcos(K)→E X+Ecos(Q)→X 计算锥坡椭圆等分角度所对应的椭圆弧点X坐标 Y+Esin(Q)→Y 计算锥坡椭圆等分角度所对应的椭圆弧点Y坐标“X(m)=”:X◢显示X坐标 “Y(m)=”:Y◢显示Y坐标 Goto 1 8．高程计算子程序（SUB5-37） Prog “SUB5-38” 0．5Z[35]Abs(0.01(Z[37]-Z[36]))→Z[38] If Z[37]>Z[36]:Then 1→D:Else -1→D:IfEnd 判断曲线上，下坡 If List X[K] Abs(Z[33]-List X[K])→L If L>Z[38]:Then Z[34]+HL→Z[24]:Else Z[34]+HL+D(Z[38]-L)2÷(2Z[35])→Z[24]:IfEnd Return 9．高程数据库子程序：SUB5-38（两条线路，可扩充为多条线路） If N=0:Then Goto 1:Else If N=2:Then Goto 2:IfEnd:IfEnd Lbl 0 If List X[K]≤46500:Then 46150→Z[33]:361.26→Z[34]:40000→Z[35]:-0.3→Z[36]:-1.2→Z[37]:Return Else If List X[K]≤47200:Then 46800→Z[33]:353.46→Z[34]:20000→Z[35]:-1.2→Z[36]:1→ Z[37]:Return Else If List X[K]≤48400:Then 47500→Z[33]:360.46→Z[34]:20000→Z[35]:1→Z[36]:-1.6→ Z[37]:Return Else If List X[K]≤49600:Then 48700→Z[33]:341.26→Z[34]:10000→Z[35]:-1.6→Z[36]:2.45→ Z[37]:Return Else 49800→Z[33]:368.21→Z[34]:150000→Z[35]:2.45→Z[36]:2.7→Z[37]:Return Lbl 1:“C PEG(m)=”?→Z[33] 竖曲线变坡点桩号 “C H(m)=”?→Z[34] 竖曲线变坡点高程 “R(m)=”?→Z[35] 竖曲线半径 “I1(%)=”?→Z[36] 第一坡度 “I2(%)=”?→Z[37] 第二坡度 Return Lbl 2 If List X[K]≤判断区间桩号（可以是竖曲线终点，也可以是下个竖曲线的起点）:Then 变坡点桩号→Z[33]:变坡点高→Z[34]:竖曲线半径→Z[35]:第一坡度→Z[36]:第二坡度→Z[37]:Return 10.SUB5-39（坡口坡脚线坐标计算子程序） “TIANWA LINE”◢ “L(1) Or R(Else)=”?C 选择中线左右，1为左，其它为右“DIST→ZX(m)=”?U 起坡点与中桩距离常数 “H→ZX(m)=”?V 起坡点与中桩高差常数 “T(1) Or W(Else)=”?Z 填方边坡为1，其它为挖方边坡“i=”?E 填方或挖方边坡坡度 Lbl 1 “FY DIST(m)=”?Q 实际计算距离 If C=1:Then List Y[K]+Qcos(Z[13]-90)→Z[18] List Freq[K]+Qsin(Z[13]-90)→Z[19] Else List Y[K]+Qcos(Z[13]+90)→Z[18] List Freq[K]+Qsin(Z[13]+90)→Z[19]:IfEnd “X(m)=”:Z[18]◢ “Y(m)=”:Z[19]◢ Q-U→L: LE→B If Z=1:Then Z[24]-V-B→Z[39]:Else Z[24]+V+B→Z[39]:IfEnd “JS H(m)=”:Z[39]◢计算出应有高程 “SC H(m)=”？→Z[40] 输入实测高程 Z[40]-Z[39]→H “GC(m)=”:H◢显示实测高程与计算高程的差异If Abs(H)<0.05:Then “FANGYANG OK！”◢ Return:Else Goto 1:IfEnd 直线的交点坐标与距离公式 【学习目标】 1.掌握解方程组的方法，求两条相交直线的交点坐标. 2.掌握两点间距离公式，点到直线距离公式，会求两条平行直线间的距离. 【要点梳理】 【高清课堂：两直线的交点与点到直线的距离381525 知识要点1】 要点一：直线的交点 求两直线1111110(0)A x B y C A B C ++=≠与2222220(0)A x B y C A B C ++=≠的交点坐标，只需求两 直线方程联立所得方程组11122200 A x B y C A x B y C ++=??++=?的解即可.若有111222A B C A B C ==，则方程组有无穷多个解， 此时两直线重合；若有 111222A B C A B C =≠，则方程组无解，此时两直线平行；若有1122 A B A B ≠，则方程组有唯一解，此时两直线相交，此解即两直线交点的坐标. 要点诠释： 求两直线的交点坐标实际上就是解方程组，看方程组解的个数. 要点二：过两条直线交点的直线系方程 一般地，具有某种共同属性的一类直线的集合称为直线系，它的方程叫做直线系方程，直线系方程中除含有,x y 以外，还有根据具体条件取不同值的变量，称为参变量，简称参数．由于参数取法不同，从而得到不同的直线系． 过两直线的交点的直线系方程：经过两直线1111:0l A x B y C ++=，2222:0l A x B y C ++=交点的直线方程为111222()0A x B y C A x B y C λ+++++=，其中λ是待定系数．在这个方程中，无论λ取什么实数，都得不到2220A x B y C ++=，因此它不能表示直线2l ． 要点三：两点间的距离公式 两点11 1222()()P x y P x y ，，，间的距离公式为 12PP = 要点诠释： 此公式可以用来求解平面上任意两点之间的距离，它是所有求距离问题的基础，点到直线的距离和两平行直线之间的距离均可转化为两点之间的距离来解决.另外在下一章圆的标准方程的推导、直线与圆、圆与圆的位置关系的判断等内容中都有广泛应用，需熟练掌握. 要点四：点到直线的距离公式 点00()P x y ，到直线0Ax By C ++= 的距离为d =要点诠释： （1）点00()P x y ，到直线0Ax By C ++=的距离为直线上所有的点到已知点P 的距离中最小距离； （2）使用点到直线的距离公式的前提条件是：把直线方程先化为一般式方程； （3）此公式常用于求三角形的高、两平行线间的距离及下一章中直线与圆的位置关系的判断等. 3、交点法、线元法坐标计算 坐标计算是根据图纸中“直线及曲线转角一览表”提供的数据计算道路中桩坐标，然后和图纸提供的“逐桩坐标表”比对，如果一样则说明输入平曲线参数输入正确，可以计算边桩坐标和其他结构物坐标了；如果中桩坐标不一样，一般是平曲线参数输入有误，需要重新检查输入，另一种结果是图纸有错，这种情况少见，但不代表没有。“直线及曲线转角一览表”和“逐桩坐标表”见附件1、附件2。 线元法是以路线的起点坐标、方位角、起终点桩号等节点元素来计算出要求的坐标；交点法是以路线的交点要素和路线的主要要素来求得坐标。 ①交点法 交点：路线的转折点，路线改变方向是相邻两直线的延长线相交的点。用JD表示， 有些图 纸上用 IP表示。 看下图： 交 点是针对曲线的（包含圆曲线和缓和曲线），一段曲线就有一个交点。交点参数有：坐标（X,Y）、交点桩号、转角值、圆曲线半径R、缓和曲线长度。 教学提供软件（轻松测量、双心软件、测量工具）交点法曲线要素输入说明： 1、QD起点坐标： 起点坐标必须在直线段上，或填写前一交点的坐标。 2、JD交点曲线要素： （1）交点桩号 （2）交点坐标（X,Y） （3）曲线半径R 始点的话，起始里程有时候需要校正，当然，并不是每个图纸给出的起点里程都需要校正，大多数图纸的起点里程已经被设计院校正过，我们输入平曲线的时候需要验证一下。如果我们按照图纸给出的起点里程输入，发现后面的交点里程都和图纸相差一个相同的值，这就表明我们输入的起点里程需要校正。 起始点里程正常输入，第二、三个交点输入完成后，检查第二个交点的切线长和交点 里程是否和图纸一样，如果切线长正确，交点里程不正确，说明起点里程需要校正，将第二个交点的里程与正确里程的差值，应用到起点里程中，从而使第二个交点里程和后面交点的里程与图纸吻合。 注意：交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。对于非普通的三单元曲线，交点法不适用。非普通的三单曲线例如下页的JD18及JD19处的平曲线， 的输入是否正确，有的图纸给的方位角数据较少，需要每隔几个线元才能检验方位角。 CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 悬赏分：+62 作者：刘工 2010-4-3 1. A（此为主程序） Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V： If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ： If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L： If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ： Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q： Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝： 〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲ L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0： Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L： If M>3845505.273 And M<3846506.099 And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2： IfEnd ：Lbl 5：0→Q：0→J： Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲ L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0 2.正算坐标ZBZS ( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ： O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G： A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ： B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标：ZBFS Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ： 公用模块： Option Explicit Public Const PI = 3.14159265358979 '已知A、B两点坐标计算方位角，JSFWJ的中文意思是计算方位角 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double '已知A、B两点坐标计算方位角函数过程Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSFWJ = 999999999# End If '计算方位角的值 If vx = 0 And vy > 0 Then '与y轴正半轴平行 JSFWJ = RadianToAngle(PI / 2#) ElseIf vx = 0 And vy < 0 Then '与y轴负半轴平行 JSFWJ = RadianToAngle(PI * 3# / 2#) ElseIf vy = 0 And vx > 0 Then '与x轴正半轴平行 JSFWJ = RadianToAngle(0) ElseIf vy = 0 And vx < 0 Then '与x轴负半轴平行 JSFWJ = RadianToAngle(PI) ElseIf vx > 0 And vy > 0 Then '第一象限 JSFWJ = RadianToAngle(Atn(vy / vx)) ElseIf vx < 0 And vy > 0 Then '第二象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx < 0 And vy < 0 Then '第三象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx > 0 And vy < 0 Then '第四象限 JSFWJ = RadianToAngle(Atn(vy / vx) + 2 * PI) End If End Function '已知A、B两点坐标计算距离，JSJLS的中文意思是计算距离S Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSJLS = 99999999# End If '计算距离 JSJLS = Sqr(vx * vx + vy * vy) End Function '弧度化角度 Public Function RadianToAngle(ByVal alfa As Double) As Double Dim alfa1 As Double, alfa2 As Double alfa = alfa * 180# / PI 本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！ 本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！ 主程序名：JD 24→Dimz↙ Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X : ＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R : ＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N : Prog ＂JDA＂↙ Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢ Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢ Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢ LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙ If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂QXFWJ(Z)=＂: Z▼DMS◢ Pol(F-U,G-V : Cls : ＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ 子程序1名： JDA If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙ B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙ C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙ B÷2-B^(3)÷240÷R2 →Z[8] ↙ C÷2-C^(3)÷240÷R2 →Z[9] ↙ Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙ Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙ RAπ÷180+(B+C) ÷2→L↙ RAπ÷180-(B+C) ÷2→Q↙ 曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。 2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXJS)(A) Deg:fix 3 119→DimZ “INPUT(0) Or DATA(Else)”?I Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N If N=1 Or N=5:Then Goto 1 Else If N=2 Or N=3 Or N=4:Then Goto 2 Else Goto 3 IfEnd:IfEnd Lbl 1:“K(m)=”?S If S<0:Then Goto 0:IfEnd “JL(m)=”?Z If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEnd S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd Prog “SUB-ZS”:Prog “SUB-GC” If Z<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else If Z>0:Then “XR(m)=”:X◢“YR(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else “X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”: F?DMS◢ IfEnd:IfEnd Casiofx-5800P交点法坐标计算程序 XC U 测站X坐标 YC V 测站Y坐标 K(JD) K 交点桩号 X(JD) X 交点X坐标 Y(JD) Y 交点Y坐标 LS1 B 第一缓和曲线长度 LS2 C 第二缓和曲线长度 R 圆曲线半径 FWJ M 起始边切线方位角 α(Z-,Y+) O 本交点处线路转角(左转为负，右转为正，度分秒输入) K×+××× 待求桩号 Z 待求桩号距中距离(左负值，右正值，中为0) RJ 斜交右角(线路切线前进方向与边桩右侧夹角) →? 主程序名：JD 24→Dimz ”XC”?U:”YC”?V:”K(JD)”?K:”X(JD)”?X:“Y(JD)”?Y:”LS1”?B:”LS2”?C:?R “FWJ”?M:“α(Z-,Y+)°”?O:M+O→N Prog“JDA” Cls:”E=“:”K(ZH)=“:Locate7,1,E:Locate7,2,Z[1]◢ Cls:“K(HY)=“:”K(QZ)=“:”K(YH)=“:”K(HZ)=“:Locate7,1,Z[2]:Locate7,2,Z[3]:Locate7,3,Z[4]:Locate7,4,Z[5]◢LbI0:“K×+×××”?P:“Z”?D:If D≠0:Then “RJ”?H:IfEnd:Prog“JDB” If D<0:Then Cls:“X(L)=“:”Y(L)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(L)=“:Locate6,1,I:“F(L)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D=0:Then Cls:“X(Z)=“:”Y(Z)=“:Locate6,1,F:Locate6,2,G:“QXFWJ(Z)=“:Z?DMS◢ Pol(F-U,G-V:Cls:“S(Z)=“:Locate6,1,I:“F(Z)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D>0:Then Cls:“X(R)=“:”Y(R)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(R)=“:Locate6,1,I:“F(R)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd 子程序1名：JDA If O<0:Then -1→W:Else 1→W:IfEnd:WO→A B2÷24÷R-B^(4)÷2688÷R^(3)→Z[6] C2÷24÷R-C^(4)÷2688÷R^(3)→Z[7] B÷2-B^(3)÷240÷R2→Z[8] C÷2-C^(3)÷240÷R2→Z[9] Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T RAπ÷180+(B+C)÷2→L RAπ÷180-(B+C)÷2→Q (R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E K-S→Z[1] 第二节直线的交点坐标与距离公式 [备考方向要明了] 考什么怎么考 1.能用解方程组的方法求两 条相交直线的交点坐标． 2.掌握两点间的距离公式、点 到直线的距离公式、会求两 条平行直线间的距离. 1.两条直线的交点坐标一般是不单独命题的，常作为知识点出 现在相关的位置关系中． 2.两点间距离公式是解析几何的一个基本知识点，点到直线的 距离公式是高考考查的重点，一般将这两个知识点结合直线与 圆或圆锥曲线的问题中来考查. [归纳·知识整合] 1．两条直线的交点 设两条直线的方程为l1：A1x＋B1y＋C1＝0，l2：A2x＋B2y＋C2＝0，则两条直线的交点坐标就是方程组 ?? ? ??A1x＋B1y＋C1＝0， A2x＋B2y＋C2＝0 的解， (1)若方程组有唯一解，则两条直线相交，此解就是交点的坐标； (2)若方程组无解，则两条直线无公共点，此时两条直线平行，反之，亦成立． [探究] 1.如何用两直线的交点判断两直线的位置关系？ 提示：当两条直线有一个交点时，两直线相交；没有交点时，两条直线平行，有无数个 交点时，两条直线重合． 2．距离 点P 1(x 1，y 1)， P 2(x 2，y 2)之间的距离 |P 1P 2|＝ x 2－x 12＋y 2－y 12 点P 0(x 0，y 0)到直线l ：Ax ＋By ＋C ＝0的距 离 d ＝ |Ax 0＋By 0＋C | A 2＋ B 2 两条平行线Ax ＋By ＋C 1＝0与Ax ＋By ＋C 2＝0间的距离 d ＝ |C 1－C 2| A 2＋ B 2 [探究] 2.使用点到直线的距离公式和两条平行线间的距离公式时应注意什么？ 提示：使用点到直线距离公式时要注意将直线方程化为一般式．使用两条平行线间距离公式时，要将两直线方程化为一般式且x 、y 的系数对应相等． [自测·牛刀小试] 1．(教材习题改编)原点到直线x ＋2y －5＝0的距离是( ) A ．1 B. 3 C ．2 D. 5 解析：选D d ＝ |－5|12＋22 ＝ 5. 2．点A 在x 轴上，点B 在y 轴上，线段AB 的中点M 的坐标是(3,4)，则AB 的长为( ) A ．10 B ．5 C ．8 D ．6 解析：选A 设A (a,0)，B (0，b )，则a ＝6，b ＝8，即A (6,0)，B (0,8)．所以|AB |＝6－0 2＋ 0－82＝36＋64＝10. 3．若三条直线2x ＋3y ＋8＝0，x －y －1＝0和x ＋by ＝0相交于一点，则b ＝( ) A ．－1 B ．－1 2 在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 1、直线段坐标计算。直线坐标计算分为中桩坐标计算和边桩坐标计算。 1）中桩坐标计算。根据公式 ααsin ,cos d Y Y d X X +=+=起中起中 d — 所求点到起点距离； α— 该直线坐标方位角。在此顺带详细介绍一下坐标方位角到计算方法： （1）坐标方位角的计算 AB AB A B A B AB x y x x y y ??=--=arctan arctan α当 R y x R y x R y x R y x -360,0,0180,0,0-180,0,0;,0,0?=?+?=??>?αααα；； （2）坐标方位角的推算 ， ， 218021*********βαβααβαβαα-?+=-=+?+=+=B B AB BA B 由此推出：βαα±?+=180后前（“左”→“+”， “右”→“-”），计算中，若α值大于360°，应减去360°；若小于0°，则加上360°。 2）边桩坐标计算 应用公式 )90sin(90cos(?±+=?±+=ααl y y l x x 中边中边）， 进行边桩坐标到计算。北客站为直线车站，坐标计算较简单，现以位于机场线第二段底板的变电所夹层东北角C 点为例进行计算： 以机场线右线为基准来计算中、边桩坐标。已知起点坐标A （22264.4009，11553.2031），终点坐标B （22180.2655，11279.0739），起点里程为YDK0+255.275,C 点里程为YDK0+286.075,偏距为15.33m ，则由以上公式计算C 点坐标： α=arctan(（11279.0739-11553.2031）/（22180.2655-22264.4009）)+180°=252.938°， =中x 22264.4009+（286.075-255.275）*cos252.938°=22255.3640 =中y 11553.2031+（286.075-255.275）*sin252.938°=11523.7586 =c x +15.33*cos （252.938°+90°）=22270.0193 = c y +15.33*sin （252.938°+90°）=11519.2606，则可求出C （22270.0193，11519.2606）。 2、曲线段坐标计算 1）不带缓和曲线的圆曲线中、边桩坐标计算 北 中 x 中 y 3.3 直线的交点坐标与距离公式 3.3.1 两条直线的交点坐标 3.3.2 两点间的距离 1．直线x ＋2y －2＝0与直线2x ＋y －3＝0的交点坐标是 ( ) A ．(4,1) B ．(1,4) C.? ????43，13 D.? ?? ??13，43 答案 C 解析 由方程组?? ? x ＋2y －2＝0，2x ＋y －3＝0， 得????? x ＝43，y ＝1 3. 即直线x ＋2y －2＝0与直线 2x ＋y －3＝0的交点坐标是? ???? 43，13. 2．已知M (2,1)，N (－1,5)，则|MN |等于 ( ) A ．5 B.37 C.13 D ．4 答案 A 解析 |MN |＝(2＋1)2＋(1－5)2＝5. 3．经过直线2x －y ＋4＝0与x －y ＋5＝0的交点，且垂直于直线x －2y ＝0的直线的方程是 ( ) A ．2x ＋y －8＝0 B ．2x －y －8＝0 C ．2x ＋y ＋8＝0 D ．2x －y ＋8＝0 答案 A 解析 首先解得交点坐标为(1,6)，再根据垂直关系得斜率为－2，可得方程y －6＝－2(x －1)，即2x ＋y －8＝0. 4．已知两条直线l 1：ax ＋3y －3＝0，l 2：4x ＋6y －1＝0，若l 1与l 2相交，则实数a 满足的条件是________． 答案 a ≠2 解析 l 1与l 2相交则有：a 4≠3 6，∴a ≠2. 5．设点A 在x 轴上，点B 在y 轴上，AB 的中点是P (2，－1)，则|AB |等于________． 答案 2 5 解析 设A (x,0)，B (0，y )，∵AB 中点P (2，－1)， ∴x 2＝2，y 2＝－1， ∴x ＝4，y ＝－2，即A (4,0)，B (0，－2)， ∴|AB |＝42＋22＝2 5. 1．方程组??? A 1x ＋ B 1y ＋ C 1＝0 A 2x ＋ B 2y ＋ C 2＝0有唯一解的等价条件是A 1B 2－A 2B 1≠0.亦即两条直 线相交的等价条件是A 1B 2－A 2B 1≠0.直线A 1x ＋B 1y ＋C 1＋λ(A 2x ＋B 2y ＋C 2)＝ 0(λ∈R )是过直线l 1：A 1x ＋B 1y ＋C 1＝0与l 2：A 2x ＋B 2y ＋C 2＝0交点的直线(不含l 2)． 2．解析法又称为坐标法，它就是通过建立直角坐标系，用坐标代替点、用方程代替曲线、用代数的方法研究平面图形的几何性质的方法． 3．两点P 1(x 1，y 1)，P 2(x 2，y 2)间的距离公式|P 1P 2|＝(x 1－x 2)2＋(y 1－y 2)2与两点的先后顺序无关，其反映了把几何问题代数化的思想. 一个excle 模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也 不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就 是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算 的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅 仅是靠手动输入这样子的数字，也许只要懂一点点excle 的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许 这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数 zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家 简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个 函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么 意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我 们要K38+000~K38+200 段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200 输入进去，可不要真的把字母“K”和加号 CASIO5800计算器 公路测量计算程序 程序设计:魏加训 2009.2.28 Casio 5800计算器数据库型万能坐标正反算计算程序 一、主程序：1XY Lbl 0:“1.ZS 2.FS”?→V↙ If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd ↙ Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙ Prog “P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可) Prog “ZS” ↙ If Z<0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢ Pol（X-H，Y-T）: Cls: “S（L）=”: Locate 6，1，I : "F（L）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ （Z）=”: 360Frac（（J+360）÷360▼DMS◢ Pol（X-H，Y-T）: Cls: “S（Z）=”: Locate 6，1，I : "F（Z）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z >0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢ Pol（X-H，Y-T）: Cls: “S（R）=”: Locate 6，1，I : "F（R）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ Lbl 2: 0→Z:0→G:”X” ?M:”Y” ?I:Prog “FS”: Cls:“K=”：“Z=”：Locate 4，1，D : Locate 4，2，Z◢ Goto 2↙ 二、正算子程序：ZS 5→N: U(E-1-R-1)÷Abs（K-F）→P: Abs（D-F）÷N→Q: 90Q÷π→S: (注:此处5→N是控制计算精度可修改的,一般取值为4～6即可) C+(NPQ+2UR-1)NS→J:1→L↙ A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G) →X : B+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR-1)LS,L,1,(N-1))）+Z Sin（J+G)→Y ↙ 三、反算子程序：FS Lbl 0:Prog “P.Z”:Prog “ZS”↙ (注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可) (I-Y)sin(J)+(M-X) cos(J)→ P :D+P→ D ↙ If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd↙ Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z 一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 1、多层砌体住宅： 钢筋：30KG/m2 砼：0.3～0.33m3/m2 2、多层框架： 钢筋：38～42KG/m2 砼：0.33～0.35m3/m2 3、小高层11～12层： 钢筋：50～52KG/m2 砼：0.35m3/m2 4、高层17～18层： 钢筋：54～60KG/m2 砼：0.36m3/m2 5、高层30层H=94米：钢筋：65～75KG/m2 砼：0.42～0.47m3/m2 6、高层酒店式公寓28层H=90米： 钢筋：65～70KG/m2 砼：0.38～0.42m3/m2 7、别墅：混凝土用量和用钢量介于多层砌体住宅和高层11～12层之间； 以上数据按抗震7度区规则结构设计 二、普通多层住宅楼施工预算经济指标 1、室外门窗（不包括单元门、防盗门）面积占建筑面积0.20～0.24 2、模版面积占建筑面积2.2左右 3、室外抹灰面积占建筑面积0.4左右 4、室内抹灰面积占建筑面积3.8 三、施工功效 1、一个抹灰工一天抹灰在35平米 2、一个砖工一天砌红砖1000～1800块 3、一个砖工一天砌空心砖800～1000块 4、瓷砖15平米 5、刮大白第一遍300平米/天，第二遍180平米/天，第三遍压光90平米/天 四、基础数据 1、混凝土重量2500KG/m3 2、钢筋每延米重量0.00617×d×d 3、干砂子重量1500KG/m3，湿砂重量1700KG/m3 4、石子重量2200KG/m3 5、一立方米红砖525块左右（分墙厚） 6、一立方米空心砖175块左右 7、筛一方干净砂需1.3方普通砂 建筑程序歌 要想建设效果好，选择队伍要招标。 CASIO fx-5800P单交点通用型曲线坐标高程计算程序 一、说明： 本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。 二、内容： 1．PM5-3 XYZJS（主程序） “SINGLE BASIC TYPE CURVE”◢ “METHOD OF COORDINATE PM5-3”◢ Deg:ClrStat:FreqOn:Fix 3 40→DimZ “INPUT(0) Or DATA(Else)”?N “FUNCTION”?P Prog “SUB5-35” If Z[30]<0:Then -1→Z[20]:Else 1→Z[20]:IfEnd Abs(Z[30])→D Pol(Z[26]-Z[28],Z[27]-Z[29]):Cls If J<0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD方位角 Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角 If Z[16]>360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEnd If Z[12]>180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角 S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值 0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值 T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值 0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值 (R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长 (R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长 90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度 S+T+Z[9]→Z[10] 计算曲线总长度 Z[25]-Z[5]→List X[1] 计算直缓点桩号 1→K:Prog “SUB5-37” List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号 Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1] If S≠0:Then“ZH PEG(m)=”:List X[1]◢显示直缓点桩号 Else “ZY PEG(m)=”:List X[1]◢显示直圆点桩号 IfEnd “X(m)=”:List Y[1]◢显示直缓(圆)点X坐标 “Y(m)=”:List Freq[1]◢显示直缓(圆)点Y坐标 小白自学ExcelVBA道路坐标高程计算程序流程 1声明 1.1 本人是个工作时间不长测量施工员。 1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的…… 1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。 1.4 谷歌、度娘，是咱的好帮手。 1.5 仰望的存在，神一般的存在，无私的化身！ 道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077） 曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316） 陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！ 1.6 道路中边桩坐标计算程序120424.xls代码获取。 王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！ 2 代码理解ing… 我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。现在咱们冲呀！ ⑴采用资源管理器界面类型进行设计，数据按照“工程、曲线、计算表” 三级进行组织。可以建立数个工程，每个工程包含数个曲线，每个曲线又包含若干计算表。结构清晰，便于测量资料的计算、存储、管理。 ⑵对于一个曲线，可以根据不同需要，计算不同的点位坐标（如中桩、 边桩），产生一个相对独立的计算表，而不需重复输入曲线交点坐标、半径、缓和曲线长等资料。 ⑶能够计算出中桩、边桩任意点的坐标。软件提供中桩、中桩+左右边 桩、中桩+左边桩、中桩+右边桩四种计算表类型，可以根据实际需要进行选择。 ⑷能够计算法线方向及任意方向边桩的坐标。 ⑸计算出中桩的切线方位角，便于您进行其他的计算。 ⑹可以利用“坐标查询”窗口针对一个曲线或一项工程进行某一桩号的坐 标查询，而不需建立计算表，灵活方便。 ⑺已知一点的坐标，可以利用“桩号查询”窗口进行桩号查询。利用此窗 口可以计算出此点对应中桩的里程以及到中桩的距离，这样可以用于高边坡、挡土墙、隧道净空的检查。 ⑻计算坐标时，桩号输入提供手动输入和自动输入两种方式。自动输入 方式能够自动产生整桩号以及固定距离的左右边桩；自动输入后还可以进入手动输入状态进行更改，以适合您的特殊需要。 ⑼可以对桩号自动输入的起讫点进行设置。 ⑽计算表产生后，可以输入置镜点、后视点坐标，能够计算出现场放样数据。置镜点、后视点也可以从控制桩表中进行选择。 ⑾每一项工程都有一个独立的控制桩表。打开控制桩表后可以进行控制桩的添加、删除等操作。 ⑿具有极强的纠错能力，能够对您输入的数据进行自动检查，对错误数据给出提示。 ⒀计算结果可以导出，可以用Excel软件进行编辑或用于往测量仪器的传输；也可以自动生成精美报表，并能够进行打印预览或打印输出。 第一课时 3.3-1两直线的交点坐标教案 一、教学目标 （一）知能目标：1。直线和直线的交点 2．二元一次方程组的解 （二）情感目标：1。通过两直线交点和二元一次方程组的联系，从而认识事物之间的内的联系。 2．能够用辩证的观点看问题。 二、教学重点，难点 重点：判断两直线是否相交，求交点坐标。 难点：两直线相交与二元一次方程的关系。 三、教学过程： （一）课题导入 用大屏幕打出直角坐标系中两直线，移动直线，让学生观察这两直线的位置关系。课堂设问一：由直线方程的概念，我们知道直线上的一点与二元一次方程的解的关系，那如果两直线相交于一点，这一点与这两条直线的方程有何关系？ （二）探研新知 分析任务，分组讨论，判断两直线的位置关系已知两直线L1：A1x+B1y +C1=0,L2：A2x+B2y+C2=0 如何判断这两条直线的关系？ 教师引导学生先从点与直线的位置关系入手，看表一，并填空。 几何元素及关系代数表示 点A A（a，b） 直线L L：Ax+By+C=0 点A在直线上 直线L1与 L2的交点A 课堂设问二：如果两条直线相交，怎样求交点坐标？交点坐标与二元一次方程组有什关系？ 学生进行分组讨论，教师引导学生归纳出两直线是否相交与其方程所组成的方程组有何关系？ （1） 若二元一次方程组有唯一解，L 1与L2 相交。 （2） 若二元一次方程组无解，则L 1与 L2平行。 （3） 若二元一次方程组有无数解，则L 1 与L2重合。 课后探究：两直线是否相交与其方程组成的方程组的系数有何关系？ 1． 例题讲解，规范表示，解决问题 例题1：求下列两直线交点坐标 L1 ：3x+4y-2=0 L1：2x+y +2=0 解：解方程组 34202220x y x y +-=??++=? 得 x=-2，y=2 所以L1与L2的交点坐标为M （-2，2），如图3。3。1。 6 4 2 -2 -4 -55 y x 教师可以让学生自己动手解方程组，看解题是否规范，条理是否清楚，表达是否简洁，然后才进行讲解。 同类练习：书本114页第1，2题。知识讲解_直线的交点坐标与距离公式_基础
交点法线元法坐标计算
[整理]9860G线元法隧道(坐标正反计算、高程)计算程序
《坐标方位角及距离计算小程序》代码——Access实现
交点法坐标计算
fx-5800p全线坐标正反算带高程计算程序(线元法)
Casio fx-5800P 交点法坐标计算程序
直线的交点坐标和距离公式
测量坐标计算及高程计算
高一数学必修二《直线的交点坐标与距离公式》
怎样计算高速公路路线坐标及高程
5800坐标高程计算程序
坐标、高程计算公式
[整理]fx-5800P坐标高程计算程序交点法.
小白自学ExcelVBA道路坐标高程计算程序流程
道路测量坐标计算系统交点法简介
高中数学-直线的交点坐标与距离公式教案