1 |
|
|
2 |
|
(FORMAT T "~%Erzeuge ein Feld mit doppeltgenauen Zahlen~%") NIL |
3 |
|
|
4 |
|
(EQUALP (SETQ DA1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE |
5 |
|
( |
6 |
|
((1.0D0 2.0D0 3.0D0) (4.0D0 5.0D0 6.0D0)) |
7 |
|
((7.0D0 8.0D0 9.0D0) (10.0D0 11.0D0 12.0D0)) |
8 |
|
((13.0D0 14.0D0 15.0D0) (16.0D0 17.0D0 18.0D0)) |
9 |
|
((19.0D0 20.0D0 21.0D0) (22.0D0 23.0D0 24.0D0)))) :ELEMENT-TYPE |
10 |
|
(QUOTE DOUBLE-FLOAT))) |
11 |
|
'#3A(((1.0D0 2.0D0 3.0D0)(4.0D0 5.0D0 6.0D0))((7.0D0 8.0D0 9.0D0)(10.0D0 |
12 |
|
11.0D0 |
13 |
|
12.0D0))((13.0D0 14.0D0 15.0D0)(16.0D0 17.0D0 18.0D0))((19.0D0 20.0D0 |
14 |
|
21.0D0)( |
15 |
|
22.0D0 23.0D0 24.0D0)))) T |
16 |
|
|
17 |
|
(AREF DA1 0 0 0) 1.0D0 |
18 |
|
|
19 |
|
(AREF DA1 0 0 1) 2.0D0 |
20 |
|
|
21 |
|
(AREF DA1 0 0 2) 3.0D0 |
22 |
|
|
23 |
|
(AREF DA1 0 1 0) 4.0D0 |
24 |
|
|
25 |
|
(AREF DA1 0 1 1) 5.0D0 |
26 |
|
|
27 |
|
(AREF DA1 0 1 2) 6.0D0 |
28 |
|
|
29 |
|
(AREF DA1 1 0 0) 7.0D0 |
30 |
|
|
31 |
|
(AREF DA1 1 0 1) 8.0D0 |
32 |
|
|
33 |
|
(AREF DA1 1 0 2) 9.0D0 |
34 |
|
|
35 |
|
(AREF DA1 1 1 0) 10.0D0 |
36 |
|
|
37 |
|
(AREF DA1 1 1 1) 11.0D0 |
38 |
|
|
39 |
|
(AREF DA1 1 1 2) 12.0D0 |
40 |
|
|
41 |
|
(AREF DA1 2 0 0) 13.0D0 |
42 |
|
|
43 |
|
(AREF DA1 2 0 1) 14.0D0 |
44 |
|
|
45 |
|
(AREF DA1 2 0 2) 15.0D0 |
46 |
|
|
47 |
|
(AREF DA1 2 1 0) 16.0D0 |
48 |
|
|
49 |
|
(AREF DA1 2 1 1) 17.0D0 |
50 |
|
|
51 |
|
(AREF DA1 2 1 2) 18.0D0 |
52 |
|
|
53 |
|
(AREF DA1 3 0 0) 19.0D0 |
54 |
|
|
55 |
|
(AREF DA1 3 0 1) 20.0D0 |
56 |
|
|
57 |
|
(AREF DA1 3 0 2) 21.0D0 |
58 |
|
|
59 |
|
(AREF DA1 3 1 0) 22.0D0 |
60 |
|
|
61 |
|
(AREF DA1 3 1 1) 23.0D0 |
62 |
|
|
63 |
|
(AREF DA1 3 1 1) 23.0D0 |
64 |
|
|
65 |
|
(FORMAT T "~%Erzeuge ein Feld mit einfachgenauen Zahlen~%") NIL |
66 |
|
|
67 |
|
(EQUALP (SETQ FA1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE |
68 |
|
( |
69 |
|
((1.0 2.0 3.0) (4.0 5.0 6.0)) ((7.0 8.0 9.0) (10.0 11.0 12.0)) |
70 |
|
((13.0 14.0 15.0) (16.0 17.0 18.0)) ((19.0 20.0 21.0) (22.0 23.0 24.0)))) |
71 |
|
|
72 |
|
:ELEMENT-TYPE (QUOTE SINGLE-FLOAT))) |
73 |
|
'#3A(((1.0 2.0 3.0)(4.0 5.0 6.0))((7.0 8.0 9.0)(10.0 11.0 12.0))((13.0 |
74 |
|
14.0 15.0)( |
75 |
|
16.0 17.0 18.0))((19.0 20.0 21.0)(22.0 23.0 24.0)))) T |
76 |
|
|
77 |
|
(AREF FA1 0 0 0) 1.0 |
78 |
|
|
79 |
|
(AREF FA1 0 0 1) 2.0 |
80 |
|
|
81 |
|
(AREF FA1 0 0 2) 3.0 |
82 |
|
|
83 |
|
(AREF FA1 0 1 0) 4.0 |
84 |
|
|
85 |
|
(AREF FA1 0 1 1) 5.0 |
86 |
|
|
87 |
|
(AREF FA1 0 1 2) 6.0 |
88 |
|
|
89 |
|
(AREF FA1 1 0 0) 7.0 |
90 |
|
|
91 |
|
(AREF FA1 1 0 1) 8.0 |
92 |
|
|
93 |
|
(AREF FA1 1 0 2) 9.0 |
94 |
|
|
95 |
|
(AREF FA1 1 1 0) 10.0 |
96 |
|
|
97 |
|
(AREF FA1 1 1 1) 11.0 |
98 |
|
|
99 |
|
(AREF FA1 1 1 2) 12.0 |
100 |
|
|
101 |
|
(AREF FA1 2 0 0) 13.0 |
102 |
|
|
103 |
|
(AREF FA1 2 0 1) 14.0 |
104 |
|
|
105 |
|
(AREF FA1 2 0 2) 15.0 |
106 |
|
|
107 |
|
(AREF FA1 2 1 0) 16.0 |
108 |
|
|
109 |
|
(AREF FA1 2 1 1) 17.0 |
110 |
|
|
111 |
|
(AREF FA1 2 1 2) 18.0 |
112 |
|
|
113 |
|
(AREF FA1 3 0 0) 19.0 |
114 |
|
|
115 |
|
(AREF FA1 3 0 1) 20.0 |
116 |
|
|
117 |
|
(AREF FA1 3 0 2) 21.0 |
118 |
|
|
119 |
|
(AREF FA1 3 1 0) 22.0 |
120 |
|
|
121 |
|
(AREF FA1 3 1 1) 23.0 |
122 |
|
|
123 |
|
(AREF FA1 3 1 1) 23.0 |
124 |
|
|
125 |
|
(FORMAT T "~%Limits fuer Felder~%") NIL |
126 |
|
|
127 |
|
ARRAY-RANK-LIMIT #+XCL 256 #+CLISP 4294967296 #| #+CLISP 65536 |# |
128 |
|
|
129 |
|
ARRAY-DIMENSION-LIMIT #+XCL 17920 #+CLISP 16777216 |
130 |
|
|
131 |
|
ARRAY-TOTAL-SIZE-LIMIT #+XCL 17920 #+CLISP 16777216 |
132 |
|
|
133 |
|
(FORMAT T "~%Erzeuge einen einfachen (simple) Vector~%") NIL |
134 |
|
|
135 |
|
(EQUALP (SETQ SV (VECTOR (QUOTE A) (QUOTE B) (QUOTE C) 1.0S0 3.7D0 |
136 |
|
4.1)) |
137 |
|
'#(A B C 1.0S0 3.7D0 4.1)) T |
138 |
|
|
139 |
|
(SVREF SV 0) A |
140 |
|
|
141 |
|
(SVREF SV 1) B |
142 |
|
|
143 |
|
(SVREF SV 2) C |
144 |
|
|
145 |
|
(SVREF SV 3) 1.0S0 |
146 |
|
|
147 |
|
(SVREF SV 4) 3.7D0 |
148 |
|
|
149 |
|
(FORMAT T "~%Pruefe Setzen eines Elements~%") NIL |
150 |
|
|
151 |
|
(SETF (SVREF SV 0) (QUOTE TEST)) TEST |
152 |
|
|
153 |
|
(EQUALP SV '#(TEST B C 1.0S0 3.7D0 4.1)) T |
154 |
|
|
155 |
|
(FORMAT T "~%Test Array-Element-Typ ... DA2 nicht def.~%") NIL |
156 |
|
|
157 |
|
(ARRAY-ELEMENT-TYPE SV) T |
158 |
|
|
159 |
|
(ARRAY-ELEMENT-TYPE DA1) #+XCL DOUBLE-FLOAT #+CLISP T |
160 |
|
|
161 |
|
(FORMAT T "~%Test Rang~%") NIL |
162 |
|
|
163 |
|
(ARRAY-RANK DA1) 3 |
164 |
|
|
165 |
|
(ARRAY-RANK FA1) 3 |
166 |
|
|
167 |
|
(FORMAT T "~%Test der einzelnen Dimensionen~%") NIL |
168 |
|
|
169 |
|
(ARRAY-DIMENSION DA1 0) 4 |
170 |
|
|
171 |
|
(ARRAY-DIMENSION DA1 1) 2 |
172 |
|
|
173 |
|
(ARRAY-DIMENSION DA1 2) 3 |
174 |
|
|
175 |
|
(ARRAY-DIMENSION DA1 3) ERROR |
176 |
|
|
177 |
|
(FORMAT T "~%Erzeuge ein 0-dim. Feld (Pseudoscalar) mit Inhalt mod |
178 |
|
5~%") NIL |
179 |
|
|
180 |
|
(PROGN (SETQ ZERO (MAKE-ARRAY (QUOTE NIL) :ELEMENT-TYPE (QUOTE (MOD |
181 |
|
5)))) T) T |
182 |
|
|
183 |
|
(ARRAY-RANK ZERO) 0 |
184 |
|
|
185 |
|
(SETF (AREF ZERO) 4) 4 |
186 |
|
|
187 |
|
(SETF (AREF ZERO) 1.0) #+(or XCL CLISP) ERROR |
188 |
|
|
189 |
|
(FORMAT T "~%Erzeuge ein 3-dim gen. Feld~%") NIL |
190 |
|
|
191 |
|
(EQUALP (SETQ A1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE |
192 |
|
|
193 |
|
(((A B C) (1 2 3)) ((D E F) (3 1 2)) ((G H I) (2 3 1)) ((J K L) (0 |
194 |
|
0 0)))))) |
195 |
|
'#3A(((A B C)(1 2 3))((D E F)(3 1 2))((G H I)(2 3 1))((J K L)(0 0 0)))) |
196 |
|
T |
197 |
|
|
198 |
|
(AREF A1 0 0 0) A |
199 |
|
|
200 |
|
(AREF A1 0 0 1) B |
201 |
|
|
202 |
|
(AREF A1 0 0 2) C |
203 |
|
|
204 |
|
(AREF A1 0 1 0) 1 |
205 |
|
|
206 |
|
(AREF A1 0 1 1) 2 |
207 |
|
|
208 |
|
(AREF A1 0 1 2) 3 |
209 |
|
|
210 |
|
(AREF A1 1 0 0) D |
211 |
|
|
212 |
|
(AREF A1 1 0 1) E |
213 |
|
|
214 |
|
(AREF A1 1 0 2) F |
215 |
|
|
216 |
|
(AREF A1 1 1 0) 3 |
217 |
|
|
218 |
|
(AREF A1 1 1 1) 1 |
219 |
|
|
220 |
|
(AREF A1 1 1 2) 2 |
221 |
|
|
222 |
|
(AREF A1 2 0 0) G |
223 |
|
|
224 |
|
(AREF A1 2 0 1) H |
225 |
|
|
226 |
|
(AREF A1 2 0 2) I |
227 |
|
|
228 |
|
(AREF A1 2 1 0) 2 |
229 |
|
|
230 |
|
(AREF A1 2 1 1) 3 |
231 |
|
|
232 |
|
(AREF A1 2 1 2) 1 |
233 |
|
|
234 |
|
(AREF A1 3 0 0) J |
235 |
|
|
236 |
|
(AREF A1 3 0 1) K |
237 |
|
|
238 |
|
(AREF A1 3 0 2) L |
239 |
|
|
240 |
|
(AREF A1 3 1 0) 0 |
241 |
|
|
242 |
|
(AREF A1 3 1 1) 0 |
243 |
|
|
244 |
|
(AREF A1 3 1 1) 0 |
245 |
|
|
246 |
|
(FORMAT T "~%Erzeuge ein 2-dim adj.Feld, das ueberlagert wird ~%") |
247 |
|
NIL |
248 |
|
|
249 |
|
(PROGN (SETQ M (MAKE-ARRAY (QUOTE (4 4)) :ADJUSTABLE T :INITIAL-CONTENTS |
250 |
|
(QUOTE ( |
251 |
|
(ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA |
252 |
|
MU) |
253 |
|
(NU XI OMICRON PI))))) T) T |
254 |
|
|
255 |
|
(AREF M 0 0) ALPHA |
256 |
|
|
257 |
|
(AREF M 0 1) BETA |
258 |
|
|
259 |
|
(AREF M 0 2) GAMMA |
260 |
|
|
261 |
|
(AREF M 0 3) DELTA |
262 |
|
|
263 |
|
(AREF M 1 0) EPSILON |
264 |
|
|
265 |
|
(AREF M 1 1) ZETA |
266 |
|
|
267 |
|
(AREF M 1 2) ETA |
268 |
|
|
269 |
|
(AREF M 1 3) THETA |
270 |
|
|
271 |
|
(AREF M 2 0) IOTA |
272 |
|
|
273 |
|
(AREF M 2 1) KAPPA |
274 |
|
|
275 |
|
(AREF M 2 2) LAMBDA |
276 |
|
|
277 |
|
(AREF M 2 3) MU |
278 |
|
|
279 |
|
(AREF M 3 0) NU |
280 |
|
|
281 |
|
(AREF M 3 1) XI |
282 |
|
|
283 |
|
(AREF M 3 2) OMICRON |
284 |
|
|
285 |
|
(AREF M 3 3) PI |
286 |
|
|
287 |
|
(FORMAT T "~%Erzeuge Ueberl. der Zeilen ~%") NIL |
288 |
|
|
289 |
|
(equalp (SETQ MD0 (MAKE-ARRAY 4 :DISPLACED-TO M)) '#(ALPHA BETA GAMMA |
290 |
|
DELTA)) t |
291 |
|
|
292 |
|
(equalp (SETQ MD1 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET |
293 |
|
4)) |
294 |
|
'#(EPSILON ZETA ETA THETA)) t |
295 |
|
|
296 |
|
|
297 |
|
(equalp (SETQ MD2 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET |
298 |
|
8)) |
299 |
|
'#(IOTA KAPPA LAMBDA MU)) t |
300 |
|
|
301 |
|
|
302 |
|
(FORMAT T "~%Adjustiere Feld m~%") NIL |
303 |
|
|
304 |
|
(PROGN (ADJUST-ARRAY M (QUOTE (3 5)) :INITIAL-ELEMENT (QUOTE BAZ)) |
305 |
|
T) T |
306 |
|
|
307 |
|
(AREF M 0 0) ALPHA |
308 |
|
|
309 |
|
(AREF M 0 1) BETA |
310 |
|
|
311 |
|
(AREF M 0 2) GAMMA |
312 |
|
|
313 |
|
(AREF M 0 3) DELTA |
314 |
|
|
315 |
|
(AREF M 0 4) BAZ |
316 |
|
|
317 |
|
(AREF M 1 0) EPSILON |
318 |
|
|
319 |
|
(AREF M 1 1) ZETA |
320 |
|
|
321 |
|
(AREF M 1 2) ETA |
322 |
|
|
323 |
|
(AREF M 1 3) THETA |
324 |
|
|
325 |
|
(AREF M 1 4) BAZ |
326 |
|
|
327 |
|
(AREF M 2 0) IOTA |
328 |
|
|
329 |
|
(AREF M 2 1) KAPPA |
330 |
|
|
331 |
|
(AREF M 2 2) LAMBDA |
332 |
|
(FORMAT T "~%Teste Zusammenspiel der Schluesselworte~%") NIL |
333 |
|
|
334 |
|
(PROGN (SETQ DV (MAKE-ARRAY 10 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) |
335 |
|
:INITIAL-CONTENTS |
336 |
|
(QUOTE (0.0D0 1.0D0 2.0D0 3.0D0 4.0D0 5.0D0 6.0D0 7.0D0 8.0D0 9.0D0)))) |
337 |
|
T) T |
338 |
|
#| *************************************************************************** |
339 |
|
|
340 |
|
(SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) |
341 |
|
|
342 |
|
:INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0 5.0D0))))) ERROR |
343 |
|
|
344 |
|
(SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) |
345 |
|
|
346 |
|
:INITIAL-CONTENTS (QUOTE |
347 |
|
((1.0D0 2.0D0) (3.0D0 4.0D0) :DISPLACED-TO DV :DISPLACED-INDEX-OFFSET |
348 |
|
8)))) ERROR |
349 |
|
|
350 |
|
(SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) |
351 |
|
|
352 |
|
:INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0))) :DISPLACED-TO |
353 |
|
DV |
354 |
|
:DISPLACED-INDEX-OFFSET 8)) ERROR |
355 |
|
|
356 |
|
(SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) |
357 |
|
|
358 |
|
:DISPLACED-TO DV :DISPLACED-INDEX-OFFSET 8)) ERROR |
359 |
|
|
360 |
|
***************************************************************************|# |
361 |
|
|
362 |
|
(AREF DV 0) 0.0D0 |
363 |
|
|
364 |
|
(AREF DV 1) 1.0D0 |
365 |
|
|
366 |
|
(AREF DV 2) 2.0D0 |
367 |
|
|
368 |
|
(AREF DV 3) 3.0D0 |
369 |
|
|
370 |
|
(AREF DV 4) 4.0D0 |
371 |
|
|
372 |
|
(AREF DV 5) 5.0D0 |
373 |
|
|
374 |
|
(AREF DV 6) 6.0D0 |
375 |
|
|
376 |
|
(AREF DV 7) 7.0D0 |
377 |
|
|
378 |
|
(AREF DV 8) 8.0D0 |
379 |
|
|
380 |
|
(AREF DV 9) 9.0D0 |
381 |
|
|
382 |
|
(SETF (AREF DV 5) -5.0D0) -5.0D0 |
383 |
|
|
384 |
|
(FORMAT T "~%Definiere Testfkt fuer Indices~%") NIL |
385 |
|
|
386 |
|
(DEFUN ARRAY-INDEX-TEST (A &REST SUBS) (UNLESS |
387 |
|
(APPLY (FUNCTION ARRAY-IN-BOUNDS-P) A SUBS) |
388 |
|
(RETURN-FROM ARRAY-INDEX-TEST (QUOTE ERROR))) (= |
389 |
|
(APPLY (FUNCTION ARRAY-ROW-MAJOR-INDEX) A SUBS) (APPLY (FUNCTION +) |
390 |
|
(MAPLIST |
391 |
|
(FUNCTION (LAMBDA (X Y) (* (CAR X) (APPLY (FUNCTION *) (CDR Y))))) |
392 |
|
SUBS |
393 |
|
(ARRAY-DIMENSIONS A))))) ARRAY-INDEX-TEST |
394 |
|
|
395 |
|
(ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 4 2 2 1 0) T |
396 |
|
|
397 |
|
(ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 3 4 2 1 2) ERROR |
398 |
|
|
399 |
|
(FORMAT T "~%Test Bitfelder ~%") NIL |
400 |
|
|
401 |
|
(SETQ BVZERO (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT |
402 |
|
0)) |
403 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
404 |
|
|
405 |
|
(SETQ BVONE (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT |
406 |
|
1)) |
407 |
|
#*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 |
408 |
|
|
409 |
|
(SETQ BV3 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT |
410 |
|
0)) |
411 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
412 |
|
|
413 |
|
(SETQ BV2 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT |
414 |
|
0)) |
415 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
416 |
|
|
417 |
|
(SETQ BV1 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT |
418 |
|
0)) |
419 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
420 |
|
|
421 |
|
(FORMAT T "~%Setze Bitfelder ~%") NIL |
422 |
|
|
423 |
|
(DOTIMES (I 50 BV1) (SETF (SBIT BV1 (* I 2)) 1)) |
424 |
|
#*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010 |
425 |
|
|
426 |
|
(DOTIMES (I 50 BV2) (SETF (BIT BV2 (* I 2)) 1)) |
427 |
|
#*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010 |
428 |
|
|
429 |
|
(EQUALP BV1 BV2) T |
430 |
|
(DOTIMES (I 25 BV3) (SETF (SBIT BV3 (* I 4)) 1)) |
431 |
|
#*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000 |
432 |
|
|
433 |
|
(BIT-AND BV1 BV3) |
434 |
|
#*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000 |
435 |
|
|
436 |
|
(BIT-IOR BV1 BV3) |
437 |
|
#*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010 |
438 |
|
|
439 |
|
(BIT-XOR BV1 BV3) |
440 |
|
#*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010 |
441 |
|
|
442 |
|
(BIT-EQV BV1 BV3) |
443 |
|
#*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101 |
444 |
|
|
445 |
|
(BIT-NAND BV1 BV3) |
446 |
|
#*0111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111 |
447 |
|
|
448 |
|
(BIT-ANDC1 BV1 BV3) |
449 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
450 |
|
|
451 |
|
(BIT-ANDC2 BV1 BV3) |
452 |
|
#*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010 |
453 |
|
|
454 |
|
(BIT-ORC1 BV1 BV3) |
455 |
|
#*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101 |
456 |
|
|
457 |
|
(BIT-ORC2 BV1 BV3) |
458 |
|
#*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 |
459 |
|
|
460 |
|
(BIT-NOT BV1) |
461 |
|
#*0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101 |
462 |
|
|
463 |
|
(BIT-NOT BVZERO) |
464 |
|
#*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 |
465 |
|
|
466 |
|
(BIT-NOT BVONE) |
467 |
|
#*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
468 |
|
|
469 |
|
(FORMAT T "~%Teste Operationen mit Fillpointern ~%") NIL |
470 |
|
|
471 |
|
(MAKE-ARRAY (QUOTE (3 4 5)) :FILL-POINTER T) ERROR |
472 |
|
|
473 |
|
(equalp (MAKE-ARRAY 5 :FILL-POINTER 5) |
474 |
|
#+XCL '#(0 0 0 0 0) #-XCL '#(nil nil nil nil nil)) |
475 |
|
T |
476 |
|
|
477 |
|
(MAKE-ARRAY 5 :FILL-POINTER -5) ERROR |
478 |
|
|
479 |
|
(FORMAT T "~%Allgem. Vector mit Fillpointer ~%") NIL |
480 |
|
|
481 |
|
(PROGN (SETQ VMF (MAKE-ARRAY 5 :FILL-POINTER 0)) T) T |
482 |
|
|
483 |
|
(FILL-POINTER VMF) 0 |
484 |
|
|
485 |
|
(VECTOR-PUSH (QUOTE A) VMF) 0 |
486 |
|
|
487 |
|
(FILL-POINTER VMF) 1 |
488 |
|
|
489 |
|
(VECTOR-PUSH (QUOTE B) VMF) 1 |
490 |
|
|
491 |
|
(VECTOR-PUSH (QUOTE C) VMF) 2 |
492 |
|
|
493 |
|
(VECTOR-PUSH (QUOTE D) VMF) 3 |
494 |
|
|
495 |
|
(VECTOR-PUSH (QUOTE E) VMF) 4 |
496 |
|
|
497 |
|
(VECTOR-PUSH (QUOTE VOLL) VMF) NIL |
498 |
|
|
499 |
|
(VECTOR-POP VMF) E |
500 |
|
|
501 |
|
(VECTOR-POP VMF) D |
502 |
|
|
503 |
|
(VECTOR-POP VMF) C |
504 |
|
|
505 |
|
(VECTOR-POP VMF) B |
506 |
|
|
507 |
|
(VECTOR-POP VMF) A |
508 |
|
|
509 |
|
(VECTOR-POP VMF) ERROR |
510 |
|
|
511 |
|
(FORMAT T "~%Adjustabler allgem. Vector mit Fillpointer~%") NIL |
512 |
|
|
513 |
|
(PROGN (SETQ VMFA (MAKE-ARRAY 5 :FILL-POINTER 0 :ADJUSTABLE T)) T) |
514 |
|
T |
515 |
|
|
516 |
|
(FILL-POINTER VMFA) 0 |
517 |
|
|
518 |
|
(VECTOR-PUSH-EXTEND (QUOTE A) VMFA) 0 |
519 |
|
|
520 |
|
(FILL-POINTER VMFA) 1 |
521 |
|
|
522 |
|
(VECTOR-PUSH-EXTEND (QUOTE B) VMFA) 1 |
523 |
|
|
524 |
|
(VECTOR-PUSH-EXTEND (QUOTE C) VMFA) 2 |
525 |
|
|
526 |
|
(VECTOR-PUSH-EXTEND (QUOTE D) VMFA) 3 |
527 |
|
|
528 |
|
(VECTOR-PUSH-EXTEND (QUOTE E) VMFA) 4 |
529 |
|
|
530 |
|
(VECTOR-PUSH-EXTEND (QUOTE VOLL) VMFA) 5 |
531 |
|
|
532 |
|
(VECTOR-POP VMFA) VOLL |
533 |
|
|
534 |
|
(VECTOR-POP VMFA) E |
535 |
|
|
536 |
|
(VECTOR-POP VMFA) D |
537 |
|
|
538 |
|
(VECTOR-POP VMFA) C |
539 |
|
|
540 |
|
(VECTOR-POP VMFA) B |
541 |
|
|
542 |
|
(VECTOR-POP VMFA) A |
543 |
|
|
544 |
|
(FORMAT T "~%Doppeltgen. Vector mit Fillpointer ~%") NIL |
545 |
|
|
546 |
|
(PROGN |
547 |
|
(SETQ VMFD (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT))) |
548 |
|
T) T |
549 |
|
|
550 |
|
(FILL-POINTER VMFD) 0 |
551 |
|
|
552 |
|
(VECTOR-PUSH 0.0D0 VMFD) 0 |
553 |
|
|
554 |
|
(FILL-POINTER VMFD) 1 |
555 |
|
|
556 |
|
(VECTOR-PUSH 1.0D0 VMFD) 1 |
557 |
|
|
558 |
|
(VECTOR-PUSH 2.0D0 VMFD) 2 |
559 |
|
|
560 |
|
(VECTOR-PUSH 3.0D0 VMFD) 3 |
561 |
|
|
562 |
|
(VECTOR-PUSH 4.0D0 VMFD) 4 |
563 |
|
|
564 |
|
(VECTOR-PUSH 5.0D0 VMFD) NIL |
565 |
|
|
566 |
|
(VECTOR-POP VMFD) 4.0D0 |
567 |
|
|
568 |
|
(VECTOR-POP VMFD) 3.0D0 |
569 |
|
|
570 |
|
(VECTOR-POP VMFD) 2.0D0 |
571 |
|
|
572 |
|
(VECTOR-POP VMFD) 1.0D0 |
573 |
|
|
574 |
|
(VECTOR-POP VMFD) 0.0D0 |
575 |
|
|
576 |
|
(VECTOR-POP VMFD) ERROR |
577 |
|
|
578 |
|
(FORMAT T "~%Doppeltgen. adjust. Vector mit Fillpointer ~%") NIL |
579 |
|
|
580 |
|
(PROGN (SETQ VMFAD |
581 |
|
(MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) :ADJUSTABLE |
582 |
|
T)) |
583 |
|
T) T |
584 |
|
|
585 |
|
(FILL-POINTER VMFAD) 0 |
586 |
|
|
587 |
|
(VECTOR-PUSH-EXTEND 0.0D0 VMFAD) 0 |
588 |
|
|
589 |
|
(FILL-POINTER VMFAD) 1 |
590 |
|
|
591 |
|
(VECTOR-PUSH-EXTEND 1.0D0 VMFAD) 1 |
592 |
|
|
593 |
|
(VECTOR-PUSH-EXTEND 2.0D0 VMFAD) 2 |
594 |
|
|
595 |
|
(VECTOR-PUSH-EXTEND 3.0D0 VMFAD) 3 |
596 |
|
|
597 |
|
(VECTOR-PUSH-EXTEND 4.0D0 VMFAD) 4 |
598 |
|
|
599 |
|
(VECTOR-PUSH-EXTEND 5.0D0 VMFAD) 5 |
600 |
|
|
601 |
|
(VECTOR-POP VMFAD) 5.0D0 |
602 |
|
|
603 |
|
(VECTOR-POP VMFAD) 4.0D0 |
604 |
|
|
605 |
|
(VECTOR-POP VMFAD) 3.0D0 |
606 |
|
|
607 |
|
(VECTOR-POP VMFAD) 2.0D0 |
608 |
|
|
609 |
|
(VECTOR-POP VMFAD) 1.0D0 |
610 |
|
|
611 |
|
(VECTOR-POP VMFAD) 0.0D0 |
612 |
|
|
613 |
|
(VECTOR-PUSH-EXTEND 5.0S0 VMFAD) #+XCL ERROR #+CLISP 0 |
614 |
|
|