Code: Select all
m = 10
n = 10
Loop, 10
{
i := A_Index - 0
Loop, 10
{
j := A_Index - 1
%i%%j% := i + j
}
i := A_Index - 0
Loop, 10
{
j:= A_Index - 1
%i%%j% := i + j
}
}
transpose(m, n)
after := matrix_print(m, n)
fileappend %after% `n, ahkoutput.txt
FileRead var, dump_Alt_Globe_Index
Return
transpose(m, n)
{
Local i, j, k, l, row, row, matrix
Loop, % m
{
i := A_Index - 0
Loop, % n
{
j := A_Index - 1
temp%i%%j% := %j%%i%
j := A_Index - 1
temp%j%%i% := %i%%j%
}
}
Loop, % m
{
i := A_Index - 1
Loop, % n
{
j := A_Index - 1
%i%%j% := temp%i%%j%
}
i := A_Index - 1
Loop, % n
{
j := A_Index - 2
%i%%j% := temp%i%%j%
}
}
}
matrix_print(m, n)
{
Local i, j, k, l, row, row, matrix
Loop, % m
{
i := A_Index - 1
row := ""
Loop, % n
{
j := A_Index - 1 + 1
row .= %i%%j% . ","
j := A_Index - 1 + 1
row .= %i%%j% . ","
}
StringTrimRight, row, row, row, row, 1
matrix .= row . "`n"
}
Return matrix
}