################### INFOS ################### # # # Author : EepP # # eepp.b3ta.org # # eeppeliteloop@gmail.com # # Date : 12/12/05 # Applys to : TI-80 Calculators # # ----------------------------- # # Program name : Tan Mker # # Does : This program does create a tangent # # ŻŻŻŻ on a AX²+BX+C parabola each given # # X-coordinate value. # # Variables : A = Slope of parabola # # ŻŻŻŻŻŻŻŻŻ B = Constant of X # # C = Constant # # t = If is '1', turns on the # # looping for the tangent # # drawing, else ('0'), # # returns a single tangent # # at a given point. # # i = If 't' is '0', 'i' is the # # X-coordinate where you # # want the tangent to be # # drawn on the parabola, # # else ('t' = '1'), 'i' is # # the distance between each # # point where the tangent # # will be drawn on the # # parabola, on all the # # domain. # # Notes : The domain is like the ZSquare & # # ŻŻŻŻŻ ZStandard together domain ; Xmin # # is approx. -13 and Xmax is # # approx. 13. # # The image is from -10 to 10, so # # do not order a too big parabola # # with your custom parameters. # # The TI-80 processor isn't very # # powerful, so be patient for the # # tangents to be drawn. # # Entering a value for 'i' of '1' # # will draw so much tangent for the # # number of pixels the TI-80 can # # handle that everything outside # # the parabola will look filled of # # points on. # # Entering a value of '0' for the # # 'A' parameter will give an error # # because a parabola with a slope # # value of '0' doesn't exists. # # Example : If you run the program and # # ŻŻŻŻŻŻŻ enter the following values for # # the variables ; [a = 0.2, # # b = 0, c = -7, i = 3, t = 1] ; # # the program is going to draw a # # reversed parabola and then draw # # the tangents on the following # # X-coordinate points of the # # parabola : {-13, -10, -7, -4, # # -1, 2, 5, 8, 11}. If you redo # # this example but with a value # # of '0' for 't', it will draw # # the same parabola, but then # # just one tangent at the # # X-coordinate point '3' (value # # of 'i'). # # # ############################################# ########## #>STARTS># ########## PROGRAM:TANMKER :CLRDRAW:GRIDOFF :CLRHOME :-13.47826087->XMIN :-XMIN->XMAX :10->YMAX :-YMAX->YMIN :0->XSCL :XSCL->YSCL : :1->A :0->B :0->C :3->K : :DISP "TAN MKER" :DISP "BY EEPP" :DISP "" :DISP "PRESS ANY KEY" :DISP "TO CONTINUE..." :PAUSE :CLRHOME : :DISP "AX²+BC+C" :DISP "" :INPUT "A=",A :INPUT "B=",B :INPUT "C=",C :INPUT "I=",K :INPUT "T=",T : :2(A)->D :B->E :0->F : :DRAWF (AX^2+BX+C) :INT (XMIN)->N :INT (XMAX)->O : :IF T=1:THEN :FOR(I,N,O,K : :DRAWF ((DI+E)X+((AI^2+BI+C)-(DI+E)I)) : :END :ELSE : :DRAWF ((DK+E)X+((AK^2+BK+C)-(DK+E)K)) :END : :DISPGRAPH :STOP ####### #