GraphingCalculator 4;
Window 38 0 740 1366;
PaneDivider 398;
FontSizes 16;
BackgroundType 0;
BackgroundColor 10 0 20;
StackPanes 1;
SliderControlValue 1;
3D.View 0.4588713226809822 -0.8480857733512044 -0.264929481673266 0.7344638243103251 0.5298589633465256 -0.4240428866756048 0.4999999999999999 0 0.8660254037844387;
3D.Axis 0 0 -1;
3Dp.View -0.8327706123985539 0.2744524418422329 0.4808003372415086 -0.2376827867660479 -0.9616006744830079 0.1372262209211163 0.4999999999999999 0 0.8660254037844387;
3Dp.Axis 0 0 -1;
Text "5D Function w = w(x,y,u,v)
by Guido 'wugi' Wuyts, 2016
http://home.scarlet.be/wugi/qbComplex.html ";
Color 2;
MathPaneSlider 96;
Expr a=slider([-2,2]);
Color 3;
MathPaneSlider 101;
Expr b=slider([-2,2]);
Color 4;
MathPaneSlider 99;
Expr c=slider([-2,2]);
Color 5;
MathPaneSlider 101;
Expr d=slider([-2,2]);
Color 6;
Expr function(f,x,y,u,v)=5*cos([x+y])*sin([y-x])*[sgn([u*v])*u*v/(u*u+v*v+1)]^(1/2);
Text "Graph pairs z = z(x,y) and z' = z'(x',y') 
by keeping 2 variables constant, slider-wise (a,b,c,d)
Three graph pairs offset by z, z' = 0, 3, and -3
*Middle pair : coordinate pairs (x,y) and (x',y') = (u,v)
function pairs z = f(x,y,c,d) and z' = f(a,b,u,v) 
*Upper pair  : coordinate pairs (x,y)=(x,u) and (x',y') = (y,v)
function pairs z = f(x,b,u,d) and z' = f(a,y,c,v)
*Lower pair  : coordinate pairs (x,y)=(x,v) and (x',y') = (y,u)
function pairs z = f(x,b,c,v) and z' = f(a,y,u,d)
";
Color 7;
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAE5QTFRFw8PDw8OobiwAAAAAACxuqMPDw8OLTgAAAE6Li04AAAAsbqjDAABOi8PDw6huLAAATovDw4tOqG4sLG6oTk4AqMOLLCwsi24si6hubm5ORwq7PwAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAOcSURBVHic7dzrWqMwEIBhFbWNuquk7un+b3TJgTBJoKUFpnb3e/+4DRQySQiBp7N3dwAAAAAAAAAA/BfuH5rO49NQ8rxr9qufxjTNy6v78/Zt9WMf8/3dhZcF1FXlY/XzxPjaZoO2O8b68JrDUNJFvEEbx/i60eL+6OnOW/SWyaJd8Tw+MKvcgf15Ezdg1x+e6Tzd4Rd1YJgugmHSkKWy3FYlrsgNTxemr0grN7vjxA+2bJhuWmqaemi3Yfj38bm9lgyPpfG5Pff9pn34LOJIUYlIA9MfPat9f+K3z/6Lpviecnyu3w7pKx9+j3zyCR/TP8rw8tEtimN8Vb9fxDbZYabiq6+/NlXQRfD4Y5cPudRtNi/vh7PND+/vPof4N5ynbVa4vtuyHSeV8YnmdXX9WR7Hpnm+vGf6r90/lEcbujtsKTv+En2zzVDGJz7HTs+n81i9YpatrsahOPTycBm7by68Q/iKZaebPz6NGHe+mcoJMcwPxfB0s+JEfLE4ncftujA+U1XrsvjqdrrzQ//ltRyep+Oz68Vn64vvsvhsPd/HG1i5CNDsv7GLb358Yn6JS+9yNncD9NfI+B9btJrx62/J/OKXEfMbaDo+X+ff71XHtM1It6ZlrMk2bDB/mpFr5vjuE/e/UDcTazj0UFiHyUYQy7k2bJLF697/WjkQZ7RTGV9aH7oqdVXsKy5GoBFjPBWLhcpeFFtRm7R+WfL4tTS+fmaMy7NsHRrr1YpDD8UpQBd5VfzyZ6X159L4+vZNjw1+OH7IqVBOJqJYPj+IYj80H5/atMDZ5PFyvq6a4+vf550IZF8XT+xd2ObtwDkmnt+7hj+kHYYZYiie2Lug/fxe61p4pOm7TusvLDlBx+KJvWvq719GmNEqmH3cmK+OzHhvTBS7xrty9514/1mvbc+i/v4TAAAAAAAAAAAAAAAAt2dmAt+1UvIWm5nAd62UvKXm/kTvWil5S81N4LtWSt5CsxP41krJUyZ+4KyTkqdLpJYopeTpGvILlFPylKT8AuWUPC1WjDrFlDw1RvwQXy8lT0+f0qSbkqdnfnwrpuQp+tf7z4rrTyklT5WcP5VS8lRV97/NU/J0DatJrZQ8XWPrz21T8pRNPD984ZS885xO4CtcPyXvPCcT+Ao39vx+PIGvdnPvX44n8FW+Qkreec77D8xu7/0nAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1vIXfTUy3Lu2xPcAAAAASUVORK5CYIIA";
Expr z=function(f,x,y,c,d);
Color 6;
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAE5QTFRF//IAw8OobiwAAAAAACxuqMPDw8OLTgAAAE6Li04AAABOi8PDw6huLAAATovDw4tOqG4sLG6oAAAsbqjDbk4AqMOLbm5ObotuLG5ubm4sr9lEKQAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAOASURBVHic7dvpctsgFIZht2oTk7aWnO73f6NlEQIBcnzAQaPp+/xJrM36ECDZ43M6AQAAAAAAAAAAAAAAAPgPfPg4aJ8+hyVPz8P55ubxxmJqePnSsLvU128m3iqQGobL5vbN+cbhRus93mTjDdewRCe+0cLN+fQBXr837C+kL1ZytdQqbao5n2nRjhdQp1k3p+mw293zAfn0GzRcQDddOOE84qXx8ilbYhb57qmyoenzjUN22ZfgSQuEBhzdONDT160O8s75zJYukTkPa9Xa9ux/ZK2ynW9cRrdPqlp6QGs+0z2X05mdN46frSjlM81kX5p/zvObNs8w07rdt/Ll42/0HW8Oav7E06k70sVtGO+5lW+Jsxx5+adeYXxsSPMtjTu5szRnm+W7zBvE42gzn+8Ryh8odJFa9qZ93yHSfMlre6Q0n3u9dLywophv3mPpnvaYTXcI28bZ4L+vf6oQZ360yfO5/ZMcm/nm/hh6ZUhaSSXnVJUv2qUxn8sTZs3WfFM++CryKXdrKI0/YT4b7We46zXmKw2++/P5+cWPrlK+MP7OhRXJuDzZDvr6K7xP2/xib8v3N89WPj8JmMNl8+d13jKdP+2GYzr4fev6hW35VHb4tzYv3v9MLr3Cnpo5bX/67lyv4f635FKuXW33Sa68e4y4JG9RZYw74h2tlObzT4dxj45jrHq633C5bvEIiPKt7zJTOvv1zLc8f853h9ff7vNEnO/P/GR69jvY0/XJX/5m+eyqc/SW9c+frflC68530TmwnxXN32s8RUfT5eTeM3ry8TniLumOsBvdQctPv0/PG60uXHH7+4H3t/H5XTd7udWlK/p+fs/p9i00u76s5askXdH5+5cCVTwBtdXowhW6+Xa9fG98/9ms8/efAAAAAAAAAAAAAAAAOB5ZAd/xfpAiK+DrXJDXTljAt/8PwoSkBXx7/6BPSFzA11aQ1524gK+tIK+3igK+ph9E91ZRwPeIgrxuKgr4HlCQ109FAV97QV5HFQV8zQV5PVUU8DUX5PVUUcB3zHxzAd/p7QK+Q+VLC/hK+ZICvkPNLxUFfIfKJy7gO9j9T1zA11iQ15u4gO9gz5/iAr69C/KkxAV8exfkSUkL+A72+V1awHe471+EBXz7F+RJyQr4jvf9JwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8zj8igjBdZJ7gLwAAAABJRU5ErkJgggAA";
Expr prime(z)=function(f,a,b,prime(x),prime(y));
Color 6;
Expr vector(x,y,z)=vector(a,b,0);
Color 7;
Expr vector(prime(x),prime(y),prime(z))=vector(c,d,0);
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAFRQTFRFgACAgACXwtv//////9vClwCAgACt1v///7atrbb////rwjqA///WrQCAgDrC6///1maAgGbWl5Dr65CXwrb/1rb/lwCt69vrrTrC65DCwpDrwpDWthzF5wAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAOuSURBVHic7dxtd5sgFMDxbHZN6Lo10T3v+3/PgTwICKkokmTn/3uTUzHKvQianNweDgAAAAAAAAAAAI/gw8dOevo0bXk+dqeru/s7lxBd9/JZvbx+WXeAFb6+qfCCgGQ3ztn9K8R36a7kr7Z+DK8bpi0y4iv5rRCfPIR6aUOeMxotEUQbqxCfymmzAbTndNQFm788q8QnT7F6APVyoU398Lf62/vZFrVJXZ4qzLETl7BZx6c2RllwgScycNFTwMYnF7Brl8iu8ak9T7bppP/2kz32/tssK9fisyd//W4PJdZfA1vjU+M2uLecxz2GzPGDWZSPT3jv0PH18aQo1nfBIXLxzeffxV14KtKnH8cuXE31kc56x9nApuIb70CDedXvmE6yUmJ+ZMTxealVOfoZH8cMq2kewoZkfG4/N6Wni2Qlm7IF4vi8v82gh0u52qgHVK0Ss4XnMItvesM0lVX/Ntwhxo4lp/j716fwrscxTdG9fup9Io5cfOZPdy6Vmg3xiVm31sU3z9O2+Po68fXzybcuPr26htf57ccvNfmWx+etL+bRO1zJw/l3SjRE83LKWDj/1q4v6vAFycnHN3b411tqJg9mz3j9HOOIHnhqr59iPmfe2T1z/9P9EqZ3tvv6Shim+5+LS+i8jqOuOmAb6t7/Lv6FuCBHcXzu2VB1R3bPJj2Mzzt+MG7+DHANvdfgnl/WfsTdGp99/nT3ce851Mb3+9hNd0YXhnvM/BPFZx/QXv5WeP7cGp/NrZtF43w+u2VQvQ7+Eh2u/6bR7mkazDV7MefSx7gRGU/62ff5mMl5ccP1bwj2lvn8LpOeznl5Q8vP73Myu4m0y2FND0Z5Q9PvXxJE8vQil/LiBpnAGw7fO99/VtD0+08AAAAAAAAAAAAAAAA8Hv0DlgWVQrcoyKtAF/Atj69pQd525ud5y+O79Q/CConph7XL4rvxD/oK2QK+gvi2FOQ113u/F05W6h2qFuS15gr4spV6dQvyWgsL+Kxgeu1RkNeMqy3IVurtUZDXjhuKbKXeDgV5DQk/vlSl3g4FeS0F5UypSq8dCvJaKomvUkFeU//7+PXp+ef1vnJBXmPh+pmq1Hvs9TO6/yUq9R77/ueeJfOVelUL8loLnj/TlXpVC/Ka8z8/5Cr17qkgr1S2gO9eC/JKZf8Bz50W5JVKF/DdcUFeqXQB3/0W5JUqLeB7tO8/AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADA3fgHxd4zRLmr7rsAAAAASUVORK5CYIIA";
Expr z=function(f,x,b,y,d)+3;
Color 4;
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAEhQTFRFIrFMIrFumvL///////KrTrFMIrGNvf///+aNdeb////IdbFMIr+r3v//vcxMIszITtnj3tlu///jmr9MTrGNddnjmtnImsyrNExbvQAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAO5SURBVHic7dvpeqMgFIDhtMy0YTZNZ7v/Ox1BlgNo0RaS2PneP9Mhajis6pNzOgEAAAAAAAAAAAB4l4dHNfn0+XR6elbnPt+h1Zevfa5c9e27Cc8GppX60edLBtWr5apGG5662Eh7tfI0Rl5+9rl0zdRprte0jbKP8WYdOEU1N60ZqJ2Gp714ow6cl4uZWTTKUlk+xpLpTz88dZiS8nx31qiyqk7LklLp0A6NZmaeGRXmmDaD463xmSPOor4qDSNEJSINsYQp7A3hvz5SnZ119fjM8AxVckQPho/jcVl4cnSbJrJfYv44uy9qusKMafuvxRcbePAVdAGYf8SYC902pkPRHGbOH9PLjvlVB9V0dg9q6/V8fKGBx7miJiAZiPs8DuP09IfHpHt8L2t/kbzb38du2tsuJyaIrKG9Qt5Rl2KVLWajKJ/ODsPTntdsh7CjMfna+vjUMRx3S1Ouiekqa4SJlpvHYxyVMdIGdF63PfGJQ5NrDObAfHiuxjfHE1fNlvGN5eTbEZ+et4Z8/s1bWH4TsBqfDe1X3PUaxrc0+erx+fXF17iIz9b498K4X75pNd39J87pduuL3Z63N1Uen18IzGXSmg/FNn4St686+8C1qG+NdvHpfG2pHp7sVCauqcBWz8QXe2i+r3Ed4ov9/jeocJprlTHZ85vtf4MciBtaTItxeTmlI9lveK7GWnRIKBb3L+fk6HSHGdfG8bXiCyuj2x1e/s5LiajxIC4Zi0OA2ay1DXUWX9Pm/vOt8cUWdrunC1js4HIxEcXy+UHu93JImvJuD5fbTNVcvgN+el7cw0LxytGJju8GNlt5fp+a/hIOiGtELF45OnG75/doauOFpp86zU8suTC74pWjczd8/yLoxUros/swvSvSy/2xXDw13c27r/L+s7yn3eGG7z8BAAAAAAAAAAAAAABwPHsS+Y7405Q9iXw3TM17q10/1ruPn4btsi+R7x5+2rfLzkS+dql5V/JqIp+VZOy1S827jkoi36nI2Gv20+jrqCTylRl7rVPzOqsk8pUZe41T83qrJfIVGXttU/O6qyTylRl7TVPz+qsk8pUZX01T8/qrJPJ9nPiWE/kOH18lka/M2DvY+lJL5Csy9g4WXy2RL8vYO9z+V03kSzP2GqbmXUc9kS/J2Dvc/eeGRL7k+eEOUvP2qSfyJe4hNW+faiJf4nDP768n8uUO+P7l9US+zH2k5u3z0d9/AgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMD/5h8J9TCPLQt7HwAAAABJRU5ErkJgggAA";
Expr prime(z)=function(f,a,prime(x),c,prime(y))+3;
Color 4;
Expr vector(x,y,z)=vector(a,c,0+3);
Expr vector(prime(x),prime(y),prime(z))=vector(b,d,0+3);
Color 5;
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAE5QTFRFAKLomdnJVjEAAAAAADGDg9nqmdmnPQAAAFenbVcAAABebdnqmbqDIgAAPZvqmZteg3o0InrJAAA0VrrqVlcAg9mnIjE0VnpebbqDInqDTmBP/gAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAPBSURBVHic7dzZdtowFEBREqcBtQ2YtOnw/z9aDdZoCWSLCLx69kuKbIyuRsPy7W4HAAAAAAAAAAAAYJ2n50F6+eJLXvfD4eLp4ckLieHrt9VvXuP7mwovCkgMw7F4fmN8p+FC232GUYc3nH2JjPhCGzfGJ9/+/mP1u1eQnZX0loiiTTXGp9qzawfKaOIGVQO2PDyb45OXb+pAs1wYvh5haVg+zkpUkRqeKkxdkVN82MSnCuetIBemYYgHt2++k5kF6pwLw+PT41NnHuyhg3kdNriO7+esVaZYZpP55F7aSEVb/7fGp/rt7N5y1GecC9ePZ5Lw5b5nVXfpi6t/2Ha7wQqjqhVcphTffP6dXPVUpC8f+2TAmSsdzYnhO+2AHmfD3Q3zY/wBDfLzIyeNL2heVdNf6XWmbp0OBz1rL/T0HF3Pjgdh28kNkAZ60667SBpf8Hrq9Hg5V4Wmom7oufLcvJrOd8NT161xh9AViz6sfnyKYDzqZkr2eh9HHFEcbcCMRz8qfaSriVm11sU3b6cV8Zl4/KrZHt84n3zr4hvT1X63Ij4d2off9Zrjy02++viC9WW69Y5X83j+HTLlKTk033/HV21ZX/RNRH0DlePTNf7zlpvJ5+nMZP00g0Zkejxo1Nb4xHzOXDm9sP+Z+ospCts/prZnv//ZA3b/m8qD/hyjPb9x/zuFA7GindL43P2hqq+soK12HF9wfRdIcP9yiMZrvAyPpXHcJz57/+n28TGur/r7d+/CCANxAarhE8SnL3UIPrDl/rM1Ptu+7muDns9Ht1qqv+dwiQ6W0fD7Q7i6hkPSvP+OZCXz97+v+0K7Fw7kiy//OtBD4fu7bPh8uxcOFIp7f3+fky2caXjZrfnuKxwoFHf//SVDZKsgSs1eOJAvlo135+678vtno+6/fwIAAAAAAAAAAAAAAGB7zAMstZlC23skxSTw1cbXPSWv1fSIXm18j/BI2CLCP1hb9STp/R/pW8Qm8FXH15qS15l9wLk6U681Ja8vl8BXn6nX+Eh0X3ECX/BEu5dm6t0mJa8T9zB3fabeTVLyenGdUZ+pd4uUvG5EGF9dpt4NUvL6EfMMhGuZXjdIyeuH+LYd35iff5cy9Ta1vsTrZ1Wm3qbiS/a/65l6G9v/3N1kbaZec0peX9H9Z02m3sbuP6PvDzWZevdPyVummMD3uCl5yxT/A56HTclbJp/A99ApecvkE/geOSVvmWUJfNv7/RMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/lP/AL3DL+kC/6OIAAAAAElFTkSuQmCC";
Expr z=function(f,x,b,c,y)-3;
Color 2;
Picture "iVBORw0KGgoAAAANSUhEUgAAAN8AAADaCAMAAAAR6metAAAABGdBTUEAAJxAIA3kywAAAEtQTFRF7Rwk7RwfhQYAAAAAAAYUzBwk7RwZXwAAAAsZqQsAAAAIhRgkAAAOqRwk7RgUNQAAXxQk7RQOzBAINRAfXwsAqRAIhRQUhRAIhRAOJFPI8wAAAAd0SU1FB+AGGA8IA5rxp30AAABFdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgNC4wIChXaW5kb3dzOyBsaWJwbmcgMS4yLjI2OyB6bGliIDEuMi4zKeyy8qoAAAOUSURBVHic7dztdpwgEIDhtLZJ2KZNJf26/ystCOKAurCr4HrO+/xJg644gMB6Mn16AgAAAAAAAAAAeGyfPnfGl69TyfNL91qhItV1l2/2x9v3Cldf8+PdhhcFZG7kZ4WafHx9V6X11ughvO5jKjERV2lhH58ZL/ZHK6bWpLdUFO2uNQ2B6aYdONYa2AFbY3iGmkwFGzrQTRfONGnIUlmuZyW2aByeavZo2uv4c3XUMOGAOGPUuwdgjM9MXxsGyNb47JkuInsfA9naIaokjvX4xqrffo0fVbMWaBifHZ6udVU4X/RgODydl4lPiYpdfDp9JO6gu9nwWYpv/vz143zjA7A/xHQabl9HxevxDeuPv46vKVRxv2HIF10jjU+LVrb3ae9XBqLDLL/8YKbx6U50uLty0vV3GButQBpf8vtwJRmf6FbZfmvxTc1j/zXFt2mFGEbj4kOeH59qCsdvbeL4/OyQDM+r8flfQ0124toUn0rv6Z74xEeia/X2A+nwLIlP7xWfnj98d8Sn3ISXPn9u+ZptAhr239LDVx6fFqvw0vziBujvdAkLp42fE2cvPX/3zy/DslzePGvxjZOAvVwcX+8aKb7DEF/fVZ4/VTq3ZE9fXP9sXObA0PH2xqd+dPsa/6FQrFyrDoNH9vve618vB2JBK6XxjbtDOaLHBc/3oxJjPOo3Of7DAd3FF5ptDdrGF2ZGvzpc/ripRMTXi0uH4rDN/Js+t36Ddvm3y/5za3xT6/pV1AcsJkI55cTzv61R7Hv8AT9me1+TPVLlC2YZM0CXd7/PL/5+4/k9FK+en6j1fqDUyvd30+wf4YRpfpiKV89PtP3+Pmfad6HhTaeNw05O0L54bvVA4/cvC9TiDahXfzDeHam1vlg7YJrv0O7LvP+c721v1Pj9JwAAAAAAAAAAAAAAAM6nMIHvmIS8HRQm8B2TkLdd6R/oHZOQt11pAt8xCXmbFSfw7ZOQ19zVBL7Brgl5rWUS+HZPyGstk8BXKyGvmUwCX6WEvHYKEvj2T8hrKJPAVyUhr6VMAl+VhLyWMgl8NRLymsok8J2+/3IJfLsn5DWWS+A7+/yZS+A7+/qXTeDbOSGvtXwC374Jec3lE/geKyHvVvkEvsTRCXm3yibwJU72/f16At/c6d6/XE/gmzk+Ie9Wt/0HZud7/wkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7Mf9vuM7WU8KrEAAAAAElFTkSuQmCC";
Expr prime(z)=function(f,a,prime(x),prime(y),d)-3;
Color 2;
Expr vector(x,y,z)=vector(a,d,0-3);
Color 5;
Expr vector(prime(x),prime(y),prime(z))=vector(b,c,0-3);