' Demo che mette in memoria il grafico di z=f(x,y) in [a,b]*[c,d] approssimato con n*n facce ' e traccia il box [a,b]*[c,d]*[e,f] e gli assi. In TreDim aziona CLIP e lo visualizzi. ' Batti tre righe alternative alle prime tre righe (metti funzione, dominio, ...), ' copia le successive e clicca CLP. Il demo impiega circa 1 min a completare l'esecuzione #z=2*sin(#x)*sin(#y) #a=-pi; #b=2pi; #c=-pi; #d=2pi; #n=21 #e=-2; #f=2 #o=0 noscrivi=1 nolista=1 tempo 0 cifre=3 #i=-1 "clip label 0 #i=val(#i+1) #H=val((#B-#A)/#N); #k=val((#d-#c)/#N) FOR #J=0 TO #n: #X=#A+#h*#I; #Y=#C+#k*#J;stamp=#x#y#z stamp=s; stamp=acapo goto 0 if #i<#n #J=-1 label 1 #j=val(#j+1) FOR #I=0 TO #n: #X=#A+#h*#I; #Y=#C+#k*#J;stamp=#x#y#z stamp=s; stamp=acapo goto 1 if #j<#n 'box stamp=c7; stamp=acapo stamp=s; stamp=acapo stamp=#a#c#e stamp=#a#d#e stamp=#b#d#e stamp=#b#c#e stamp=#a#c#e stamp=#a#c#f stamp=#a#d#f stamp=#b#d#f stamp=#b#c#f stamp=#a#c#f stamp=s; stamp=acapo stamp=#a#d#e stamp=#a#d#f stamp=s; stamp=acapo stamp=#b#d#e stamp=#b#d#f stamp=s; stamp=acapo stamp=#b#c#e stamp=#b#c#f stamp=s; stamp=acapo 'assi stamp=c11; stamp=acapo stamp=#b#o#o stamp=#o#o#o stamp=#o#d#o stamp=#o#o#o stamp=#o#o#f stamp=s; stamp=acapo stamp=L=0; stamp=acapo "CLIP cifre=7 nolista=0 noscrivi=0 ----