Sharp EL-9650 User Manual page 10

Involute
Use the involute function for calculating gears etc. to find the angle of obliquity
from the initial value and involute value.
Conversely, calculate the involute value from the angle of obliquity.
Calculation
Involute function : inv = tan - [rad]
Use Newton's method to find the inverse involute:
f'( )
= - =
i +1 i
f( )
i
f ( ) = a - inv
FLOWCHART
Start
start
Selection of type
Y
S = 1
N
N
S = 2
Entry of initial
Y
value and
involute value
CALPRESS
Calculation of
angle of obliquity
int(10
Display of angle of obliquity
INVO
Entry of angle
of obliquity
Calculation of involute
value (display)
End
Name of parameter
D, R, T, J working variable for calculating
S selecting calculation type
(S=1: involute calculation)
(S=2: inverse involute calculation)
Z initial value, angle of obliquity
4
EL-9650/9600c/9450/9400 Graphing Calculator
(Inverse Involute)
tan
- -a
i i
-
i
tan
2
i
SP : involute curve
S : involute starting point
: angle of obliquity of point P
Enter 1 or 2.
To calculation of involute.
To inverse involute calculation
Returns to START if entry
neither 1 nor 2.
ANGLE
Calculation of involute.
Enter initial value and
involute value.
Angle of obliquity
calculated.
Judgment on repetition
Y
8
of calculation of angle
D) 0
of obliquity.
N
Calculation of inverse
involute. Enter angle
of obliquity.
Involute value calculated.
Involute value displayed.
PARAMETERS
Content
PROGRAMME LIST
Title : INVOLUTE
Label START
ClrT
Print "SELECT 1/2
Input S
If S=1 Goto ANGLE
If S=2 Goto INVO
Goto START
Label ANGLE
Print "Input BEGIN
Input B
B Z
Print "Input INVO
Input I
I J
Label CALPRESS
tan Z T
Z/180.0
2
(T-R-J)/T
180.0 (R-D)/
If int ( 8 D) 0 Goto CALPRESS
10
Z A
Print "ANGLE
Print A
End
Label INVO
Print "Input ANGLE
Input A
A
tan - /180
Print "INVOLUTE
Print I
End
Name of parameter
angle of obliquity
I involute value
A input and output of angle
B input of initial value
P
q
S a
Rg
0
(REAL MODE)
R
D
Z
I
Content