Matrix Generate Script

Recommended Posts

Hi there!

I have been learning linear algebra in my university for months. The subject was rather hard, I did't understand it much so I sent a email to my teacher to ask him. But I realized that typing a matrix by text was extremely hard. I don't want to make a LaTex function, save to a file, attach it to the mail, bla bla bla!!! It's complicated! So I spent 2 hours yesterday to make this tool. Just type the number of lines and columns and matrix values, it will generate a quite nice matrix in ASCII characters

Enjoy!

Notes: It will rearrage your numbers to straight columns.

1x1 will cause error.

```ConsoleWrite (@CRLF & '------------------------------------MATRIX TEST-----------------------------------------' &@CRLF)
Dim \$c = 6;column
Dim \$l = 4;line
Dim \$n = '1,6,2,4,b,a,7,6,6,0,44,4,6,3,6,2,6,8,9,6,6,1,2,logmein'

\$split = StringSplit (\$n,',')
If \$c * \$l <> \$split[0] Then
ConsoleWrite ('! Matrix values number do not match the columns and lines !' & @CRLF)
Exit
EndIf

Dim \$char[\$l][\$c], \$len[\$l][\$c], \$maxlen[\$c][3]

For \$i = 0 To \$l-1
For \$u = 0 To \$c -1
\$v = \$i*(\$c) + \$u +1
\$char[\$i][\$u] = \$split[\$v]
\$len[\$i][\$u] = StringLen (\$split[\$v])
If \$len[\$i][\$u] > \$maxlen[\$u][0] Then
\$maxlen[\$u][0] = \$len[\$i][\$u]
\$maxlen[\$u][1] = \$i
\$maxlen[\$u][2] = \$u
EndIf
Next
Next

Local \$finallen

For \$u = 0 To \$c - 1
\$finallen += \$maxlen[\$u][0]
Next

ConsoleWrite (' _' & _Repeat(' ',\$finallen + \$c) & '_' & @CRLF)

For \$i = 0 To \$l-1;write lines
For \$u = 0 To \$c-1;write columns
\$v = \$i*(\$c) + \$u +1
\$char[\$i][\$u] = \$split[\$v]
Switch \$u
Case 0; the first column
If StringLen (\$char[\$i][\$u])<\$maxlen[\$u][0] Then
ConsoleWrite ('| ' & \$char[\$i][\$u] & _Repeat(' ', \$maxlen[\$u][0]-StringLen (\$char[\$i][\$u])+1))
Else

ConsoleWrite ('| ' & \$char[\$i][\$u] & ' ')
EndIf

Case 1 To \$c-2 ;middle columns
If \$i > 0 Then
If StringLen (\$char[\$i][\$u]) < \$maxlen[\$u][0] Then
ConsoleWrite (\$char[\$i][\$u] & _Repeat(' ', \$maxlen[\$u][0]-StringLen (\$char[\$i][\$u])+1))
Else
ConsoleWrite (\$char[\$i][\$u] & ' ' )
EndIf
Else
If StringLen (\$char[\$i][\$u]) < \$maxlen[\$u][0] Then
ConsoleWrite (\$char[\$i][\$u] & _Repeat(' ', \$maxlen[\$u][0]-StringLen (\$char[\$i][\$u])+1))
Else
ConsoleWrite (\$char[\$i][\$u] & ' ' )
EndIf
EndIf

Case Else ; the last column
If StringLen (\$char[\$i][\$u])<\$maxlen[\$u][0] Then
ConsoleWrite (\$char[\$i][\$u] & _Repeat(' ', \$maxlen[\$u][0]-StringLen (\$char[\$i][\$u])+1) & ' |' & @CRLF)
Else
ConsoleWrite (\$char[\$i][\$u] & ' |' & @CRLF)
EndIf
EndSwitch

Next
Next

ConsoleWrite ('|_' & _Repeat(' ',\$finallen + \$c ) & '_|' & @CRLF)

Func _Repeat(\$chars, \$times);repeat a character in a specified time
Local \$rChar
For \$a = 1 To \$times
\$rChar &= \$chars
Next
Return \$rChar
EndFunc ;==>_Repeat```
Edited by logmein
Share on other sites

