Tibasic

PROGRAMA PARA DERIVADAS IMPLICARAS

(eqn,varlist,var)
Func
Local answer
∑(¼(eqn,varlist[n])*expr("d"&string(varlist[n])),n,1,dim(varlist))→answer
If string(left(answer))≠"0" andstring(right(answer))≠"0"
getNum(left(answer)/right(answer))=getDenom(left(answer)/right(answer)) →answer
Return propFrac(answer/expr("d"&string(var)))
EndFunc

PROGRAMA MÉTODO DE TRPECIOS Y SIMPSONS(a,b,n)
Prgm
Local h,i,s
(b-a)/n→h
0→s
For i,a+h,b-h,h
s+2*f(i) →s
EndFor
(s+f(a)+f(b))*h/2→s
Disp s
EndPrgm

PROGRAMA DE VECTORES

()
Prgm
Locall1,l2,l3,l4,z,m,w,ns,n,rs,ˆs,ˆ,r,q,a,b,x,y,s,t,p,v
setGraph("Coordinates","Rect")
setGraph("Axes","On")

DelVar l1,l2,l3,l4
PlotsOff
FnOff
setMode("Display Digits","Float")

0→l1[1]
0→l2[1]
0→l3[1]
0→l4[1]
0→z
2→msetMode("Angle","Degree")
ClrIO

OPERACIONES CON VECTORES

()
Prgm
Local a,b,k,l,o,u,s,q,h,m,v,n,op,c,in,pp,dd,z,vx0,vy0,rx0,ry0
0→n,0→in,0→v,0→m,0→b,0→vx0,0→vy0,0→rx0,0→ry0
Lbl cd
Try
NewFoldvector
Else
Goto pr
EndTry
Lbl pr
setMode("Display Digits","FLOAT 4")
setMode("Graph","FUNCTION")
setMode("Angle","DEGREE")
setMode("Exact/Approx","APPROXIMATE")
setFold(vector)
Loop
1+m→m0→#("vx"&string(exact(m)))
0→#("vy"&string(exact(m)))
0→#("rx"&string(exact(m)))
0→#("ry"&string(exact(m)))
If m=8 Then
Exit
EndIf
EndLoop
FnOff
ClrDraw
Dialog
Title"VECTORES"
Text "GEOVANNY RUIZ"
Text "UTN"
EndDlog
If ok=0 Then
Goto end
EndIf
Goto dne
Lbl bg
0→b
n+1→n
Dialog
Title "Main"
DropDown "Format",{"Polar","Rectan"},a
DropDown"Vector",{"V1","V2","V3","V4","V5","V6","V7","V8"},q
Request "x, or |A|",e
Request "y, or Ÿ°",ˆ
EndDlog
If ok=0 Then
Goto dne
EndIf
expr(e) →e
expr(ˆ)ˆ
If a=1 Then
Goto pol
Else
Goto rectEndIf
Lbl pol
P→Rx(e,ˆ) →#("vx"&string(exact(q)))
P→Ry(e,ˆ) →#("vy"&string(exact(q)))
Line 0→0,#("vx"&string(exact(q))),#("vy"&string(exact(q))),1
Goto dne
Lbl rect...