[Release] Matrix Functions

[Yamato]

Hello

I was recommended to release this functions, they are part of a math gsc stuff I made sometime ago, I havent made all the stuff I wanted about these, but I got tired and stopped the project, if anyone wants to work with these just go on or if you need help you can ask me

Code:

CreateMatrix( matrix )
{
    files = StrTok( matrix, ";" );
    m = [];
    wait ( 0.05 );
    for( i = 0; i < files.size; i ++ )
    {
        columns = StrTok( files[i], "," );
        for( j = 0; j < columns.size; j ++ )
            m[i][j] = int( columns[j] );
    }
    return m;
}

getMatrixRows( matrix )
{
    rows = 0;
    for( j = 0; j <= 1000; j ++ )
    {
        if( ! isDefined( matrix[j][0] ) )
        {
            rows = ( j );
            break;
        }
    }
    return rows;
}

getMatrixColumns( matrix )
{
    columns = 0;
    for( i = 0; i <= 1000; i ++ )
    {
        if( ! isDefined( matrix[0][i] ) )
        {
            columns = ( i );
            break;
        }
    }
    return columns;
}

isSquaredMatrix( matrix )
{
    if( getMatrixRows( matrix ) == getMatrixColumns( matrix ) )
        return true;
    return false;
}

getMatrixOrder( matrix )
{
    if( isSquaredMatrix( matrix ) )
        return ( getMatrixRows( matrix ) );
}

CreateOnes( m, n )
{
    ones = [];
    wait ( 0.05 );
    for( i = 0; i < m; i ++ )
        for( j = 0; j < n; j ++ )
            ones[i][j] = 1;
    return ones;
}

TransposeMatrix( matrix )
{
    string = "";
    rows = getMatrixRows( matrix );
    columns = getMatrixColumns( matrix );
    wait ( 0.1 );
    for( u = 0; u < rows; u ++ )
    {
        for( k = 0; k < columns; k ++ )
        {
            string += matrix[k][u];
            string += ",";
        }
        string = FixString( string );
    }
    wait ( 0.05 );
    newstring = "";
    for( w = 0; w < ( string.size - 1 ); w ++ )
        newstring += string[w];
    return ( CreateMatrix( newstring ) );
}

FixString( string )
{
    new = "";
    for( i = 0; i < ( string.size - 1 ); i ++ )
        new += string[i];
    new += ";";
    return new;
}

MultiplyMatrixes( matrix1, matrix2 )
{
    newm = [];
    sum = 0;
    m = getMatrixRows( matrix1 );
    n = getMatrixColumns( matrix1 );
    p = getMatrixRows( matrix2 );
    q = getMatrixColumns( matrix2 );
    if( n != p )
        return;
    wait ( 0.1 );
    for ( i = 0 ; i < m ; i ++ )
    {
        for ( j = 0 ; j < q ; j ++ )
        {
            for ( k = 0 ; k < p ; k++ )
                sum += ( matrix1[i][k] * matrix2[k][j] );
            newm[i][j] = sum;
            sum = 0;
        }
    }
    return newm;
}

AddMatrixes( matrix1, matrix2 )
{    
    m = getMatrixRows( matrix1 );
    n = getMatrixColumns( matrix1 );
    p = getMatrixRows( matrix2 );
    q = getMatrixColumns( matrix2 );
    newm = [];
    if( m != p || n != q )
        return;
    wait (  0.05 );
    for( i = 0; i < m; i ++ )
        for( j = 0; j < n; j ++ )
            newm[i][j] = ( matrix1[i][j] + matrix2[i][j] );
    return newm;
}

Determinant( matrix )
{
    if( ! isSquaredMatrix( matrix ) )
        return;
    n = getMatrixOrder( matrix );
    m1 = [];
    m2 = [];
    det = 0;
    if( n == 1 )
        return matrix[0][0];
    wait ( 0.05 );
    for( i = 0; i < n; i ++ )
    {
        if( i % 2 == 0 )
        {
            for( y = 0; y < n; y ++ )
                for( x = 0; x < n; x ++ )
                    if(x<i)
                        m1[x][y] = matrix[x][y+1];
                    else
                        m1[x][y] = matrix[x+1][y+1];
            det = det + matrix[i][0] * Determinant( m1, n - 1 );
        }
        else
        {
            for( y = 0; y < n; y ++ )
                for( x = 0; x < n; x ++ )
                    if(x<i)
                        m2[x][y] = matrix[x][y+1];
                    else
                        m2[x][y] = matrix[x+1][y+1];
            det = det - matrix[i][0] * Determinant( m2, n - 1 );
        }
    }
    return det;
}

Examples of how to create a matrix and do some operations with them (I recommend to add a small wait after using each command):

Code:

matrixA = CreateMatrix( "2,3,1;1,4,0;2,2,3" );
matrixB = CreateMatrix( "1,1,2;1,1,1;2,2,1" );
detA = Determinant( matrixA );
TransA = TransposeMatrix( matrixA );
multiplication = MultiplyMatrixes( matrixA, matrixB );
add = AddMatrixes( matrixA, matrixB );

Thanks, @Yamato

[Rendflex]

So much math!

Thanks, @Rendflex