Formula "Parameters"
{
  scale=0.001;
  hCab=110*scale;
  wCab=110*scale;
  dMagnet=90*scale;
  dDia=95*scale;
  tBasket=27*scale;
  tMagnet=24*scale;
  tCab=140*scale;
}

Diaphragm 'Cone_Front'
  Subdomain=4
  HasBaffle=no
  DrvGroup=1000
  dD={dDia}; 
  Position=z

Baffle 'Baffle_Front'
  Subdomain=4
  RectType=Oval
  WB={wCab}; HB={hCab}
  Position=z
  101 Ref='Cone_Front' x=0mm y=0mm

Diaphragm 'Cone_Back'
  Subdomain=1
  HasBaffle=no
  DrvGroup=2000
  dD={dDia}; 
  Position=-z

Baffle 'Baffle'
  Subdomain=1
  RectType=Oval
  WB={wCab}; HB={hCab}
  Position=-z
  101 Ref='Cone_Back' x=0mm y=0mm

Duct 'Walls_Front'
  Subdomain=1
  DuctType=Oval
  WD={wCab}; HD={hCab}; Len={tBasket}
  Position=z

Shell 'Magnet_Front'  
  Subdomain=1
  ShellType=Disc
  HasBaffle=no
  dD={dMagnet}
  Position=z Offset={-tBasket}

Shell 'IF_Basket_Magnet'
  Subdomain=1,2
  ShellType=Oval
  MeshFrequency=20000Hz
  HasBaffle=no
  WD={wCab}; HD={hCab}; dD1={-dMagnet}
  Position=z Offset={-tBasket}

Duct 'Magnet'
  Subdomain=2
  DuctType=Circle
  MeshFrequency=10000Hz
  dD={dMagnet}; Len={tMagnet}
  Position=z Offset={-tBasket}
  SwapNormals

Duct 'Walls_Magnet'
  Subdomain=2
  DuctType=Oval
  WD={wCab}; HD={hCab}; Len={tMagnet}
  Position=z Offset={-tBasket}

Shell 'IF_Magnet_Cab'
  Subdomain=2,3
  ShellType=Oval
  MeshFrequency=20000Hz
  HasBaffle=no
  WD={wCab}; HD={hCab}; dD1={-dMagnet}
  Position=z Offset={-(tBasket+tMagnet)}

Shell 'Magnet_Back'  
  Subdomain=3
  ShellType=Disc
  HasBaffle=no
  dD={dMagnet}
  Position=z Offset={-(tBasket+tMagnet)}
  SwapNormals

Shell 'Back'
  Subdomain=3
  ShellType=Oval
  HasBaffle=no
  WD={wCab}; HD={hCab}
  Position=z Offset={-tCab}

Duct 'Walls_Back'
  Subdomain=3
  DuctType=Oval
  WD={wCab}; HD={hCab}; Len={tCab-tMagnet-tBasket}
  Position=z Offset={-(tBasket+tMagnet)}

off WallImpedance 'Magnet'
  RefElements='Magnet'
  ImpType=Damping
  Value=0.05

off WallImpedance 'Back'
  RefElements='Back'
  ImpType=Damping
  Value=0.5
  ft=500

off WallImpedance 'Walls'
  RefElements='Walls_Back'
  ImpType=Damping
  Value=0.5
  ft=500

off WallImpedance 'C2_End'
  RefElements='Cab_2_End'
  ImpType=Impedance
  Value=0.05
