李正云4850量程序.docVIP

附件(点击下载)：本程序是在yshf及hangniu1973两位师傅的成果上作的一次改动，修改内容主要有一下几点：1、在变量符号上修改，目的是更能与工地实际结合；2、把原主程序分为两个，更能灵活调用；3、加入放样程序，做到坐标计算到放样一体化；4、使得整个测量放样过程更加简单。附件(点击下载)：GAUSSLE坐标正反算fx－4850程序源程序1.正算主程序??GSZSIX0：SY0：OK0：GF0：HKN：PR0：RRN：Q”Q(-Z??+Y)” :D=(P-R)÷(2(H-O)PR)：KL”L(-Z??+Y)” :M”ANG(YJJ)”=90:（注：此处若不给M赋值，则可计算斜交点）J=Abs(K-O)：ProgSUB1：”FWJ=”:F=F-M:”X=”:X=X:Pause0: ”Y=”:Y=Y2. 反算主程序??GSFSXY：Z[2]=X：Z[3] =Y：IX0：SY0：OK0：GF0：HKN：PR0：RRN：Q”Q(-Z??+Y)” :D=(P-R)÷(2(H-O)PR):J=Abs((Y-S)cos(G-90)－(X-I)sin(G-90))：L=0：M”M(YJJ)”=90:Lbl 0：Prog SUB1：L=(Z[3]-Y)cos(G-90+QJ(1÷P+JD)×180÷π)-(Z[2]-X)sin(G-90+QJ(1÷