A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #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õ 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));