rd	1	#
		da $1
		read {t 1 ekx 2 eky 3 ekz 4 ebx 5 eby 6 ebz 7 eth 8 eg 9 wm 10 wr 11 divb 12}
		set ek = (ekx + eky + ekz)/16/pi
		set eb = (ebx + eby + ebz)/16/pi
		set lek = lg(ek)
		set leb = lg(eb)
		set lekx = lg(ekx)
		set lebx = lg(ebx)
		set la = lg(abs(wm + wr) + 1.e-8)
pl      2  	#
		define TeX_strings 1
                #
                expand 1.5
                lweight 3
	        #
	        rd $1
                # for la
                limits 0.5 1000 -7 -1
                # for leb
                limits 0.5 1000 -5.5 -3
                ticksize 0 0 -1 0
                location $($gx1 + 2000) $($gx2 + 600) $gy1 $gy2
                box
                connect t $2
                xla t\Omega
                #yla <\alpha>
                yla <E_{B}>
                location $($gx1 - 2000) $($gx2 - 600) $gy1 $gy2
                

