April 13th. Project with(StringTools): Alphabet:=cat("\134t\134n", Select( IsPrintable , Implode([seq(convert([i],bytes),i=1..127)]))); StringToList:=proc(plaintext) global Alphabet; local i; [seq( -1+ SearchText(plaintext[i],Alphabet) ,i=1..length(plaintext))]; end proc: ListToString:=proc(listnum) global Alphabet; Implode([seq(Alphabet[listnum[i]+1],i=1..nops(listnum))]); end proc: length(Alphabet);

UVxxfCp8K34hIiMkJSYnKCkqKywtLi8wMTIzNDU2Nzg5Ojs8PT4/QEFCQ0RFRkdISUpLTE1OT1BRUlNUVVZXWFlaW1xdXl9gYWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXp8ZnJ8Z3J8aHJ8aXI2Ig==

IiMoKg==

listN:=StringToList("This is the new test");

NzciI2EiI3UiI3YiIyYpIiIjRiVGJkYnIiMnKUYkIiNyRidGJyIjISlGKSIjKilGJ0YoRilGJkYo

ListToString(listN);

UTZUaGlzfmlzfnRoZX5+bmV3fnRlc3Q2Ig==

StringToList("hello!");

NygiI3UiI3IiI3lGJSIjIikiIiQ=

mylist:= StringToList("Try me, 12345");

Ny8iI2EiIyUpIiMiKiIiIyIjeiIjciIjOUYmIiM+IiM/IiNAIiNBIiNC

mylist; op(mylist); [op(mylist), "the end"];

Ny8iI2EiIyUpIiMiKiIiIyIjeiIjciIjOUYmIiM+IiM/IiNAIiNBIiNC

Ni8iI2EiIyUpIiMiKiIiIyIjeiIjciIjOUYmIiM+IiM/IiNAIiNBIiNC

NzAiI2EiIyUpIiMiKiIiIyIjeiIjciIjOUYmIiM+IiM/IiNAIiNBIiNCUSh0aGV+ZW5kNiI=

Write a procudure take takes as input text, a positive integer n, a n x n invertible integer matrix A (mod length alphabet) and a vector of n coordinates B, converts it to list of vectors of size n corresponding to the symbols in the original text and then applies to each vector v of the list the transformation Av+B. Finally, the convert the vectors in a list of numbers and converts that list of numbers to string (using ListToString). with(LinearAlgebra);

