HP 48S and HP 48G Message #1 Posted by MikeN on 16 Sept 2002, 6:56 p.m.
I recently wrote a program for calculating NEC voltage drop using my HP 49G and two simple programs.
The first is a picklist using the choose command;
%%HP: T(1)A(D)F(.);
« "Impedance"
{ {"14" (3.1,0.073)}
{"12" (2,0.068)}
{"10" (1.2,0.063)}
{"8" (0.78,0.065)}
{"6" (0.49,0.064)}
{"4" (0.31,0.06)}
{"3" (0.25,0.059)}
{"2" (0.2,0.057)}
{"1" (0.16,0.057)}
{"1/0" (0.12,0.055)}
{"2/0" (0.1,0.054)}
{"3/0" (0.079,0.052)}
{"4/0" (0.063,0.051)}
{"250" (0.054,0.052)}
{"300" (0.045,0.051)}
{"350" (0.039,0.05)}
{"400" (0.035,0.049)}
{"500" (0.029,0.048)}
{"600" (0.025,0.048)}
{"750" (0.021,0.048)}
{"1000" (0.018,0.046)}
}
1
IF CHOOSE
THEN
END
»
@This enters the cable impedance data for the cable in question onto the stack.
The second program is executed as soon as the stack is populated by the above. I wrote imput screens to make the process less intimidating for RPN-o-Phobes:
%%HP: T(1)A(D)F(.);
« "Enter Length:" ""
INPUT OBJ¨
"Enter Amps:" ""
INPUT OBJ¨
"Enter pf:" "" INPUT
OBJ¨ DUP ACOS NEG SIN
R¨C * * 1000 / * DUP
ABS SWAP ARG COS *
»
I was so pleased with the result, I tried to load the application on my aged 48SX. The problem is that the 48SX does not recognize the "CHOOSE" command.
The second program works fine, but I need to enter the impedence data to the stack manually.
Any suggestions?
|