Eingabe von Eckpunktskoordinaten (in der Reihenfolge der Zeilen Run machen)

In[578]:=

p1 = {0, 0} ;

In[579]:=

p2 = {10, 0} ;

In[580]:=

p3 = {11, 2} ;    (* p3 = p2 ist zulässig *)

In[581]:=

p4 = {0, 4} ;

In[582]:=

inpQKoord=Input["Neue Eckpunktkoordinaten eingeben? Ja ==> input 1, Nein ==> input 0 !!!!"];
If[inpQKoord==1,
Print["Yes = ", inpQKoord];
p1  = Input["p1 eingeben, z.B. {0,0} "];  Print["p1 = ", p1];
p2  = Input["p2 eingeben, z.B. {10,0} "]; Print["p2 = ", p2];
p3  = Input["p3 eingeben, z.B. {11,2} "]; Print["p3 = ", p3];
p4  = Input["p4 eingeben, z.B. {0,4} "];  Print["p4 = ", p4],
inpQKoord = 0; Print["No = ", inpQKoord]; Print["Koordinaten o.k."]];

No = 0

Koordinaten o.k.

Created by Mathematica  (December 15, 2006) Valid XHTML 1.1!