/*ÒÑÖªÔ×ø˜ËA1(Xa1,Ya1),B1(Xb1,Yb1),C1(Xc1,Yb1)
Ô®aÆ·½›ß^”[„Óºó£¬ÐÂ×ø˜Ëžé
Æ«ÒÆÁ¿£¬¦¤X,¦¤Y
2ücÅÄÕÕ£¬µÃ³öA2(Xa2,Ya2),B2(Xb2,Yb2)
ÇóCücÐÂ×ø˜ËC2£¨Xc2,Yc2£©
K1=(Ya1-Yb1)/(Xa1-Xb1)
K2=(Ya2-Yb2)/(Xa2-Xb2)
µÚÒ»²½
ÀûÓÊA½Ç¹«Ê½£¬ÇóµÃtan&µÄÖµ¡£
tan&=|(k1-k2)/(1+k1*k2)|
K1-K2>0,ÔÚÔˆDÏñÉÏßMÐÐ형rá˜ÐýÞDÆ«ÒÆ£¬¼´Tan&žéÕýÖµ
K1-K2<0,ÔÚÔˆDÏñÉÏßMÐÐÄæ•rá˜ÐýÞDÆ«ÒÆ£¬¼´Tan&žéØ“Öµ
ÀûÓÃÉüc´_Á¢µÄÖ±¾€ÔÚ×ø˜ËϵÖУ¬Ð±ÂÊÏëœpµÄÖµ£¬´_ÕJ&žéÕýֵ߀ÊÇØ“Öµ
´_¶¨&ÊÇÕý½Ç¶ÈÆ«ÒÆ»òØ“½Ç¶ÈÆ«ÒÆ£¬¼´tan&È¡Õýֵ߀ÊÇØ“Öµ
µÚ¶þ²½
TAN&žéÒÑÖª£¬„t»¡¶È=ARCTAN&
ÄÇôSIN&=SIN(arctan&)
COS&=COS(arctan&)
/
µÚÈý²½
ÓÉ×î³õA1,B1,C1.
µ½|AC|=¡Ì[(Xa1-Xc1)^2+(Ya1-Yc1)^2]
ÄÇôC2µÄ×ø˜ËXc2=(COS&*|AC|)+Xa2
Yc2=SIN&*|AC|+Ya2
¿‚½Y£¬1£¬¸ù“þÒÑÖª×ø˜ËÖµ£¬ÇóµÃˆDÏñÐýÞDÆ«ÒƽǶȣ¨»¡¶È£©Öµ£¬
2£¬ÒÑÖª×ø˜Ë£¬ÇóµÃµÚÈýüc»ùÓÚÒÑÖªücµÄêPϵ£¬ƒÉüc¾€¶ÎéL¶È
3£¬ÍƵ½µÃ³ö¸Ä׃ºóµÚÈýüc£¬ÏàŒ¦ÓÚ¸Ä׃ºóÒÑÖªücµÄ£¬×ø˜ËÖµ
*/
DATAN(TRUE, 1, TEMP1 );
DSIN(TRUE,TEMP1,D1000:E);