I have examples with 0 posts and 0 stars, so what is the problem?

UDF List:

Â

Updated: 22/04/2018

Share on other sites

No one cares?

wah!

Just like guinness said...

I have examples with 0 posts and 0 stars, so what is the problem?

We all experience this. If your intent was to get some sort of accolade from the community, better get used to disappointment.

Asking for a mod to close the post because you are un-pleased with the response demonstrates a lack of respect for the forum and is frankly a waste of time.

Who knows...maybe one day a member will come across your post and find it useful. I've experienced acknowledgment years after some of my posts.

Edited by spudw2k
Spoiler

Things I've Made: Always On Top ToolÂ â—ŠÂ AU History â—ŠÂ Deck of Cards â—Š HideIt â—Š ICU â—Š Icon Freezer â—Š Ipod Ejector â—Š Junos Configuration Explorer â—Š Link Downloader â—Š MD5 Folder Enumerator â—Š PassGen â—ŠÂ Ping Tool â—Š Quick NIC â—Š Read OCR â—Š RemoteIT â—Š SchTasksGui â—Š SpyCam â—Š System Scan Report Tool â—Š System UpTime â—Š Transparency MachineÂ
Misc Code Snippets: ADODB Example â—Š CheckHoverÂ â—ŠÂ Detect SafeMode â—Š DynEnumArray â—Š GetNetStatDataÂ â—Š HashArrayâ—Š Local Admins â—Š Make Choice â—Š Recursive File List â—Š
Projects: Drive Space Usage GUI â—ŠÂ LEDkIT â—Š Plasma_kIt â—ŠÂ Scan Engine Builder â—Š SpeeDBurner â—Š SubnetCalc
Cool Stuff:

Â

Share on other sites

logmein,

People not commenting on this script just means that whomever is reading it has nothing to say, it is not a reflection on you or the script. As spudw2k said, sometime in the future someone may run across this and need something from it.

With that in mind, I would like to show you another way to do this. Please accept this as intended, instructional only.

```#include <GUIConstantsEx.au3>
#include <windowsConstants.au3>
#include <StaticConstants.au3>
#include <editConstants.au3>

local \$str
local \$numcols = 5          ; inital # columns
local \$numents = 100        ; number of test entries to generate
local \$entlngth= 5          ; length of each test entry

local \$gui010   =   guicreate('Display Matrix',500)
local \$size     =   WinGetClientSize(\$gui010)
local \$edt010   =   guictrlcreateedit('',0,0,\$size[0],\$size[1]-30, bitor(\$es_readonly,\$ws_hscroll, \$ws_vscroll))
guictrlsetfont(-1,10,800,default,'courier new')
guictrlcreatelabel('Number of columns:',10,\$size[1]-25,120,20)
guictrlsetfont(-1,8.5,600,default,'Lucinda Console')
local \$inp010   =   guictrlcreateinput(\$numcols,130,\$size[1]-25,40,20)
local \$btn010   =   guictrlcreatebutton('Display Matrix',190,\$size[1]-25,130,20)
guictrlsetfont(-1,10,800)
guictrlsetcolor(-1,0xaa0000)
local \$btn020   =   guictrlcreatebutton('Re-Gen String  ',350,\$size[1]-25,130,20)
guictrlsetfont(-1,10,800)
guictrlsetcolor(-1,0xaa0000)
guisetstate()

_GenRandomString()

While 1

switch guigetmsg()
case \$gui_event_close
Exit
case \$btn010
_DisplayMatrix()
case \$btn020
_GenRandomString()
_DisplayMatrix()
EndSwitch

wend

func _DisplayMatrix()

local \$a10 = stringsplit(\$str,','), \$out = '',\$numcols = guictrlread(\$inp010)
guictrlsetdata(\$edt010,'')
for \$1 = 1 to \$a10[0]

; \$numcols is the number of columns per row.  This is controlled by using
; modulo integer arithmetic to insert a carrige return/line feed when we have processed \$colnum entries
; from the input, in this case an array.
; The strings are padded using the stringformat function (similar to sprintf in "c")

if mod(\$1,\$numcols) = 0 then
\$out &= stringformat('%-' & \$entlngth+3 & 's',\$a10[\$1]) & @crlf
else
\$out &= stringformat('%-' & \$entlngth+3 & 's',\$a10[\$1])
endif
Next

guictrlsetdata(\$edt010,\$out)

endfunc

func _GenRandomString()

\$str = ''
for \$1 = 1 to \$numents
for \$2 = 1 to random(1,\$entlngth,1)
\$str &= chr(random(65,90,1))
next
\$str &= ','
Next

endfunc```

