neznam al do sad ima ovo
y = Ax + By + C;
T = {X, Y};
sim[y_, T_] :=
Module[{d, a, b, S}, d = Abs[A*X + B*Y + C]/Sqrt[A^2 + B^2]; a = ;
b = ; S = {a, b}; S]
kasnije si zadat y=...pravac
i T točku a točku S bi trebalo izračunati, al nez program napisat, ako skuzim nadodam
i crtež je
slika1 = ListPlot[T, PlotStyle -> Red];
slika2 = ListPlot[S, PlotStyle -> Red];
slika3 = Plot[y, {x, -10, 10}];
Show[slika1,slika2, slika3]
Post je objavljen 27.01.2012. u 12:44 sati.