INTRODUCTION

Remove["Global`*"]

General Comments

Style

case = {a -> 1, b -> 2}

Preparation

Off[General::"spell", General::"spell1"];

Needs["Graphics`Arrow`"];

Needs["Graphics`PlotField`"];

Units and Constants

Units

tera = (10^12); micro = (1/(10^6)); giga = (10^9); nano = (1/(10^9)); mega = (10^6); pico = (1/(10^12)); kilo = (10^3); femto = (1/(10^15)); milli = (1/(10.^3)); atto = (1/(10^18));

Physical Constants

NSub
       = {c -> 2.99792458 (10^8), e -> (1.6021773/(10^19)), 
        h -> (6.6260755/(10.^34)), hbar -> (1.05457/(10.^34)), 
        K -> (1.380658/(10^23)), me -> (9.109389/(10^31)), 
        mu0 -> ((4. π)/(10^7)), eps0 -> (8.85419/(10^12))};

Materials Constants

ESi = 0.179 tera; rhoSi = 2330; nuSi = 0.28; ESiO2 = 0.06 tera; rhoSiO2 = 2200; nuSiO2 = 0.25; ESi3N4 = 0.15 tera; rhoSi3N4 = 3100; nuSi3N4 = 0.25; EAu = 0.08 tera; rhoAu = 19300; nuAu = 0.42; ENi = 0.207 tera; rhoNi = 8900; nuNi = 0.41; EW = 0.345 tera; rhoW = 19300; nuW = 0.28; EPt = 0.17 tera; rhoPt = 21400; nuPt = 0.39; EIr = 0.52 tera; rhoIr = 22500; nuIr = 0.3; EHOPG = 0.2 tera; rhoHOPG = 2250; nuHOPG = 0.3; EPol = 0.001 tera; rhoPol = 1000; nuPol = 0.3;

x = 0.8; EPtIr = x EPt + (1 - x) EIr; rhoPtIr = x rhoPt + (1 - x) rhoIr; nuPtIr = 0.3; Clear[x];

Figures

Figure Options

opt
       = {PlotRange -> All, AxesOrigin -> {0, 0}, 
        Frame -> True, GridLines -> Automatic, 
        DefaultFont -> {"Times-Roman", 8}, 
        PlotStyle 
          -> {Dashing[{.0001}], Dashing[{.0200}], Dashing[{.0200}], 
            Dashing[{.0200}], Dashing[{.0200}], Dashing[{.0001}]}};

opt1
       = {PlotRange -> All, AxesOrigin -> {0, 0}, 
        Frame -> True, GridLines -> Automatic, 
        DefaultFont -> {"Times-Roman", 8}};

Figure Examples

Fig1x1 = 
      Plot[{Sin[x], Cos[x]}, {x, 0, π}, 
        FrameLabel -> {"x in rad", "Sin & Cos"}, Evaluate[opt]];

Fig1x2 = 
      Show[Graphics[Circle[{0, 0}, 1], AspectRatio -> Automatic, 
          FrameLabel -> {"x in a.u.", "y in a.u."}, opt1]];

Recommended Books

$\it Mathematica$ Programming Language

Scanning Probe Microscopy