HP 50g:
Bolt Pattern, Solar Irradiance,
Thermal Noise, Regular Polygons,
Center of Mass (Matrix of Masses)
Bolt Pattern: BOLTPAT
Link to the original blog entry: http://edspi31415.blogspot.com/2015/03/hp-prime-ti-84-bolt-pattern.html
Input:
4:
xc: x coordinate, center
3:
yc: y coordinate, center
2:
n: number of bolts
1:
d: diameter of the circle
Program:
<< DEG OVER 1 – → xc yc n d k
<< { } 0 k FOR I 360 I * n / DUP COS
d 2 / * xc +
SWAP SIN d 2 / * yc + (0,1) * + + NEXT
DUPDUP 2 GET SWAP 1 GET – ABS >>
>>
Output:
2:
list of bolts (x+yi)
1:
OC-Distance
Solar Irradiance: IRRAD
Link to the original blog entry: http://edspi31415.blogspot.com/2015/03/hp-prime-and-casio-prizm-solar.html
Input:
5:
es: elevation of the sun (as
decimal degrees)
4:
as: azimuth of the sun from
south going east (as decimal degrees)
3:
ep: elevation of the panel (as
decimal degrees)
2:
ap: azimuth of the panel from
south going east (as decimal degrees)
1:
ib: the sun’s power or irradiance
(usually 1,000 or 1,367 W/m^2)
Program:
<< → es as ep ap ib
<< DEG ep COS es SIN * ep SIN es COS
* as ap – COS *
+ ACOS DUP COS ib * >> >>
Output:
2:
incidence angle
1:
surface radiance
Thermal Noise: THNOISE
Link to the original blog entry: http://edspi31415.blogspot.com/2015/02/hp-prime-ti-84-thermal-noise-johnson.html
Input:
3:
R: resistance (Ω)
2:
T: temperature (K)
1:
B: noise bandwidth (Hz)
Program:
<< → R T B
<< T R * B * 4 * 1.3806488E-23 * √
T B * LOG 10 * 198.599167802 - >> >>
Output:
2:
Voltage (Volts)
1:
Noise Power (dB)
Regular Polygon: Internal Angle and Area: RPOLYG
Link to the original blog entry: http://edspi31415.blogspot.com/2015/03/regular-polygons-internal-angles-and.html
Input:
2:
s: side length
1:
n: number of sides
Program:
<< DEG DUP INV 360 * NEG 180 + UNROT
4 / SWAP SQ * SWAP DUP UNROT 2 / TAN * >>
Output:
2:
Interior Angle
1:
Area
Center of Mass using Matrix: CENTERMTX
Link to the original blog entry: http://edspi31415.blogspot.com/2015/04/hp-prime-center-of-mass-matrix.html
Input:
1:
Matrix of Masses
Program:
<< DUP SIZE OBJ→ DROP → M R C
<< M 1 C START 1 NEXT C →ARRY * AXL ∑LIST
M 1 C FOR I I NEXT C 1 2 →LIST →ARRY * TRAN
1 R START 1 NEXT R 1 2 →LIST →ARRY * OBJ→
DROP
M TRAN 1 R FOR I I NEXT R 1 2 →LIST →ARRY *
TRAN
1 C START 1 NEXT C 1 2 →LIST →ARRY * OBJ→ DROP
→ tm rw cw
<< rw tm / cw tm / {1,2} →ARRY >> >> >>
Output:
[[ x center of mass point, y center of mass point ]]
Special Note: April 11 will mark the fourth anniversary of
this blog. I appreciate the readers and
followers of this blog and thank you for that, and the comments. Best always,
Eddie!
This blog is property of Edward Shore. 2015.
