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