Skip to content
Snippets Groups Projects
Select Git revision
  • 38856f1dbb5af215b19e3982fc13e570768369d4
  • master default protected
2 results

wrench2D_common.pro

Blame
  • wrench2D_common.pro 972 B
    // Some useful conversion coefficients
    mm = 1.e-3;     // millimeters to meters
    cm = 1.e-2;     // centimeters to meters
    in = 0.0254;    // inches to meters
    deg = Pi/180.;  // degrees to radians
    
    Refine = 
      mm*DefineNumber[ 2, Name "Geometry/2Main characteristic length"];
    Recomb = 
      DefineNumber[ 0, Name "Geometry/1Recombine", Choices{0,1}];
    Thickness = 
      mm*DefineNumber[ 10, Name "Geometry/4Thickness (mm)"];
    Width = 
      mm*DefineNumber[ 0.625*in/mm, Name "Geometry/5Arm Width (mm)"];
    LLength = 
      cm*DefineNumber[ 6.0*in/cm, Name "Geometry/6Arm Length (cm)"];
    
    // Definition of the coordinates of the arm end
    // at which the maximal deflection will be evaluated.
    Inclination = 14*deg; // Arm angle with x-axis
    eps = 1e-6;
    probe_x = (LLength-eps)*Cos[Inclination];
    probe_y =-(LLength-eps)*Sin[Inclination];
    
    // a useful Print command to debug a model or communicate with the user
    Printf("Maximal deflection calculated at point (%f,%f)", probe_x, probe_y);