平曲线要数、线元各起点坐标及切线方位角计算程序CASIO（48504800）原创版
单位：中铁二十局集团第二工程有限公司编程：辜建君Defm12LbI0ABCFΟZREKA”JD”B”JDX”C”JDY”F”FJ”Ο”ZJZY”ZRE”LS1”K”LS2”E1E1E9K1K1E9Z1EE÷24RE4÷2688RRRZ2E÷2EEE÷240RRZ5KK÷24RK4÷2688RRRZ6K÷2KKK÷240RRZ7EE3÷40R2Z8E2÷6RZ9KK3÷40R2Z10K2÷6RGsi
1Z7Z2÷RVEEKK÷24R÷Si
AbsΟ”T1”Z3RZ1ta
AbsΟ÷2Z2V”T2”Z4RZ5ta
AbsΟ÷2Z6VIta
1RZ1÷Z3Z2“L”LAbsΟлR÷180EK÷2”E0”URZ1÷si
IRXAZ3YXEE1GOTO1≠GOTO2LbI1”ZY”X“ZYX”NBZ3CosF180“ZYY”QCZ3si
F180“FWJ”FDMSGOTO3LbI2”ZH”X“ZHX”NBZ3cosF180“ZHY”QCZ3si
F180“FWJ”FDMS“HY”Y”HYX”NBZ3Z7cosF180Z8cosF90Z“HYY”QCZ3Z7si
F180Z8si
F90Z“FWJ”J360ZGDMSLbI3”QZ”SXLKE÷2EDRsi
90LKE÷ЛRsi
1Z7Z2÷RZ2
fHR1cos90LKE÷ЛRsi
1Z7Z2÷RZ1“QZX”NBZ3DcosF180HcosF90Z“QZY”QCZ3Dsi
F180Hsi
F90Z”FWJ”J360ZG90ZLKE÷лRDMSLbI4MXLKPXLK1GOTO5≠GOTO6LbI5”YZ”P“YZX”NBZ4comFΟ“YZY”QCZ4si
FΟWFΟW0WFΟ360”FWJ”WDMSG0TO0LbI6”YH”M”YHX”NBZ4Z9cosFΟZ10cosFΟ90Z“YHY”QCZ4Z9si
FΟZ10si
FΟ90Z”FWJ”J360ZG180ZLKE÷лRDMS“HZ”P“HZX”NBZ4comFΟ“HZY”QCZ4si
FΟWFΟW0WFΟ360”FWJ”WDMSGOTO0说明：一、便于区分数字零于字母O，在程序中用Ο代替字母O二、本程序适合CASIO4850、4800、4500计算器使用。三、本程序适合于圆曲线、等长或不等长对称曲线。四、程序中变量：JD为交点里程桩号；JDX为交点里程X坐标；JDY为交点里程Y坐标；FJ为交点ZH点至交点方向的方位角；“ZJZY”为交点转角，左转为负转角，右转为正转角；Z为转角方向；左转为1，右转为1；R为曲线半径；LS1为第一缓和曲线长；LS2为第二缓和曲线长；计算结果显示：1、为缓和曲线时：
fT1为第一曲线切线长；T2为第二曲线切线长；L为曲线总长；E0为外失矩长；ZH、HY、QZ、YH、HZ为曲线元各起点里程；ZHX、ZHY、HYX、HYY、QZX、QZY、YHX、YHY、HZX、HZY曲线元各起点的X、Y坐标；FWJ为曲线元各起点ZH、HY、QZ、YH、HZ的切线方位角。2、为r