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 = 10^-6;
giga  = 10^9   ; nano  = 10^-9; 
mega  = 10^6   ; pico  = 10^-12;
kilo  = 10^3   ; femto = 10^-15; 
milli = 10.^-3 ; atto  = 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. Pi 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[{.0200}]}};

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

Figure Examples

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

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

Recommended Books

$\it Mathematica$ Programming Language

Scanning Probe Microscopy