federgraph
Posts: 9
Joined: Sun Aug 11, 2013 4:51 am

Federgraph formula

Sun Nov 24, 2013 8:02 pm

A starting point for you: try out the Federgraph formula, then improve on it.
Eventually the real program that implements it (fast and good looking) will come to the Pi.
http://www.riggvar.de/federgraph-formula.html

(* Clear *)
ClearAll[x1, x2, x3]
ClearAll[y1, y2, y3]
ClearAll[l1, l2, l3]
ClearAll[k1, k2, k3]

(* Establish the Federgraph formula *)
a1=(x-x1)^2+(y-y1)^2;
a2=(x-x2)^2+(y-y2)^2;
a3=(x-x3)^2+(y-y3)^2;

t1=Sqrt[a1];
t2=Sqrt[a2];
t3=Sqrt[a3];

b1=t2*t3*(t1-l1)*k1;
b2=t1*t3*(t2-l2)*k2;
b3=t1*t2*(t3-l3)*k3;

u1=b1*(x-x1);
u2=b2*(x-x2);
u3=b3*(x-x3);

u=u1+u2+u3;

(*scale and make absolute*)
f=Abs[u/1000000]

(*provide concrete values*)
x1=65;
x2=-65;
x3=0;
y1=65;
y2=65;
y3=-65;
l1=90;
l2=90;
l3=90;
k1=1;
k2=1;
k3=1;

(*and plot*)
Plot3D[f,{x,-150,150},{y,-150,150}, PlotRange -> {0, 50}]

Return to “Wolfram Language”