1
0
Fork 0
hp42s-rpn/microwave/mwve.txt

45 lines
319 B
Text
Raw Normal View History

LBL "MWVE"
CLK24
INPUT "Watt"
INPUT "Zeit"
→HR
STO "Zeit"
100
STO 00
RCL "Watt"
270
X≤Y?
STO 00
RCL "Watt"
300
X≤Y?
STO 00
RCL "Watt"
440
X≤Y?
STO 00
RCL "Watt"
600
X≤Y?
STO 00
RCL "Watt"
950
X≤Y?
STO 00
RCL "Watt"
RCL 00
÷
RCL "Zeit"
×
"t= "
→HMS
0.01
×
ATIME
RCL 00
├"[LF]P= "
AIP
├"W"
AVIEW
END