Site Network: Personal | Academic Shop Comics

ΣlNerdo: *Programs* For All

This is now a math portal. This whole entire site is dedicated to math, as it should be. I'll post interesting problems and my own progression through the world of mathematics, providing those interested with something to approach math with, this site.

Program(s/ming)

I'm an avid programmer, so I'll start posting various calculator and/or other math programs up on this page. Current programs I've written include

I can make more programs as I/Shay need them. If you have any ideas for a useful program, please contact me.

Newton's Method

Prompt Y1
Prompt N
Prompt X
X->S
For(I,1,N)
S-(Y1(S)/nDeriv(Y1,X,S))->S
End
Disp S

Area Approximation

Prompt Y1
Prompt A
Prompt B
Prompt N
abs(A-B)/N->X
0->S
Menu("METHOD","L",1,"R",2,"M",3,"T",4,"S",5)
Lbl 1
For(I,0,N-1)
S+XY1(A+IX)->S
End
Disp S
Stop
Lbl 2
For(I,1,N)
S+XY1(A+IX)->S
End
Disp S
Stop
Lbl 3
For(I,0,N-1)
S+XY1(A+XI+X/2)->S
End
Disp S
Stop
Lbl 4
For(I,0,N-1)
S+.5X(Y1(A+IX)+Y1(A+X(I+1)))->S
End
Disp S
Stop
Lbl 5
S+Y1(A)->S
For(I,1,N-1)
If I/2 neq iPart(I/2)
Then
S+4Y1(A+IX)->S
Else
S+2Y1(A+IX)->S
End
End
S+Y1(B)->S
X/3*S->S
Disp S
Stop

Arclength Calculator

Prompt A
Prompt B
Prompt Y1
Disp fnInt((1+Y1^2)^.5,X,A,B)

Series Summation

Prompt Y1
Prompt N
0->S
For(I,1,N)
Y1(I)+S->S
End
Disp S

Triangle Solver

Menu("TRIANGLE TYPE?","AAS",1,"ASA",2,"SSA",3,"SAS",4,"SSS",5)
Lbl 5
Disp "SIDE A"
Input A
Disp "SIDE B"
Input B
Disp "SIDE C"
Input C
cos-1(-(C^2-A^2-B^2)/(2*A*B))->X
sin-1(A*sin(X)/C)->Y
180-X-Y->Z
Disp "ANGLE A"
Disp Y
Disp "ANGLE B"
Disp Z
Disp "ANGLE C"
Disp X
Stop
Lbl 1
Disp "ANGLE A"
Input A
Disp "ANGLE B"
Input B
Disp "SIDE A"
Input C
C*sin(B)/sin(A)->X
180-A-B->Y
(C^2+X^2-(2*C*X*cos(Y)))^.5->Z
Disp "SIDE B"
Disp X
Disp "SIDE C"
Disp Z
Disp "ANGLE C"
Disp Y
Stop
Lbl 2
*Unfinished typing this up*