lisp question

I have a need for a matrix structure in lisp. I'm having trouble defining how to handle this using lisp. The problem is:

I have a list (X Y) which make up a matrix (M) with indices i & j. I and J are unknown quantities before run time. The matrix dimension of i x j is in excess of 10000. I must be able to both add values to the end of the column and retrieve columns of values to this structure. For example

M= | 1 2 3 4 5 6 7

---------------

1 | 1 4 X 8 9 1 3 2 | 1 1 3 4 4 5 3 | 2 3 5 5 4 2 4 | 2 2 2 2 X 2 5 | 1 3 X X 0 6 | 0 X X 7 | X

Need to a save item to the end (or beginning) of any column (where X's are shown) and need to retrieve the whole column (not individual items).

Does anyone have an idea of how to handle this? I mentioned the dimension of the Matrix so you have an understanding that the structure must be fast. I cannot rebuild the list each time I add an item.

My best plan to handle this was to use j+1 lists. There would be one list for each column plus an index list holding the names of the lists. For example the columns would be named and in a list like this (col1 col2 col3...) Where col1 was the var that pointed to the list. Then to add to a list look-up the var then evaluate the name and cons a new item to the list. To retrieve just look-up the name. My problem here is I cannot figure out how to generate the lists names (col1 etc) dynamically. (I don't know the number of columns until run time.)

Any help would be appreciated.

Reply to
gjs
Loading thread data ...

HiHO; Bill Kramer addressed this in June &July 93 Cadalyst mag. It can also be found in his "Autolisp Treasure Chest". I think one may still reach him at cadalyst.com

Reply to
bestafor

That could work.

Here's how you could do it in Common Lisp (sorry, I don't have an AutoLisp reference handy, but hopefully this will give you some ideas):

D++(20): (setq test '((1 1 2 2 1 0) (4 1 3 2 3) () (8 3 5 2) (9 4 5 2) (1 4 4) (3 5 2 2 0))) ((1 1 2 2 1 0) (4 1 3 2 3) NIL (8 3 5 2) (9 4 5 2) (1 4 4) (3 5 2 2 0))

D++(21): (third test) NIL

D++(22): (push 6 (third test)) (6)

D++(23): test ((1 1 2 2 1 0) (4 1 3 2 3) (6) (8 3 5 2) (9 4 5 2) (1 4 4) (3 5 2 2 0))

D++(24): (push 4 (third test)) (4 6)

D++(25): (setf (third test) (append (third test) (list 5))) (4 6 5)

D++(26): test ((1 1 2 2 1 0) (4 1 3 2 3) (4 6 5) (8 3 5 2) (9 4 5 2) (1 4 4) (3 5 2 2 0))

D++(27): (pprint test) ((1 1 2 2 1 0) (4 1 3 2 3) (4 6 5) (8 3 5 2) (9 4 5 2) (1 4 4) (3 5 2 2 0))

D++(28): (push 10 (nth 6 test)) (10 3 5 2 2 0)

D++(29): (pprint test) ((1 1 2 2 1 0) (4 1 3 2 3) (4 6 5) (8 3 5 2) (9 4 5 2) (1 4 4) (10 3 5 2 2 0))

D++(30): (setf (nth 6 test) (append (nth 6 test) (list 11))) (10 3 5 2 2 0 11)

D++(31): (pprint test) ((1 1 2 2 1 0) (4 1 3 2 3) (4 6 5) (8 3 5 2) (9 4 5 2) (1 4 4) (10 3 5 2 2 0 11))

NOTE: the D++(xx): are my command line prompts.

HTH,

Reply to
Bill Cochell

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.