导线计算平差.doc

CASIOfx-P程序集导线近似平差计算程序DXPC(程序名)Lb:→DimZ:N-→DimZ:“N”?N:“A”?A:“B”?B:“C”?C:“D”?D:“E”?E:“F”?F:“G”?G:“H”?H:Pol(C-A,D-B):IfJ<:ThenJ+→J:IfEnd:J→J:J→T:Pol(G-E,H-F):IfJ<:ThenJ+→J:IfEnd:J→J:J→M:→L:→U:→V:→R:“?T=”:T▲DMS◢T→P:“M=”:M▲DMS◢“I”?I:Lb:“Z”?Z:R+→R:Z→Z[R]:IfI=-:ThenGotoC:IfEnd:GotoD:LbC:P+Z-→P:GotoE:LbD:P-Z+→P:GotoE:LbE:IfP<:ThenP+→P:GotoB:ElseIfP≥:ThenP-→P:GotoB:IfEnd:P→P:GotoB:LbB:IfR<N:ThenGoto:IfEnd:Goto:Lb:→R:“P=”:(P-M)→P◢IfI=-:Then“Q=”:-P÷N→Q◢GotoN:IfEnd:“Q=”:P÷N◢GotoN:LbN:T→Z[N]:Lb:“S”?S:R+→R:S→Z[N+R]:L+S→L:IfI=-:ThenGotoF:IfEnd:GotoG:LbF:Z[R]+Z[N+R-]+Q÷-→Z[N+R]:GotoH:LbG:Z[N+R-]-Z[R]-Q÷+→Z[N+R]:GotoH:LbH:IfZ[N+R]<:ThenZ[N+R]+→Z[N+R]:GotoA:ElseIfZ[N+R]≥:ThenZ[N+R]-→Z[N+R]:GotoA:IfEnd:Z[N+R]→Z[N+R]:GotoA:LbA:“Z[N+R]=”:Z[N+R]▲DMS◢“Z[N+R-]=”:Scos(Z[N+R])→Z[N+R-]◢U+Z[N+R-]→U:“Z[N+R-]=”:Ssin(Z[N+R])→Z[N+R-]◢V+Z[N+R-]→V:IfR+<N:ThenGoto:IfEnd:“L=”:L◢“U=”:(U+C-E)→U◢“V=”:(V+D-F)→V◢“K=”:Int(L÷√(U+V))→K◢→R:C→X:D→Y:Lb:R+→R:-UZ[N+R]÷L→:-VZ[R+N]÷L→W“O=”:◢“W=”:W◢X+Z[N+R-]+.→X:Y+Z[N+R-]+.W→Y:“X=”:X◢“Y=”:Y◢IfR+<N:ThenGoto:IfEnd:Goto注:.程序中N-在计算时应根据实际观测角数按N-,则“N-”改为“”第頁符合导线计算表工程名称:韶关市曲江至南雄段高速公路合同段:C标点号观测角(右)°′″角度改正值(″)坐标方位角°′″边长(m)坐标增量值(m)改正数(mm)坐标(m)备注△X△Y△X△XXXGPS...已知GPS-...已知....-..SG-.......-..SG-.......-..SG-.......-..SG--.......-..SG-.....-..-..SG-.......-..SG-.......-..SG-.