lisp 習題 矩陣旋轉
給定一個方形矩陣 (m = n) 做順時針90度轉換:
CL-USER> (turn #2a((a b)(c d)))
#2A((C A) (D B))
1 2 3 7 4 1
4 5 6 => 5 8 2
7 8 9 9 6 3
CL-USER> (turn #2a((a b)(c d)))
#2A((C A) (D B))
1 2 3 7 4 1
4 5 6 => 5 8 2
7 8 9 9 6 3
CL-USER> (defun turn (arr) (let ( (m (array-dimensions arr))) (let ( (arr1 (make-array m ))) (dotimes ( i (car m) i) (dotimes (j (car m) j) (setf (aref arr1 i j) (aref arr (- (car m) 1 j) i)))) arr1))) STYLE-WARNING: redefining COMMON-LISP-USER::TURN in DEFUN TURN CL-USER> (setf arr #2A((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16))) #2A((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)) CL-USER> CL-USER> (turn arr) #2A((13 9 5 1) (14 10 6 2) (15 11 7 3) (16 12 8 4)) CL-USER> |
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/133735/viewspace-740384/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 旋轉矩陣矩陣
- 矩陣旋轉矩陣
- 旋轉變換(一)旋轉矩陣矩陣
- 旋轉矩陣推導矩陣
- 原地旋轉矩陣(不申請新的記憶體空間旋轉矩陣)矩陣記憶體
- THREE 矩陣優先原則和平移旋轉矩陣矩陣
- 三維旋轉矩陣推導矩陣
- 二維旋轉矩陣推導矩陣
- 三維旋轉:旋轉矩陣,尤拉角,四元數矩陣
- 三維重建學習(1):基礎知識:旋轉矩陣與旋轉向量矩陣
- 利用三維旋轉矩陣在空間中旋轉平面矩陣
- 空間旋轉矩陣怎麼表示矩陣
- 正方形矩陣旋轉90度矩陣
- 旋轉矩陣與尤拉角的相互轉換矩陣
- 3D旋轉矩陣的推導3D矩陣
- 圖形學 旋轉與投影矩陣—1矩陣
- 圖形學 旋轉與投影矩陣—2矩陣
- 圖形學 旋轉與投影矩陣-3矩陣
- 三維座標系的旋轉矩陣矩陣
- 旋轉矩陣(Rotate Matrix)的性質分析矩陣
- 三維座標系旋轉——旋轉矩陣到旋轉角之間的換算矩陣
- 三維旋轉矩陣 左乘和右乘分析矩陣
- 矩陣旋轉-Eigen應用(QTCreator編輯器)矩陣QT
- 矩陣變換:沿任意軸旋轉及其推導矩陣
- 三維空間 旋轉矩陣 四元數 尤拉角 相互轉換 組合旋轉矩陣
- 剛體在三維空間的旋轉(關於旋轉矩陣、DCM、旋轉向量、四元數、尤拉角)矩陣
- 三維空間座標系變換-旋轉矩陣矩陣
- 註冊 旋轉矩陣 1.99 (1012字)矩陣
- 單像空間後方交會計算旋轉矩陣矩陣
- 三維圖形繞任意軸旋轉矩陣求解步驟矩陣
- 旋轉矩陣、尤拉角、四元數、軸/角之間的轉換矩陣
- lisp 習題 occurrencesLisp
- 三維空間中物體兩次旋轉之間的連續旋轉矩陣計算矩陣
- [CareerCup] 11.3 Search in Rotated Sorted Array 在旋轉有序矩陣中搜尋矩陣
- 矩陣轉置矩陣
- LeetCodeHot100 73. 矩陣置零 54. 螺旋矩陣 48. 旋轉影像 240. 搜尋二維矩陣 IILeetCode矩陣
- lisp 習題 post+Lisp
- 第四個OpenGL程式,vector 向量 (矩陣變換之 旋轉,縮放)矩陣