SG Fórum - Maple - #483

SG Fórum - Maple - #483

Fórum / Felhasználói programok

xDJCx 2010. júl. 03. 12:55 | válasz | #483
Többféle módon lehet, pl. az alábbiakban lépésenként elõállítva a vektorokat és egyenest:

restart;with(plots):

p1:=<0,1>;p2:=<3,5>;# p1 és p2 pontok megadása p1=<x1,y1> és p2=<x2,y2> formában

m:=(p2[2]-p1[2])/(p2[1]-p1[1]);# egyenes meredeksége m= (y2-y1)/(x2-x1) szerint

y:=m*(x-p1[1])+p1[2];# p1 és p2 pontokon átmen&#245
; egyenes egyenlete y=m*(x-x1)+y1 alakban

egyenesabra:=plot(y,gridlines=true,linestyle=dash);

iranyvektor:=<1,m>;

normalvektor:=<-m,1>;

x0:=0;# pl. x=0 pontban rajzolom fel a vektorokat

p0:=<x0,eval(y,x=x0)>;# egyenes értéke az x0 pontban, innen fogom rajzolni az irányvektort

iranyvektorabra:=plots[arrow](p0,iranyvektor,shape = arrow,color=black);

normalvektorabra:=plots[arrow](p0,normalvektor,shape = arrow,color=blue);

display(iranyvektorabra,normalvektorabra,egyenesabra,scaling=constrained,view=[-4..4,-4..4],title=typeset("y = ",y));

Válasz 'Gimre' üzenetére (#482)