24 lines
730 B
Plaintext
24 lines
730 B
Plaintext
#property copyright "*"
|
|
#property link "*"
|
|
#property version "1.00"
|
|
//+------------------------------------------------------------------+
|
|
//| Script program start function |
|
|
//+------------------------------------------------------------------+
|
|
void OnStart()
|
|
{
|
|
|
|
double d=DotToLineDist(78,251,138,226,346,208);
|
|
Alert(d);
|
|
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
|
|
double DotToLineDist(double LX1,double LY1,double LX2,double LY2,double DX, double DY){
|
|
double K=(LY2-LY1)/(LX2-LX1);
|
|
double LA=LY1-K*LX1;
|
|
double DA=DX+K*DY;
|
|
double CX=(DA-K*LA)/(1.0+K*K);
|
|
double CY=LA+K*CX;
|
|
return(MathSqrt(MathPow(DX-CX,2)+MathPow(DY-CY,2)));
|
|
} |