TrueGrid® Command File for the Finite Element Mesh of a Speaker

title SPKR - WOOFER WITH CERAMIC MAGNET,2 SPIDERS,VOICE COIL FORM,CONE,FRAME
  para cd 0.05
     te [%cd*3.14159/180.0*0.05]
     ra 5.0 
     rad [(%ra+1.0)*3.14159*7/54.0] 
     ra1 4.2 
     rad1 [(%ra-1.0)*3.14159*7/54.0] 
     cv 0.02 
     ef [atan2(%cv,-0.55)/360.0]
     ht 5 
     cu 100
     cvv 10
     cv2 7 
     off 0.2;
sd 1 sp 0 0 0 .75
sd 2 plan 0 0 0 0 0 1 
sd 3 cy 0 0 0 0 0 1 .76
sd 4 cy 0 0 0 0 0 1 .74
sd 5 er [%ra*sqrt(3)/2] [%ra/2] 0 [sqrt(3)] 1 0 %rad 1 
sd 6 er [(%ra1-.1)*sqrt(3)/2] [(%ra1-.1)/2] 0 [sqrt(3)] 1 0 %rad1 .8
cylinder 1 17 18;1 49;-1;6 6.5 7 0 360 %ht
z=z+.4*sin(3.5*x*720)*(1-sign(1,x-6.5))*atan(%cu*(6.5-x))/180* &
 atan(%cvv*(x-6))/90
endpart
cylinder 1 20;1 49;-1;.75 6 0 360 0
 z=z+(x-.75)*%ht/5.25
endpart
block 1 9 21 29; 1 9 21 29; -1; -.5 -.5 .5 .5 -.5 -.5 .5 .5 .75
 dei 1 2 0 3 4;1 2 0 3 4;;
 sf 1 1 0 4 4 0 sd 1
 sfi -1 0 -4;;-1; sd 2
 sfi ;-1 0 -4;-1; sd 2
endpart 
cylinder -1 2 29 30;1 49;1 -6 7;.75 .75 1.5 2 0 360 -2 -.2 0
 z=z+.4*sin(5.5*x*480)*(1-sign(1,x-1.5))*atan(%cu*(1.5-x))/180* &
   atan(%cv2*(x-.75)*(x-.75))/180*(1-sign(1,.75-x))
endpart
cylinder 1 2 23 26; 1 49; 1 4 6 9 10; 0.76 0.78 2.7 3.0 0 360
   [-2-%off] [-1.4-%off] [-1.1-%off] [-.6-%off] [-.5-%off]
 de 1 1 4 2 2 5
 de 3 1 3 4 2 5
 de 3 1 1 4 2 2
endpart
block 1 5 17 21;1 5 17 21;1 3 4 14;-.3 -.3 .3 .3 -.3 -.3 .3 .3
  [-2-%off] [-1.8-%off-.01] [-1.8-%off+.01] [-.6-%off]
 dei 1 2 0 3 4;1 2 0 3 4;;
 sfi -1 -4;-1 -4;1 2; sd 3
 sfi -1 -4;-1 -4;3 4; sd 4
endpart
cylinder 1 11 21 54 86 94;1 2 8 9;-1;
  .8 1.6 1.7 4. 6 6.5 0 [20/3] [160/3] 60 0 
 de 4 2 0 5 3 0
 sfi -5;2 3;-1; sd 5
 sfi -4;2 3;-1; sd 6
 z=atan2(%cv,1.65-x)/360*(1-sign(1,x-2.2))+ &
   (2.6/(4.3*4.3)*(x-2.2)*(x-2.2)+%ef)*(1+sign(1,x-2.2))-2*%ef-.2
 lct 6 rz 0;rz 60;rz 120;rz 180;rz 240;rz 300; lrep 1 2 3 4 5 6;
endpart
cylinder 1 11 21;1 9;-1;6.5 7.2 7.45 0 60 4.95
 x=x-(z-4.7)/.3*%cd*180/(3.14159*(%cd*%cd+(x-7.2)*(x-7.2)))*%te
 z=z+.5*atan2(%cd,7.2-x)/180
 lct 6 rz 0;rz 60;rz 120;rz 180;rz 240;rz 300; lrep 1 2 3 4 5 6;
endpart

TrueGrid   Home Page

Questions, comments, suggestions


Copyright © 1996-2013 XYZ Scientific Applications, Inc. All rights reserved.