N2dySSMmeEc2IkkkQWRkR0YkSShBZGpvaW50R0YkSTNCYWNrd2FyZFN1YnN0aXR1dGVHRiRJK0JhbmRNYXRyaXhHRiRJJkJhc2lzR0YkSS1CZXpvdXRNYXRyaXhHRiRJL0JpZGlhZ29uYWxGb3JtR0YkSS1CaWxpbmVhckZvcm1HRiRJNUNoYXJhY3RlcmlzdGljTWF0cml4R0YkSTlDaGFyYWN0ZXJpc3RpY1BvbHlub21pYWxHRiRJJ0NvbHVtbkdGJEkwQ29sdW1uRGltZW5zaW9uR0YkSTBDb2x1bW5PcGVyYXRpb25HRiRJLENvbHVtblNwYWNlR0YkSTBDb21wYW5pb25NYXRyaXhHRiRJMENvbmRpdGlvbk51bWJlckdGJEkvQ29uc3RhbnRNYXRyaXhHRiRJL0NvbnN0YW50VmVjdG9yR0YkSSVDb3B5R0YkSTJDcmVhdGVQZXJtdXRhdGlvbkdGJEktQ3Jvc3NQcm9kdWN0R0YkSS1EZWxldGVDb2x1bW5HRiRJKkRlbGV0ZVJvd0dGJEksRGV0ZXJtaW5hbnRHRiRJKURpYWdvbmFsR0YkSS9EaWFnb25hbE1hdHJpeEdGJEkqRGltZW5zaW9uR0YkSStEaW1lbnNpb25zR0YkSStEb3RQcm9kdWN0R0YkSTZFaWdlbkNvbmRpdGlvbk51bWJlcnNHRiRJLEVpZ2VudmFsdWVzR0YkSS1FaWdlbnZlY3RvcnNHRiRJJkVxdWFsR0YkSTJGb3J3YXJkU3Vic3RpdHV0ZUdGJEkuRnJvYmVuaXVzRm9ybUdGJEk0R2F1c3NpYW5FbGltaW5hdGlvbkdGJEkyR2VuZXJhdGVFcXVhdGlvbnNHRiRJL0dlbmVyYXRlTWF0cml4R0YkSShHZW5lcmljR0YkSTJHZXRSZXN1bHREYXRhVHlwZUdGJEkvR2V0UmVzdWx0U2hhcGVHRiRJNUdpdmVuc1JvdGF0aW9uTWF0cml4R0YkSSxHcmFtU2NobWlkdEdGJEktSGFua2VsTWF0cml4R0YkSSxIZXJtaXRlRm9ybUdGJEkzSGVybWl0aWFuVHJhbnNwb3NlR0YkSS9IZXNzZW5iZXJnRm9ybUdGJEkuSGlsYmVydE1hdHJpeEdGJEkySG91c2Vob2xkZXJNYXRyaXhHRiRJL0lkZW50aXR5TWF0cml4R0YkSTJJbnRlcnNlY3Rpb25CYXNpc0dGJEkrSXNEZWZpbml0ZUdGJEktSXNPcnRob2dvbmFsR0YkSSpJc1NpbWlsYXJHRiRJKklzVW5pdGFyeUdGJEkySm9yZGFuQmxvY2tNYXRyaXhHRiRJK0pvcmRhbkZvcm1HRiRJMUtyb25lY2tlclByb2R1Y3RHRiRJKExBX01haW5HRiRJMExVRGVjb21wb3NpdGlvbkdGJEktTGVhc3RTcXVhcmVzR0YkSSxMaW5lYXJTb2x2ZUdGJEkuTHlhcHVub3ZTb2x2ZUdGJEkkTWFwR0YkSSVNYXAyR0YkSSpNYXRyaXhBZGRHRiRJMk1hdHJpeEV4cG9uZW50aWFsR0YkSS9NYXRyaXhGdW5jdGlvbkdGJEkuTWF0cml4SW52ZXJzZUdGJEk1TWF0cml4TWF0cml4TXVsdGlwbHlHRiRJK01hdHJpeE5vcm1HRiRJLE1hdHJpeFBvd2VyR0YkSTVNYXRyaXhTY2FsYXJNdWx0aXBseUdGJEk1TWF0cml4VmVjdG9yTXVsdGlwbHlHRiRJMk1pbmltYWxQb2x5bm9taWFsR0YkSSZNaW5vckdGJEkoTW9kdWxhckdGJEkpTXVsdGlwbHlHRiRJLE5vVXNlclZhbHVlR0YkSSVOb3JtR0YkSSpOb3JtYWxpemVHRiRJKk51bGxTcGFjZUdGJEkzT3V0ZXJQcm9kdWN0TWF0cml4R0YkSSpQZXJtYW5lbnRHRiRJJlBpdm90R0YkSSpQb3BvdkZvcm1HRiRJMFFSRGVjb21wb3NpdGlvbkdGJEktUmFuZG9tTWF0cml4R0YkSS1SYW5kb21WZWN0b3JHRiRJJVJhbmtHRiRJNlJhdGlvbmFsQ2Fub25pY2FsRm9ybUdGJEk2UmVkdWNlZFJvd0VjaGVsb25Gb3JtR0YkSSRSb3dHRiRJLVJvd0RpbWVuc2lvbkdGJEktUm93T3BlcmF0aW9uR0YkSSlSb3dTcGFjZUdGJEktU2NhbGFyTWF0cml4R0YkSS9TY2FsYXJNdWx0aXBseUdGJEktU2NhbGFyVmVjdG9yR0YkSSpTY2h1ckZvcm1HRiRJL1Npbmd1bGFyVmFsdWVzR0YkSSpTbWl0aEZvcm1HRiRJOFN0cm9uZ2x5Q29ubmVjdGVkQmxvY2tzR0YkSSpTdWJNYXRyaXhHRiRJKlN1YlZlY3RvckdGJEkpU3VtQmFzaXNHRiRJMFN5bHZlc3Rlck1hdHJpeEdGJEkvU3lsdmVzdGVyU29sdmVHRiRJL1RvZXBsaXR6TWF0cml4R0YkSSZUcmFjZUdGJEkqVHJhbnNwb3NlR0YkSTBUcmlkaWFnb25hbEZvcm1HRiRJK1VuaXRWZWN0b3JHRiRJMlZhbmRlcm1vbmRlTWF0cml4R0YkSSpWZWN0b3JBZGRHRiRJLFZlY3RvckFuZ2xlR0YkSTVWZWN0b3JNYXRyaXhNdWx0aXBseUdGJEkrVmVjdG9yTm9ybUdGJEk1VmVjdG9yU2NhbGFyTXVsdGlwbHlHRiRJK1plcm9NYXRyaXhHRiRJK1plcm9WZWN0b3JHRiRJJFppcEdGJA==

C:=Matrix([[1,2,3,4],[4,5,6,0],[7,8,9,11]]);

LUknTWF0cml4RzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiMvSSQlaWRHRiciKikpZmhOIg==

D1:=Matrix([[1],[2],[0],[0]]);

LUknTWF0cml4RzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiMvSSQlaWRHRiciKldpaE4i

D1:=Transpose(Matrix([1,2,0,0]));

LUknTWF0cml4RzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiMvSSQlaWRHRiciKnNqaE4i

LA:=proc(text, A, b , k) local M,aux; M:=length(Alphabet); # check whether A is invertible aux:=StringToList(text); #write aux in blocks of k numbers. # Av+B #Write as list of numbers #List to String end;

Zio2JkkldGV4dEc2IkkiQUdGJUkiYkdGJUkia0dGJTYkSSJNR0YlSSRhdXhHRiVGJUYlQyQ+OCQtSSdsZW5ndGhHJSpwcm90ZWN0ZWRHNiNJKUFscGhhYmV0R0YlPjglLUktU3RyaW5nVG9MaXN0R0YlNiM5JEYlRiVGJQ==

Write a procedure that takes as input a list of integers and a positive integer n and returns these numbers organized in vectors of n coordinates (in the same order these numbers appear in the original list of numbers). Write the "inverse" of the previous procedure. Write a "string to vector" procedure that takes as input text and a positive integer n, and returns a list of vectors of size n corresponding to the symbols in the original text. Write the inverse of the previous procedure Linear algebra package Define and multiply matrices TTdSMApJNlJUQUJMRV9TQVZFLzEzNTYxNTk4OFgsJSlhbnl0aGluZ0c2IjYiW2dsISIlISEhIy0iJCIlIiIiIiIlIiIoIiIjIiImIiIpIiIkIiInIiIqRigiIiEiIzZGJg==TTdSMApJNlJUQUJMRV9TQVZFLzEzNTYxNjI0NFgsJSlhbnl0aGluZ0c2IjYiW2dsISIlISEhIyUiJSIiIiIiIiIjIiIhRilGJg==TTdSMApJNlJUQUJMRV9TQVZFLzEzNTYxNjM3MlgsJSlhbnl0aGluZ0c2IjYiW2dsISIlISEhIyUiJSIiIiIiIiIjIiIhRilGJg==