PROGRAM ALIGN(OUTPUT=/1000)
DIMENSION Y1(80),Y2(80),Y3(80),Y4(80),XP(80),Y5(80)
CALL HP 2623
CALL SETDEV(7,7)
CALL PAGE(11.,8.5)
CALL AREA2D(8.,6.)
CALL HEIGHT(.28)
CALL FRAME
CALL YNAME('T TO V EFFICIENCY',20)
CALL XNAME('INCIDENT ENERGY (EV)',20)
CALL XREVTK
CALL YREVTK
CALL GRAF(0.0,2.0,8.0,0.0,.20,1.0)
EX=0.0
DEX=.1
JMAX=80
DO 15 J=1,JMAX
X1=EX
X2=EX/2.
X3=EX/3.
X4=EX/4.
X5=EX/5.
Y1(J)=X1*(2.+X1)/(1.+X1)**2
Y2(J)=X2*(2.+X2)/(1.+X2)**2
Y3(J)=X3*(2.+X3)/(1.+X3)**2
Y4(J)=X4*(2.+X4)/(1.+X4)**2
Y5(J)=X5*(2.+X5)/(1.+X5)**2
XP(J)=EX
15 EX=EX+DEX
CALL CURVE(XP,Y1,JMAX,0)
CALL CURVE(XP,Y2,JMAX,0)
CALL CURVE(XP,Y3,JMAX,0)
CALL CURVE(XP,Y4,JMAX,0)
CALL CURVE(XP,Y5,JMAX,0)
CALL ENDPL(0)
CALL DONEPL
STOP
END