MatRによる行列計算テスト v2

AppleScript名：MatRによる行列計算テスト v2

— Created 2017-05-15 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "DCMatrix" –https://github.com/davidcox95/MatR

–行列データをdoubleのListに
set aMatrix to current application’s |Matrix|’s alloc()’s initWithValue:(current application’s NSNumber’s numberWithDouble:5) andRows:3 byColumns:4
set aList to doubleListFromMatrix(aMatrix) of me
–>　　{{5.0, 5.0, 5.0, 5.0}, {5.0, 5.0, 5.0, 5.0}, {5.0, 5.0, 5.0, 5.0}}

–行列データをintegerのListに
set bList to intListFromMatrix(aMatrix) of me
–>　　{{5, 5, 5, 5}, {5, 5, 5, 5}, {5, 5, 5, 5}}

–行列データをstringのListに
set cList to strListFromMatrix(aMatrix) of me
–>　　{{"5", "5", "5", "5"}, {"5", "5", "5", "5"}, {"5", "5", "5", "5"}}

set bMatrix to current application’s |Matrix|’s alloc()’s initWithValue:(current application’s NSNumber’s numberWithDouble:3) andRows:4 byColumns:3
set bScalar to current application’s NSNumber’s numberWithDouble:2
set bRes to bMatrix’s addScalar:bScalar
set bbRes to intListFromMatrix(bRes) of me
–>　　{{5, 5, 5}, {5, 5, 5}, {5, 5, 5}, {5, 5, 5}}

set cScalar to current application’s NSNumber’s numberWithDouble:2
set cRes to bMatrix’s subtractScalar:cScalar
set ccRes to intListFromMatrix(cRes) of me
–>　　{{1, 1, 1}, {1, 1, 1}, {1, 1, 1}, {1, 1, 1}}

set dScalar to current application’s NSNumber’s numberWithDouble:2
set eRes to bMatrix’s multiplyScalar:dScalar
set eeRes to intListFromMatrix(eRes) of me
–>　　{{6, 6, 6}, {6, 6, 6}, {6, 6, 6}, {6, 6, 6}}

set fScalar to current application’s NSNumber’s numberWithDouble:2
set fRes to bMatrix’s divideScalar:fScalar
set ffRes to doubleListFromMatrix(fRes) of me
–>　　{{1.5, 1.5, 1.5}, {1.5, 1.5, 1.5}, {1.5, 1.5, 1.5}, {1.5, 1.5, 1.5}}

set m4 to current application’s |Matrix|’s alloc()’s initWithValue:(current application’s NSNumber’s numberWithDouble:4) andRows:3 byColumns:3
set m2 to current application’s |Matrix|’s alloc()’s initWithValue:(current application’s NSNumber’s numberWithDouble:2) andRows:3 byColumns:3
set gRes to m4’s addMatrix:m2
set ggRes to intListFromMatrix(gRes) of me
–>　　{{6, 6, 6}, {6, 6, 6}, {6, 6, 6}}

set hRes to m4’s subtractMatrix:m2
set hhRes to intListFromMatrix(hRes) of me
–>　　{{2, 2, 2}, {2, 2, 2}, {2, 2, 2}}

set iRes to m4’s multiplyMatrix:m2
set iiRes to intListFromMatrix(iRes) of me
–>　　{{24, 24, 24}, {24, 24, 24}, {24, 24, 24

on doubleListFromMatrix(aMatrix)
　　set aList to {}
　　set aRows to aMatrix’s rows()
　　set aColumns to aMatrix’s columns()
　　
　　repeat with rowC from 0 to (aRows – 1)
　　　　set colList to {}
　　　　repeat with colC from 0 to (aColumns – 1)
　　　　　　set the end of colList to (aMatrix’s getElementAtRow:rowC andColumn:colC) as real
　　　　end repeat
　　　　set the end of aList to colList
　　end repeat
　　return aList
end doubleListFromMatrix

on intListFromMatrix(aMatrix)
　　set aList to {}
　　set aRows to aMatrix’s rows()
　　set aColumns to aMatrix’s columns()
　　
　　repeat with rowC from 0 to (aRows – 1)
　　　　set colList to {}
　　　　repeat with colC from 0 to (aColumns – 1)
　　　　　　set the end of colList to (aMatrix’s getElementAtRow:rowC andColumn:colC) as integer
　　　　end repeat
　　　　set the end of aList to colList
　　end repeat
　　return aList
end intListFromMatrix

on strListFromMatrix(aMatrix)
　　set aList to {}
　　set aRows to aMatrix’s rows()
　　set aColumns to aMatrix’s columns()
　　
　　repeat with rowC from 0 to (aRows – 1)
　　　　set colList to {}
　　　　repeat with colC from 0 to (aColumns – 1)
　　　　　　set the end of colList to (aMatrix’s getElementAtRow:rowC andColumn:colC) as string
　　　　end repeat
　　　　set the end of aList to colList
　　end repeat
　　return aList
end strListFromMatrix