CSHS 程序标题
〃CS→HS 〃↙ 〃DD=〉SG 〃◢ Deg:Fix 3:Clrstat:FreqOff:Cls↙ 〃XO=〃?A: 〃YO=〃?B: 〃DX=〃?C: 〃DY=〃?D: 〃XI=〃?E: 〃YI=〃?F:tan-1((F-B)÷(E-A)) →G↙ 0→K↙ Lbl 1↙ K+1→K:Norm 1: 〃n= 〃:K◢ Fix 3: 〃Xn= 〃?X↙ While X≠0↙ 〃Yn= 〃?Y↙ (X-A)cos(G)+(Y-B)sin(G)+C→U↙ (Y-B)cos(G)-(X-A)sin(G)+D→V↙ U→List X[K]:V→List Y[K]:Cls↙ 〃XP= 〃: Locate 5,1,U: 〃YP= 〃: Locate 5,2,V◢ Goto 1:WhlieEnd↙ 〃CSHS→END 〃 程序运行说明: 先输入大地原点,再输入对应的测量坐标和施工坐标,作为3个已知数据 再输入要转换的点,可重复输入,按0终止。 例:XO=555.412 YO=1380.518 DX=700 DY=1000 XI=1934.827 YI=3211.037 输入xn=572.116 yn=843.21 出 xp=280.942 yp=663.297 |
|