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