fpprintprec:N$ (n cifras representativas)
factor(_____):
radcan(log(A)): operar A
makelist(i*2,i,a,b); crea lista de los "2b" primeros nombres pares desde "a"
makelist((i*2)+1,i,a,b) ; crea lista de los "2b" primeros nombres impares desde "a"
makelist(sqrt(makelist(i*2,i,a,b))); lista raices d los "2b" primeros nombres pares desde "a"
makelist(makelist(x,x,1,k),k,1,b); lista de listas [1],[1,2],[1,2,3]...hasta [1,2,3,...b]
limit(((a+(b/n))^n),n,c), numer; limite de a+ b/n^n donde n tiende a c
print( b:makelist(n^a,a,0,Z))$ lista d n elevado a lo Z primeros numeros
c:lsum(x,x,b); sumar los factores de la lista anterior
modul(X):=sqrt(lsum(X[y]^2,y,[a,b,c]));
logY(x):=ratsimp(log(x)/log(Y))$ crea la función logaritmo en vase Y
for x: (valor inicial) step (cuanto aumenta) thru (hasta) do (algo que hacer)$
x[1]:rhs(A[1])$ X1 es la solución 1 de A
x[2]:rhs(A[2])$
relación
print("C=",C:f)$
print(F:solve(F/f=C/c,F))$
print(F*f=2*(C*c))$
print("relació F/f,C/c : ",f:solve(f^3/c=2*(C*c),f))$
polinomio de taylor: taylor(f(x),x,punto,rango);
print("hasta",n:numero)$
x:numero inicial$
for i:numero step aumento thru n do (x:x+i)$
print(x)$
s: 0$ k: 0$
for i:(valor inicial) step (fase) while i >=numero
do (s: s + 1/i)$
s, numer;
suma los i primeros factores hasta que i sea menor que lo deseado de 1/i
print("n=",n:___),numer$
s:_$ c:_$
for i: _ step __ while s<=___ do (s:s+(1/i),c:c+1)$
print("sumatorio",s),numer$
print("ciclos",c),numer$
ahora cuenta cuantos ciclos tiene que efectuar hasta llegar a la condición
print("n=",n:5),numer$
x:0$
for i:__ step ___ thru n do (x:x+(1/a^i))$
print("da:",x),numer$
la suma de a aumentando el exponente
