平曲线坐标计算程序.docVIP

平曲线坐标计算程序(CASIO fx-4800P) A子程序:XM?Prog“B”:Goto 0:≠?X=M?Prog“C”:≠?XM?Prog “B”:Q=Q+180:Lb1 0:Q=Q+360:Q≥360?Q=Q-360◢≠?Q=Q◢ B子程序:Q“Q”=tan-1((Y-N)÷(X-M) C子程序:Y≥N?Q=90◢ ≠?Q=270◢ D子程序:C“SO”=√((X-M)2+(Y-N)2) 主程序: R“R”S“LS1”U“LS2”W“ZG”P“WZH”:A=90S÷Rπ:B=90U÷Rπ: C=S2÷24R:D=U2÷24R:E=S÷2-S^3÷240R2:F=U÷2-U^3÷240R2:Q“T1”=E+ (R+C)tan(AbsW÷2)+(D-C)÷sin AbsW◢ K“T2”=F+(R+C)tan(AbsW÷2)-(D-C)÷tan AbsW◢ O“S”=(AbsW-A-B)Rπ÷180+S+U◢ J“JD”T“XJD”V“YJD”:A“ZH”=J-Q◢ B“HY”=A+S◢ E“YH”=A+O-U◢ F“HZ”=A+O◢ G“XZH”=T+Q cos(P+180)◢ H“YZH”=V+Q sin(P+180)◢ I“XHZ”=T+K cos(P+W)◢ J“YHZ”=V+K sin(P+W)◢ M“XO”N“YO”:Prog“A