Putra Pratama's page

> restart;

> with(plots):

> Elips:=[9*cos(theta),7*sin(theta),0];

> f:=(x,y)->x+2*y+30;

> Dasar:=spacecurve(Elips,theta=0..2*Pi,color=red,thickness=2):

> Tujuan:=plot3d(f,-9..9,-7..7):

> Pilihan:=(axes=frame,orientation=[150,40],labels=[x,y,z]):

> display({Dasar,Tujuan},Pilihan,title=`"Gambar 7.1"`);

> Proyeksi:=spacecurve([Elips[1],Elips[2],f(Elips[1],Elips[2])],theta=0..2*Pi,color=red,thickness=3,color=blue):
>

> display({Dasar,Tujuan,Proyeksi},Pilihan,title=`Gambar 7.2`);

> F:=f(Elips[1],Elips[2]);

> plot(F, theta=0..2*Pi, title="Gambar 7.3");

> Dif_F:=diff(F,theta);

> TKritis:=solve(Dif_F=0,theta);

> NMAks:=simplify(subs(theta=TKritis,F));

> NMaksElips:=simplify(subs(theta=TKritis,Elips));

> LevelCurve:=plot3d(f, -9..9, -7..7, style=contour, axes=normal, contours=100, orientation=[270,0]):

> display({LevelCurve,Dasar}, axes = normal, title="gambar 7.4");

> level:=solve(f(x,y)=a,y);

> [f(-9,-7),f(-9,7),f(9,-7),f(9,7)];

> animate({[Elips[1],Elips[2],theta=0..2*Pi],[x,level,x=-9..9]},a=7..53,scaling=constrained,frames=100);

> CartElips:=x^2/81+y^2/49=1;

> CarElip:=subs(y=y(x),CartElips);

> TurunanImp:=diff(CarElip,x);

> Turunan:=solve(TurunanImp,diff(y(x),x));

> kemiringan:=subs(y(x)=y, Turunan);

> solve({CartElips,kemiringan=-1/2},{x,y});

> Solusi:=allvalues(%);