WW MYSGCASGDAEH IJZþRJj](,U}||Fʟv7 SCNA0 p SRCM CSD3 CSD2 CSD1Y , CSRP CSIU CSLV TXTC w DRAP5 H FFIG}" / SCNAWW p :826J>& 9b)Ckh ,>0BFL("Ic3^SRCMWW CSD3WW CSD2WW al=360/nn DIM rr[7] rr[1]=r rr[2]=r2 rr[3]=r3 rr[4]=r4 rr[5]=r5 rr[6]=r6 rr[7]=r7 DIM t0[7] t0[1]=t10 t0[2]=t20 t0[3]=t30 t0[4]=t40 t0[5]=t50 t0[6]=t60 t0[7]=t70 DIM tf[7] tf[1]=t1f tf[2]=t2f tf[3]=t3f tf[4]=t4f tf[5]=t5f tf[6]=t6f tf[7]=t7f DIM a0[7] a0[1]=a10 a0[2]=a20 a0[3]=a30 a0[4]=a40 a0[5]=a50 a0[6]=a60 a0[7]=a70 DIM af[7] af[1]=a1f af[2]=a2f af[3]=a3f af[4]=a4f af[5]=a5f af[6]=a6f af[7]=a7f for k=1 to nn ax=rr[k]*cos(al*k-al/2-al) ay=rr[k]*sin(al*k-al/2-al) line2 ax,ay, ax+t0[k]*cos(al*k-al/2-al+a0[k]),ay+t0[k]*sin(al*k-al/2-al+a0[k]) next k for k=1 to nn-1 ax=rr[k+1]*cos(al*k-al/2) ay=rr[k+1]*sin(al*k-al/2) line2 ax,ay, ax+tf[k]*cos(al*k-al/2-af[k]),ay+tf[k]*sin(al*k-al/2-af[k]) next k ax=rr[1]*cos(al*k-al/2) ay=rr[1]*sin(al*k-al/2) line2 ax,ay, ax+tf[k]*cos(al*k-al/2-af[k]),ay+tf[k]*sin(al*k-al/2-af[k]) pen 4:arc2 0,0,r,al/2,360-al/2 fill 24 pen 17 for k=0 to nn-2 for jr=1 to mr-1 for ja=0 to ma-1 gosub 10 next ja next jr next k k=nn-1 for jr=1 to mr-1 for ja=0 to ma-1 gosub 11 next ja next jr !!!!!!!!!!!!!!!!!!!!!! !jr=0 for k=0 to nn-2 for ja=0 to ma-1 ang=al*(ja/ma-.5) for i=1 to nr-1 ra=r/mr*i/nr gosub 100 next i ra=r/mr for i=0 to na ang=al*(ja/ma+i/(ma*na)-.5) gosub 100 next i ang=al*(ja/ma+1/ma-.5) for i=1 to nr-1 ra=r/mr*(1-i/nr) gosub 100 next i poly2 nsp/2+1,7, 0,0,get(nsp) next ja next k k=nn-1 for ja=0 to ma-1 ang=al*(ja/ma-.5) for i=1 to nr-1 ra=r/mr*i/nr gosub 101 next i ra=r/mr for i=0 to na ang=al*(ja/ma+i/(ma*na)-.5) gosub 101 next i ang=al*(ja/ma+1/ma-.5) for i=1 to nr-1 ra=r/mr*(1-i/nr) gosub 101 next i poly2 nsp/2+1,7, 0,0,get(nsp) next ja pen 20 !Spicchio non deformato k=0 for jr=1 to mr-1 for ja=0 to ma-1 ang=al*(k+ja/ma-.5) for i=0 to nr-1 ra=r*( jr/mr+i/(mr*nr) ) put ra*cos(ang),ra*sin(ang) next i ra=r/mr*( jr+1 ) for i=0 to na-1 ang=al*(k+ja/ma+i/(ma*na)-.5) put ra*cos(ang),ra*sin(ang) next i ang=al*(k+(ja+1)/ma-.5) for i=0 to nr-1 ra=r*( (jr+1)/mr-i/(mr*nr) ) put ra*cos(ang),ra*sin(ang) next i ra=r/mr*jr for i=0 to na-1 ang=al*(k+(ja+1)/ma-i/(ma*na)-.5) put ra*cos(ang),ra*sin(ang) next i poly2 nsp/2,5,get(nsp) next ja next jr end 10: t=ja/ma ang=al*(t-.5) for i=0 to nr-1 ra=r*( jr/mr+i/(mr*nr) ) gosub 100 next i ra=r/mr*( jr+1 ) for i=0 to na-1 ang=al*(ja/ma+i/(ma*na)-.5) gosub 100 next i ang=al*((ja+1)/ma-.5) for i=0 to nr-1 ra=r*( (jr+1)/mr-i/(mr*nr) ) gosub 100 next i ra=r/mr*jr for i=0 to na-1 ang=al*((ja+1)/ma-i/(ma*na)-.5) gosub 100 next i poly2 nsp/2,7,get(nsp) return 20: t=ja/ma ang=al*(t-.5) for i=0 to nr-1 ra=r*( jr/mr+i/(mr*nr) ) gosub 100 next i ra=r/mr*( jr+1 ) for i=0 to na-1 ang=al*(ja/ma+i/(ma*na)-.5) gosub 100 next i ang=al*((ja+1)/ma-.5) for i=0 to nr-1 ra=r*( (jr+1)/mr-i/(mr*nr) ) gosub 100 next i poly2 nsp/2,7,get(nsp) return 11: t=ja/ma ang=al*(t-.5) for i=0 to nr-1 ra=r*( jr/mr+i/(mr*nr) ) gosub 101 next i ra=r/mr*( jr+1 ) for i=0 to na-1 ang=al*(ja/ma+i/(ma*na)-.5) gosub 101 next i ang=al*((ja+1)/ma-.5) for i=0 to nr-1 ra=r*( (jr+1)/mr-i/(mr*nr) ) gosub 101 next i ra=r/mr*jr for i=0 to na-1 ang=al*((ja+1)/ma-i/(ma*na)-.5) gosub 101 next i poly2 nsp/2,7,get(nsp) return 100: x=ra*cos(ang) y=ra*sin(ang) tt=( al/2+atn(y/x) )/al x0=rr[k+1]*cos(-al/2) y0=rr[k+1]*sin(-al/2) x1=x0+t0[k+1]*cos(-al/2+a0[k+1]) y1=y0+t0[k+1]*sin(-al/2+a0[k+1]) xf=rr[k+2]*cos(al/2) yf=rr[k+2]*sin(al/2) x2=xf+tf[k+1]*cos(al/2-af[k+1]) y2=yf+tf[k+1]*sin(al/2-af[k+1]) xx1=sqr(x^2+y^2)/r*( x0*(1-tt)^3+3*x1*(1-tt)^2*tt+3*x2*(1-tt)*tt^2+xf*tt^3 ) yy1=sqr(x^2+y^2)/r*( y0*(1-tt)^3+3*y1*(1-tt)^2*tt+3*y2*(1-tt)*tt^2+yf*tt^3 ) xx=xx1*cos(k*al)-yy1*sin(k*al) yy=xx1*sin(k*al)+yy1*cos(k*al) put xx,yy return 101: x=ra*cos(ang) y=ra*sin(ang) tt=( al/2+atn(y/x) )/al x0=rr[k+1]*cos(-al/2) y0=rr[k+1]*sin(-al/2) x1=x0+t0[k+1]*cos(-al/2+a0[k+1]) y1=y0+t0[k+1]*sin(-al/2+a0[k+1]) xf=rr[1]*cos(al/2) yf=rr[1]*sin(al/2) x2=xf+tf[k+1]*cos(al/2-af[k+1]) y2=yf+tf[k+1]*sin(al/2-af[k+1]) xx1=sqr(x^2+y^2)/r*( x0*(1-tt)^3+3*x1*(1-tt)^2*tt+3*x2*(1-tt)*tt^2+xf*tt^3 ) yy1=sqr(x^2+y^2)/r*( y0*(1-tt)^3+3*y1*(1-tt)^2*tt+3*y2*(1-tt)*tt^2+yf*tt^3 ) xx=xx1*cos(k*al)-yy1*sin(k*al) yy=xx1*sin(k*al)+yy1*cos(k*al) put xx,yy return CSD1WW , values "nn",2,3,4,5,6,7 CSRPWW CSIUWW CSLVWW TXTCWW w x=r*cos(an*t-an/2) y=r*sin(an*t-an/2) y/x=tan(an*t-an/2) an*t-an/2=atn(y/x) t=( an/2+atn(y/x) )/an Data una curva c(t)=(cx(t),cy(t)), si ricava una trasformazione del piano f(x,y) che porta in c(t) l'arco di cerchio: arc2 0,0,r,-an/2,an/2 (centrato in O con raggio r, ampiezza an). t=( an/2+atn(y/x) )/an f(x,y)=sqr(x^2+y^2)/r*(cx(t),cy(t)) DRAPWW H WW . H . ?A ?B ?ZZYZX AC_show2DHotspotsIn3D ?ac_bottomlevel ac_toplevel nn na nr ma mr ?r ?r2 ?r3 ffffff?r4 ?r5 ?r6 433333?r7 ?t10 ffffff?t20 ?t30 333333?t40 ?t50 ?t60 ?t70 ?t1f ffffff?t2f ?t3f ?t4f ffffff?t5f 333333?t6f ?t7f 9@a10 >@a20 .@a39 F@a40 @a50 1@a60 B@a70 >@a1f 8@a2f (@a3f I@a4f 4@a5f >@a6f N@a7f D i m e n s i o n e 1 D i m e n s i o n e 2 A l t e z z a M o s t r a H o t s p o t 2 D i n 3 D L i v e l l o I n f e r i o r e L i v e l l o S u p e r i o r e s u d d i v i s i o n i a n g o l o g i r o n n FFIGWW / image/png PNG IHDR n w \ gAMA @ PLTE ;: pHYs Z tEXtSoftware QuickTime 7.3 (Win32) } tIME /W mIDATx횋r0EgYfJB8t%a_m?K!ܧq|OY OP*Nf#yZ7= lZi&47ъ:CM#