x
- /
-
Graph Equation of Apple (Impilcit Formula)
on 17 Oct 2024
- 12
- 135
- 1
- 2
- 386
PPAP by Pikotaro
drawframe(1);
Write your drawframe function below
% An Apple a day keep The Doctor away
% Graph of Equation created by Dhimas Mahardika S.Si., M.Mat.
% from Sanggung Utara, Jatingaleh, Candisari
% Universitas Diponegoro
% Universitas Nasional Karangturi
function drawframe(f)
h = linspace(0,2*pi,96);
syms x y z
m=y*sin(h(f))+x*cos(h(f))
n=x*sin(h(f))-y*cos(h(f))
p=x^2+y^2-(x^2+y^2+0.5*z^2).^2
q=abs(2.2*sqrt(x^2+y^2)+0.2*z-0.08)+abs(2.2*sqrt(x^2+y^2)-0.2*z+0.08)-0.25
eqn = q.*p.*(abs((2.2*n+0.836).^2+abs(1.54*n+3.3*z-2.7148)+11*m) + abs((2.2*n+0.836).^2+abs(1.54*n+3.3*z-2.7148)-11*m)-1.25) == 0;
fimplicit3(eqn,[-1.5,1.5,-1.5,1.5,-1.5,1.5], MeshDensity=70);
axis equal
end