martes, 20 de diciembre de 2016
El Grupo Ma 4
wxplot2d([g(x),f(x)],[x,-40,40],[y,-40,40],[xlabel,"x"],[ylabel,"y"], [style,[points,1,2]);
dibuja la grafica de g(x) y f(x) de ____ a ____ y pon la leyenda x e y dibujandolo de ____
wxplot3d(f(x), [x,-1,1], [y,-1,1],
[grid,5,5],[legend, "z(x,y)"])$ grid aumentaba reticula
wxplot3d (f(r,t),[r, 0, r],[t, 0, t], [transform_xy, polar_to_xy],[grid,100,100],[legend, "2.0"]);
coordenadas polares
wxplot3d(f(t,p), [t, 0, %pi], [p, 0, 2*%pi],[plot_format,xmaxima],[transform_xy, spherical_to_xyz],[palette,[value,0.8,0.9,0.4,1]],[grid,100,100],[legend, "2"])$
coordenadas esfericas colores
wxplot2d([parametric,x=,y=],[t, -100, 100],[grid, 40, 40],[nticks, 100])$
dibuja la grafica de la eq en valores parametricos (sustituir x= por aquello a lo que es igual)
nticks aumenta o disminuye
dibuja la grafica de g(x) y f(x) de ____ a ____ y pon la leyenda x e y dibujandolo de ____
wxplot3d(f(x), [x,-1,1], [y,-1,1],
[grid,5,5],[legend, "z(x,y)"])$ grid aumentaba reticula
wxplot3d (f(r,t),[r, 0, r],[t, 0, t], [transform_xy, polar_to_xy],[grid,100,100],[legend, "2.0"]);
coordenadas polares
wxplot3d(f(t,p), [t, 0, %pi], [p, 0, 2*%pi],[plot_format,xmaxima],[transform_xy, spherical_to_xyz],[palette,[value,0.8,0.9,0.4,1]],[grid,100,100],[legend, "2"])$
coordenadas esfericas colores
wxplot2d([parametric,x=,y=],[t, -100, 100],[grid, 40, 40],[nticks, 100])$
dibuja la grafica de la eq en valores parametricos (sustituir x= por aquello a lo que es igual)
nticks aumenta o disminuye
El Grupo Ma 2
makelist(makelist(x,x,1,k),k,1,n); haz la lista de listas, donde empiezan en 1 y aumenta hasta n
matrix([a,b,c],
[d,e,f],
[g,h,i])
is(P=O); si p=q true, en su defecto false
invert(A); inversa de A
traza(X,Y):=lsum(X[k,k],k,makelist(x,x,1,Y))$ sumar los elementos de la diagonal principal
v1:[x,y,z]$ vector
modul(X):=sqrt(lsum(X[y]^2,y,[A])); Modulo
load(vect);
matrix([a,b,c],
[d,e,f],
[g,h,i])
is(P=O); si p=q true, en su defecto false
invert(A); inversa de A
traza(X,Y):=lsum(X[k,k],k,makelist(x,x,1,Y))$ sumar los elementos de la diagonal principal
v1:[x,y,z]$ vector
modul(X):=sqrt(lsum(X[y]^2,y,[A])); Modulo
load(vect);
viernes, 25 de noviembre de 2016
El grupo Ma 3
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
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
Suscribirse a:
Entradas (Atom)