lisp - Blocked Matrix Multiplication -


i trying create function performs blocked matrix multiplication in allegrocl, keep getting array-index errors. believe due indicies being 0-19 side of 20 x 20 block matrix, i'm unsure of how fix it.

error: array index 20 big dimension 20 while accessing #. [condition type: type-error]

any or direction appreciated. below code far.

(defun bmmul (a b)   (let* ((m (car (array-dimensions a)))          (n (cadr (array-dimensions a)))          (l (cadr (array-dimensions b)))          (u 0)          (c (make-array `(,m ,l) :initial-element 0)))     (loop p 0 (- m n)           (loop (+ 0 1) n                 (setf u (aref c 0))                 (loop k p (- (+ p n) 1)                       (setf u (* (aref k) (aref b k 0))))                 (setf (aref c 0) u)))     c))

in general, when looping on array index, go :from 0 :below n, n array dimension, when dimension 20, index goes 0 , including 19.

another problem seems in innermost loop, want incf, not setf. not need temporary variable (u) there, incf array cell directly.

finally, not feel structured loops correctly, not expect see hardcoded 0 index there. innermost loop body should (incf (aref c j) (* (aref k) (aref b k j))), regardless of whether ordinary or blocked multiplication.


Comments

Post a Comment

Popular posts from this blog

python - Best design pattern for collection of objects -

i have following architecture: +-----------------+ | collection | | | | | | | | | +-----------------+ | ^ | | create() | | | | v | getitem(b) +------------+ | | item | | | | | | +------+ | | +------------+ a class managing collection of items, creates items. , these items may need other items collection. the actual code in python, , collection passes parameter created item . see it, bad practice. improvement can see pass few functions of collection needed item , instead of whole instance. for example: class collection: getitem(self, id): ... createitem(self, id): item = item(id, self) # <-- pass self ... class item: __init__(self, id, col): ... col.getite...
Read more

go - serving up pdfs using golang -

Image
just wondering if guys can code. it works serving images not pdf brochure. in advance func main(){ http.handlefunc("/", func(w http.responsewriter, r *http.request){ filename := "/var/www/filedipenser/brochure.pdf" streampdfbytes, err := ioutil.readfile( filename ) if err != nil { fmt.println(err) os.exit(1) } b := bytes.newbuffer(streampdfbytes) w.header().set("content-type", "application/pdf") if _, err := b.writeto(w); err != nil { fmt.fprintf(w, "%s", err) } w.write([]byte("pdf generated")) }) err := http.listenandserve(":4111", nil) if err != nil { log.fatal("listenandserve: ", err) fmt.println(err) } } the code bit inefficient appears working. however, pdf viewers might sensitive extraneous output adding end of http response stream...
Read more

sharepoint online - C# CSOM SPView ListItemCollection did not update after I add new field in the SP view -

spclientcontext.credentials = new sharepointonlinecredentials(username, securepassword); //https://msdn.microsoft.com/en-us/library/office/ee534956(v=office.14).aspx web spweb = spclientcontext.web; list splist_csv = spweb.lists.getbytitle("supplier master list"); view spview_csv = splist_csv.views.getbytitle("_data pending export csv");//oracle export field spclientcontext.load(spview_csv); spclientcontext.executequery(); camlquery query = new camlquery(); query.viewxml = spview_csv.viewquery; listitemcollection items = splist_csv.getitems(query); spclientcontext.load(items); spclientcontext.executequery(); foreach (var item in items) { //some field/item missing? } hi, using code above retrieve data sharepoint online. @ first, working fine. but, when add in new column view _data pending export csv on sharepoint online, found out new added field missing. idea? ok. found out others issue, lookup field on limit. did fix change lookup field s...
Read more