Initial commit with my code directory

code_JMW/Ufonctions.pas

@@ -0,0 +1,39 @@
+unit Ufonctions;
+
+//uses
+
+interface
+
+//function distance (ax,ay,bx,by,cx,cy : integer):real;
+function distance (ax,ay,bx,by : double):double;
+function entre(v,l1,l2:double):boolean;
+function dist_proj_ortho(ax,ay,bx,by,mx,my : double):double;
+
+
+implementation
+
+
+function distance (ax,ay,bx,by : double):double;
+begin
+ // result:=sqrt((cx-ax)*(cx-ax)+(cy-ay)*(cy-ay))+sqrt((cx-bx)*(cx-bx)+(cy-by)*(cy-by))-sqrt((bx-ax)*(bx-ax) + (by-ay)*(by-ay));
+ result:=sqrt(sqr(bx-ax) + sqr(by-ay));
+end;
+
+function entre(v,l1,l2:double):boolean;
+begin
+  result:=(l1<=v)and(v<=l2) or (l2<=v)and(v<=l1);
+end;
+
+
+function dist_proj_ortho(ax,ay,bx,by,mx,my : double):double;
+begin
+  if ax=bx then result:=abs(mx-ax);
+  if ay=by then result:=abs(my-ay);
+  if (ax<>bx) and (ay<>by) then
+    result:=abs(((by-ay)/(bx-ax))*(mx-ax)+ay-my)/sqrt(1+sqr((by-ay)/(bx-ax)));
+
+
+end;
+
+
+end.