Showing posts with label fan laws. Show all posts
Showing posts with label fan laws. Show all posts

Saturday, April 23, 2022

Applications: Sharp EL-5150

Applications:  Sharp EL-5150 


Note:  spaces included for readability

Fan Laws

AER Equation:
1; f(BCDI) = B * ( C ÷ D ) Y^x ( 1 ÷ I  )

Variables:
Calculate CPM_new
B = CPM_old

1st Fan Law:
I = 1
C = RPM_new
D = RPM_old

2nd Fan Law:
I = 2
C = SP_new
D = SP_old

3rd Fan Law:
I = 3
C = BHP_new
D = BHP_old

Example 1:

Fan Law 2:
CPM_old = B = 4000 CPM
SP_new = C = 48 
SP_old = D = 36
I = 2

Result:  4618.802153

Example 2:

Fan Law 3:
CPM_old = B = 3500 CPM
BHP_new = C = 59
BHP_old = D = 52
I = 3

Result:  3650.488072


Ideal Shockley Diode Equation


I = I0 * e^((VD/(n* VT) - 1)
where VT = K * T/q

I = diode current (amps)
I0 = saturation current (amps)
VT = thermal voltage (V) - see notes below
VD = voltage across the diode (V)
n = ideality factor, in ideal situations, n = 1

Notes:  

*  The equation below assumes the ideal diode, n = 1
*  The equation uses a ratio of scientific constants:  k/q 
*  k = Boltzmann's Constant = 1.380649 * 10^-23 J/K
*  q = Charge of an Electron = 1.602176634 * 10^-19 C  (on some calculators, like the Casio fx-991EX, this constant is labeled e)
*  k/q = 8.617332385 * 10^-5 J/(K*C) = 8.617332385 * 10^-5 V/K  (volts/degrees Kelvin)

AER Equation:
1; f(IDE) = 8.617332385E-5 × E STO A, I ×(e(D ÷ A) - 1)

Calculate VT (stored in A), the I 
I = I0
D = VD
E = temperature in Kelvin

Example 1:

I = 4E-6 A 
D = 0.08 V
E = 280 K

Results:
A = 0.024128531, (I) 0.00001061
 
Example 2:

I = 4E-6 A 
D = 0.06 V
E = 300 K

Results:
A = 0.025852000, (I) 0.00003674

Dot and Cross Product of Two 3D Vectors

For the two vectors [A, B ,C] and [D, E, F]:

AER Equations:
1; f(ABCDEF) = A × D + B × E + C × F ◣
2; B × F - C × E, C × D - A × F, A × E - B × D

Example 1:
[ A, B, C ] and [ D, E, F]

[ 4.5, -2.5, -8 ] and [ 1.6, 3.9, 6 ]

Dot Product:  -50.55
Cross Product:  [ 16.2, -39.8, 21.55 ]

Example 2:
[ A, B, C ] and [ D, E, F]

[ 4, 3, 2 ] and [ 2, 7, 0 ]

Dot Product:  29
Cross Product:  [ -14, 4, 22 ]

Law of Cosines

Sides with lengths A, B, C with D as the angle opposite of A.  Equation 1 finds the length of side A, while Equation 2 finds the angle D.

AER Equations:
1; f(BCD) = √(B^2 + C^2 - 2 × B × C × COS D) STO A ◣
2; f(ABC) = cos^-1 ((B^2 + C^2 - A^2) ÷ (2 × B × C)) STO D

Example 1 - find A:
Degree Mode Set
Input:  B = 4.5, C = 3.7, D = 30°
Run 1:

Result:  2.258617731


Example 2 - find D:
Degree Mode Set
Input:  A = 40, B = 56, C = 38
Run 2:

Result:  45.5579132°


Note:  Due to the incredible amount of spam comments that get sent on this blog, which I moderate so the readers don't see them, I have decided to turn comments off.  I will review whether to turn comments back on at a later time.  My apologizes to those who leave legitimate comments.  

Eddie 


All original content copyright, © 2011-2022.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

Saturday, October 16, 2021

Swiss Micros DM41X: Applications

Swiss Micros DM41X: Applications





Swiss Micros DM41X Program:  Euclid Algorithm


Registers:

R01:  A

R02: B

R03:  C  (used)


Finds the GCD of A and B, where A and B are positive integers and A > B.


01 LBL^T EUCLID

02 ^T GCD A>B

03 AVIEW

04 PSE

05 ^T A?

06 PROMPT

07 STO 01

08 ^T B?

09 PROMPT

10 STO 02

11 LBL 00

12 RCL 01

13 ENTER

14 ENTER

15 RCL 02

16 /

17 LASTX

18 X<>Y

19 INT

20 *

21 - 

22 STO 03

23 X=0?

24 GTO 01

25 RCL 02

26 STO 01

27 X<>Y

28 STO 02

29 GTO 00

30 LBL 01

31 ^T GCD=

32 ARCL 02

33 AVIEW

34 END


Examples:


A = 100, B = 20, GCD = 20

A = 78, B =24, GCD = 6


Swiss Micros DM41X Program: Fan Laws 


The program will calculate RPM_new (Revolutions per Minute), SP_new (Static Pressure), and BHP_new (Brake Horsepower).  


Inputs:

CFM_old:  Cubic Feet of Minute - old

CFM_new:  Cubic Feet of Minute - new

RPM_old:  Revolutions per Minute - old

SP_old:  Static Pressure - old

BHP_old:  Brake Horsepower - old


Outputs:

RPM_new

SP_new

BHP_new


01 LBL^T FANLAWS

02 CLA

03 ^T CFM.OLD?

04 PROMPT

05 STO 01

06 ^T CFM.NEW?

07 PROMPT

08 STO 02

09 X<>Y

10 /

11 STO 04

12 STO 06

13 ST* 06

14 STO 08

15 ST* 08

16 ST* 08

17 ^T RPM.OLD?

18 PROMPT

19 STO 03

20 ST* 04

21 ^T SP.OLD

22 PROMPT

23 STO 05

24 ST* 06

25 ^T BHP.OLD?

26 PROMPT

27 STO 07

28 ST* 08

29 ^T RPM.NEW=

30 ARCL 04

31 AVIEW

32 STOP

33 ^T SP.NEW=

34 ARCL 06

35 AVIEW

36 STOP

37 ^T BHP.NEW=

38 ARCL 08

39 AVIEW

40 END


Variables:


R01 = CFM.OLD

R02 = CFM.NEW

R03 = RPM.OLD

R04 = RPM.NEW

R05 = SP.OLD

R06 = SP.NEW

R07 = BHP.OLD

R08 = BHP.NEW


The program uses a lot of storage arithmetic.  


Example


Inputs:

CFM.OLD:  1250 CFM

CFM.NEW: 1600 CFM

RPM.OLD:  840 RPM

SP.OLD: 4 in

BHP.OLD: 7 BHP


Results:

RPM.NEW: 1075.2 RPM

SP.NEW: 6.5536 in

BHP.OLD:  14.680064 BHP


Source:

Calculated Industries "Sheet Metal/HVAC Pro Calc User's Guide" 2021


Swiss Micros DM41X Program: Johnson-Nyquist Noise Analysis


Equations Used:


Power (in Watts):


P = kb * T * Δf


RMS Voltage (in Volts):


v_n = √(4 * R * kb * T * Δf) = √(4 * R * P)


Current (in Amps):


i_n = √((4 * T * kb * Δf / R) = v_n / R


Inputs:


T = temperature in Kelvin  (°C + 273.15)

Δf = bandwidth, difference of frequencies in Hz

R = resistance in ohms (Ω)


Constants:  Boltzmann's Constant

kb ≈ 1.380649 * 10^-23 J/K


Program:


01 LBL^T NOISE

02 ^T TEMP? <K>

03 PROMPT

04 ^T BANDWIDTH?

05 PROMPT

06 *

07 1.308649E-23

08 *

09 ^T POW=

10 ARCL X

11 AVIEW

12 STOP

13 ^T R?

14 PROMPT

15 *

16 LASTX

17 X<>Y

18 4

19 *

20 SQRT

21 ^T V=

22 ARCL X

23 AVIEW

24 STOP

25 X<>Y

26 /

27 ^T I=

28 ARCL X

29 AVIEW

30 END


Example:


Temperature:  299.68 K

Bandwidth:  10,500 Hz

Resistance:  1375 Ω


Results:


Power:  4.3444E-17 W

Volts:  4.8882E-7 V

Current:  3.5550E-10 A


"Johnson-Nyquist Noise" Wikipedia.  Retrieved February 15, 2015 https://en.wikipedia.org/wiki/Johnson%E2%80%93Nyquist_noise




Eddie


All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 


Saturday, September 11, 2021

Sharp EL-5500 III & PC-1403: Fan Laws and Voltage Drop Percentage

 Sharp EL-5500 III & PC-1403: Fan Laws and Voltage Drop Percentage



Fan Laws 

The program will calculate RPM_new (Revolutions per Minute), SP_new (Static Pressure), and BHP_new (Brake Horsepower).  

Inputs:
CFM_old:  Cubic Feet of Minute - old
CFM_new:  Cubic Feet of Minute - new
RPM_old:  Revolutions per Minute - old
SP_old:  Static Pressure - old
BHP_old:  Brake Horsepower - old

Outputs:
RPM_new
SP_new
BHP_new

Sharp EL-5500III/PC-1403 Program:  Fan Laws
RUN 700 (or whatever line you designate)

700 PRINT "FUN LAWS"
703 INPUT "CFM.OLD? "; A
706 INPUT "CFM.NEW? "; B
709 INPUT "RPM.OLD? "; C
712 INPUT "SP.OLD? "; E
715 INPUT "BHP.OLD? "; G
718 D = B*C/A
721 F = E*B^2/A^2
724 H = G*B^3/A^3
727 PRINT "RPM.NEW: "; D
730 PRINT "SP.NET: "; F
733 PRINT "BHP.NEW: "; H
736 END

Example

Inputs:
CFM.OLD:  1250 CFM
CFM.NEW: 1600 CFM
RPM.OLD:  840 RPM
SP.OLD: 4 in
BHP.OLD: 7 BHP

Results:
RPM.NEW: 1075.2 RPM
SP.NEW: 6.5536 in
BHP.OLD:  14.680064 BHP

Source:
Calculated Industries "Sheet Metal/HVAC Pro Calc User's Guide" 2021

Voltage Drop Percentage

This program calculates the voltage drop percentage for wires that operate in 75°C, given the wire length from the object to the power source for wires 2, 4, 6, 8, 10 and 12.  The NEC 2020 code is used.  

Sharp EL-5500III/PC-1403 Program:  Voltage Drop Percentage
RUN 500 (or whatever line you designate)

500 PRINT "VOLTAGE DROP 75 DEG"
501 CLEAR
503 DIM S(5)
506 REM NEC 2020
509 S(0) = .194
510 S(1) = .308
511 S(2) = .491
512 S(3) = .778
513 S(4) = 1.24
514 S(5) = 1.98
530 INPUT "VOLTS? "; V
533 INPUT "CURRENT? "; A
536 INPUT "WIRE LGTH TO PWR (FT)? "; L
539 INPUT "#2,4,6,8,10,12? "; J
542 J = J/2 - 1
545 W = S(J)
548 D = (A*W/1000*2*L) / V * 100
551 PRINT "VD = "; D; "%"
554 END

Example

Inputs: 
VOLTS:  80 V
CURRENT: 36 A
WIRE LGTH TO PWR (FT): 140 ft 
#8 wire

Result: 
VD = 9.8028%

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

DM42 and HP 42S: Quadratic Equation, Characteristic Polynomial, and Eigenvalues

DM42 and HP 42S: Quadratic Equation, Characteristic Polynomial, and Eigenvalues The programs are listed for the Swiss Micros DM42 an...