//KETlib
use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(plugindirectory);
import("ketcindy.ini");

Ketinit();
Ketinit3d();

//figures
Start3d();

Ptseg3data();
Putaxes3d(4);
Xyzax3data("","x=[-3,3]","y=[-3,3]","z=[-3,3]");

Defvar(["a",1.8]);
Deffun("fun(x,y)",["regional(z)",
"z=2*(1-(2*x^2+y^2)*exp(-x^2-y^2))","z"]); 

fd1=[
"z=fun(x,y)",
"x=[-a,a]","y=[-a,a]","nesw"
];

Sf3data("1",fd1);

Deffun("nrm1(x,y)",["regional(v)","v=[0,0,1]","v"]); 
Mkobjnrm("1","[x,y,fun(x,y)],x,y"); 
//Mkobjcmd("1",fd1);
Mkobjthickcmd("1",fd1,"nrm1(x,y)",[0,-0.05,"+n+s-e-w+"]);

Mkobjcrvcmd("ax","ax3d");

Mkobjsymbcmd("x",0.05,0,[0,-1,0],[3.2,0,0],[0.02]);
Mkobjsymbcmd("y",0.05,0,[1,0,0],[0,3.2,0],[0.02]);
Mkobjsymbcmd("z",0.05,0,[0,-1,0],[0,0,3.2],[0.02]);
SetObj();
Windispg();