《CASIO fx5800P 无定向导线程序》由会员分享,可在线阅读,更多相关《CASIO fx5800P 无定向导线程序(2页珍藏版)》请在金锄头文库上搜索。
1、5800 无定向无定向导线导线程序程序W W D D X X(运行)80DimZDimZ: Prog“W1W1”: Prog“W2W2”:Z40J: Z20K:“X.Z”?U:“Y.Z”?V:Prog“W3W3”:SZ20:19:Z40+NU: Z60+NV:ProgW3W3: Z19-RO: Z20SP: BHC=:Z20Abs(Z20-S)T For 1I To N: ZI+OZI:PZ20+I Z20+I:X=:Z40+I-1+Z20+Icos(ZI)Z40+I Y=:Z60+I-1+Z20+Isin(ZI) Z60+I NextW W 1 1“B”?N:“Q.F”?Z:“1.JD”?B
2、:B+180+ZZ1:Z1360=Z1-360Z1:For 2I ToTo N:“JD”?B:ZI-1+B+180ZI:ZI360=ZI-360ZI: NextW W 2 2“X.Q”?Z40:“Y.Q”?Z60:0T:For 1I ToTo N:“BN”?S:T+ST:SZ20+I:Z40+I-1+Scos(ZI)Z40+I:Z60+I-1+Ssin(ZI)Z60+I: “X=”:Z40+I “Y=”:Z60+I NextW W 3 3U-JE:V-KF:(E2+F2)S:tan-1(FE)R:If ER+360R:Lbl 1:Return 本程序计算 18 条边。超过的修改变量,不过,超过了还是分段的好,要不做的就球不像了。B 输入你的导线的几条边Q.F 起点方位角,靠!无定向那来的方向,输入 90 就行了1,JD 一样的,第一个角度没有,输入 90 可以撒JD 连续问你测角的度分秒,输入X.Q、Y.Q 起点坐标值X.Z、Y,Z 终点坐标值BN -问你测边的数值,米BHC -闭合差,是分母值X=、Y= -各点计算值