# FH HN      kr
set dummy V
set grid
set key
set samples 1000
#
set title "Adiabate (log-log-Darst.)" 0,0
#
set logscale x 
set xrange [10 : 100]
set xtics (10,20,30,40,50,60,70,80,90,100)     
set xlabel "Volumen V  / l"
#
set logscale y 
set yrange [0.1 : 4]
set ytics (.1,.2,.3,.4,.5,.6,.7,.8,.9,1.,2,3,4)  
set ylabel "Druck p  / bar" 0,0
#
p(V,n)=p1*(V1/V)**n
isot(V,T)=p1*V1*T/(T1*V)
p1 = 1.0
V1 = 22.4
T1 = 273.0
set label 1 " 50 K" at 12,isot(12, 50) left
set label 2 "100 K" at 12,isot(12,100) left
set label 3 "200 K" at 12,isot(12,200) left
set label 4 "400 K" at 30,isot(30,400) left
set label 5 "800 K" at 30,isot(30,800) left
plot p(V,1+2/3.) tit "f = 3" , p(V,1+2/5.) tit "f = 5" , p(V,1+2/6.) tit "f = 6"
replot isot(V,50) not lt 4,isot(V,100) not lt 4,isot(V,200) not lt 4, isot(V,300) not lt 4, isot(V,400) not lt 4, isot(V,500) not lt 4, isot(V,600) not lt 4, isot(V,700) not lt 4, isot(V,800) not lt 4
#