-
Notifications
You must be signed in to change notification settings - Fork 0
/
Ap_Listas.wxm
155 lines (100 loc) · 3.39 KB
/
Ap_Listas.wxm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 22.04.0 ] */
/* [wxMaxima: title start ]
Listas
[wxMaxima: title end ] */
/* [wxMaxima: section start ]
Crear
[wxMaxima: section end ] */
/* [wxMaxima: input start ] */
makelist(a[n], n,1,5);
makelist(n^2, n,1,5);
makelist(n^2, n,[1,0.5]);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Una sucesión recurrente, usando números decimales
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
kill(all)$
numer:true$
/* La fórmula de la sucesión recurrente*/
x[1]:(1/8)$
x[n]:= 1/8 +(x[n-1])^2$
/* La lista de los 10 primeros términos */
makelist([n,x[n]],n,1,10);
/* Volvemos al valor por defecto de number */
numer:false;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
create_list(n^2,n,1,5);
create_list([n^2,m],n,1,3,m,[1,4,8]);
x(n):=1/n$ f(x):= x^2$
create_list([x(n),f(x(n))],n,1,10);
/* [wxMaxima: input end ] */
/* [wxMaxima: section start ]
Manipular
[wxMaxima: section end ] */
/* [wxMaxima: input start ] */
L : [1,5,b,[x,y],[x=2+z]];
L[3];
L[5];
first(L);
last(L);
flatten(L);
last(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Son formas de recuperar elementos de una lista o desagregar en sus componentes
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
append(L,[cos(x)]);
delete(b,%);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Añadir a la lista nuevos elementos o eliminar elementos de la lista
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
L1 : [a,b,c];
L2 : [x,y,z];
join(L1,L2);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Juntar listas
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
[1,x,3]+[2,y,z];
[1,x,3]*[2,y,z];
[1,x,3].[2,y,z];
apply("+",[1,x,3]);
print("El máximo es ", apply(max,[1,25,3]))$
print("El mínimo es ", apply(min,[1,25,3]))$
m:20$
lista : makelist( random(10.0), k, 1, m )$
print("La media de la lista aleatoria es: ", apply("+",lista)/length(lista))$
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Sumas, multiplicaciones, máximos y mínimos, longitudes, promedios...
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
map(lambda([z],z^2),[1,x,3]);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Imagen de una lista haciendo uso de la función lambda
que es una "función virtual" definida sobre la marcha.
[wxMaxima: comment end ] */
/* [wxMaxima: comment start ]
Incluso cosas más sofisticadas como gráficas de polinomios de Taylor:
1) elegimos una lista de grados
2) para la cual hallamos su "imagen" que son
los correspondientes polinomios de Taylor del seno para esa lista de grados
3) añadimos el seno a la lista de funciones anteriores
4) y, finalmente, los dibujamos todos juntos
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
grado : makelist(2*i+1,i,0,2);
T : map(lambda([z], taylor(sin(u),u,0,z)),grado);
G : append([sin(u)],T)$
wxplot2d(G,[u,-%pi,%pi]);
/* [wxMaxima: input end ] */
/* Old versions of Maxima abort on loading files that end in a comment. */
"Created with wxMaxima 22.04.0"$