kylomas

edit: corrected spacing control

Edited by kylomas

Forum RulesÂ Â Â Â Â Â Â Â  Procedure for posting code

"I like pigs.Â  Dogs look up to us.Â  Cats look down on us.Â  Pigs treat us as equals."

- Sir Winston Churchill

Share on other sites

Personally, I prefer right aligned columns in the matrix display.

```Local \$c = 6 ; column
Local \$l = 4 ; line
Local \$Mat = '1,666,2,4,b,a,7,6,6,0,44,4,6,3,6,2,6,8,9,6,6,1,2,logmein'

ConsoleWrite(@CRLF & '------------------------------------MATRIX TEST (Right aligned) -----------------------------------------' & @CRLF)
_MatrixDisplay(\$Mat) ; Right aligned

ConsoleWrite(@CRLF & '------------------------------------MATRIX TEST (Left aligned) -----------------------------------------' & @CRLF)
_MatrixDisplay(\$Mat, 0) ; Left Aligned

Func _MatrixDisplay(ByRef \$n, \$iRightAlign = 1)
Local \$split = StringSplit(\$n, ',')

; Find array of Max. column width for each column.
Local \$aMax[\$c]
For \$i = 1 To \$split[0]
If StringLen(\$split[\$i]) > \$aMax[Mod(\$i - 1, \$c)]Then \$aMax[Mod(\$i - 1, \$c)] = StringLen(\$split[\$i])
Next

; Add appropiate number of spaces to each element depending on which column the element is in.
Local \$iRowLen = 0
For \$i = 1 To \$split[0]
If \$iRightAlign = 1 Then
\$split[\$i] = StringRight(_Repeat(" ", \$aMax[Mod(\$i - 1, \$c)] + 1) & \$split[\$i], \$aMax[Mod(\$i - 1, \$c)] + 1) ; Right aligned
Else
\$split[\$i] = StringLeft(\$split[\$i] & _Repeat(" ", \$aMax[Mod(\$i - 1, \$c)] + 1), \$aMax[Mod(\$i - 1, \$c)] + 1) ; Left aligned
EndIf
If \$i <= \$c Then \$iRowLen += StringLen(\$split[\$i]) ; For use in top and bottom matrix display.
Next

; Create matrix display
Local \$sMatrix = " _" & _Repeat(" ", \$iRowLen) & "_" & @CRLF
For \$i = 1 To \$l
\$sMatrix &= "| "
For \$u = 1 To \$c
\$sMatrix &= \$split[((\$i - 1) * \$c) + \$u]
Next
\$sMatrix &= " |" & @CRLF
Next
\$sMatrix &= " -" & _Repeat(" ", \$iRowLen) & "-" & @CRLF

ConsoleWrite(\$sMatrix & @LF)
EndFunc   ;==>_MatrixDisplay

Func _Repeat(\$chars, \$times);repeat a character in a specified time
Local \$rChar
For \$a = 1 To \$times
\$rChar &= \$chars
Next
Return \$rChar
EndFunc   ;==>_Repeat```

Create an account

Register a new account

• Similar Content

• Eigen4AutoIt - Matrix computing with Eigen 1 2 3 4 5

By RTFC,

• 92 replies
• 36,707 views
• Matrix Operations in AutoIt

By noellarkin,

• 3 replies
• 352 views

By UEZ,

• 0 replies
• 1,350 views
• The beauty / magic of math (Vol. 1 - 12)

By UEZ,

• 5 replies
• 1,498 views

By RTFC,

• 11 replies
• 4,320 views
×

• Wiki
• AutoIt Resources

• FAQ
×
• Create New...