* Makes the plot of the SM Higgs potential for mh=100 GeV
 fun2 10 higgs_potential.f 25 -230 230 25 -230 230 s
 opt utit
 opt nsta
 set hcol 6
 tit 'Higgs Potential for m?h!=100 GeV'
 surf 10 ! ! 4
 atit '[f]?3! (GeV)' '[f]?4! (GeV)' 'V([f]^\262![f]) (GeV^4!)'
 null 0 1 0 1 sab
 set ksiz 1.0
 key 0.708 0.308 20 '"L#[f]"G#?0'