However, I still made my own program for this. It supports all the above stated required rules, but none of the Extra challenges. Maybe I will update my program and add the extra challenges, so please dont just steal my program and then add the extra challenges by your own, to also participate here.
So, here is my code, it first asks if the hypotenusis of each segment should be displayed (extra feature), and then it calculates to infinity, after some iterations you dont see the outer lines, because it does not automatically zoom, which is a huge disadvantage. But I will add this feature later, it should not be that hard, because then you only need to track the outer hypotinusis points in a list or something.
But without all these extra features, my program is very good in terms of speed (for TI Basic)
TI Basic Spiral of Theodorus (216 Bytes)
prgmSPIRAL
:AxesOff:ClrDraw:Degree
:-6→Xmin:Ans→Ymin:6→Xmax:6→Ymax
:ClrHome
:Disp "SHOW", "HYPOTENUSIS?", "", "(1=YES) / (0=NO)", "
:Prompt H
:Line(0,0,1,0
:{1,0→L₁
:90→W:0→N
:getKey
:Repeat getKey
:N+1→N
:augment({L₁(1)+sin(W-90)},{L₁(2)+cos(W-90
:Line(L₁(1),L₁(2),Ans(1),Ans(2
:Ans→L₁
:If H
:Line(0,0,Ans(1),Ans(2
:W-tanֿ¹(√(N)ֿ¹→W
:End
If you want to have a quadratic view, you will have to use these factors for the window size:
:94/62*6→Xmax
:-Ans→Xmin
:6→Ymax
:-6→Ymin
