各位先進大家好    請問各位，小弟想在image上按任意兩點，求出這兩點所連成線的斜率 寫了以下的程式，數值不對，不知該如何改進？

int X1,Y1,X2,Y2,flag=0;    void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (flag==0)
     {
      X1=X;
      Y1=Y;
     }
  if (flag==1)
     {
      X2=X;
      Y2=Y;
      double angle=atan((Y2-Y1)/(X2-X1))*180/3.14159;
      Edit1->Text=IntToStr((int)angle);
     }
  if (flag==0)
      flag=1;
  else
      flag=0;
}

謝謝您，如果有更好的方法，還請您指導讓小弟長知識 新手上路，請多指教 如果此文章違反版規 還請版主告知並刪除 Just do it

------
JUST DO IT

有幾個地方要改進,   3.14159 請改成 M_PI     double angle=atan((Y2-Y1)/(X2-X1))*180/3.14159;  這一行要檢查 (X2 - X1) 不能等於 0     請把 X1, X2, Y1, Y2 宣告成 double, 不然 ((Y2-Y1)/(X2-X1) 會傳回一個整數, 結果自然不對.    Jesse Chan

------
Jesse Chan

((Y2-Y1)/(X2-X1)) 這不是斜率公式ㄇ 怎麼會有反正切函數呢 劉維翔

------
劉維翔

引言: ((Y2-Y1)/(X2-X1)) 這不是斜率公式ㄇ 怎麼會有反正切函數呢 劉維翔

首先先向jessechan大說聲謝謝 bc902146兄，您好 利用atan()function 可以求出原來的角度值 而這才是我要的，可能我的標題定的不是很好 造成您的誤解，十分抱歉 新手上路，請多指教 如果此文章違反版規 還請版主告知並刪除 Just do it 發表人 - clarkkent 於 2003/04/22 20:14:37