Dennis J. Darland
Practice in Programming
ASUS Development Computer - Ubuntu 14.04
Starting  Mon May 21 20:48:50 CDT 2018
Finished  Mon May 21 20:48:50 CDT 2018
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(LinearAlgebra);
[&x, Add, Adjoint, BackwardSubstitute, BandMatrix, Basis, BezoutMatrix,

    BidiagonalForm, BilinearForm, CARE, CharacteristicMatrix,

    CharacteristicPolynomial, Column, ColumnDimension, ColumnOperation,

    ColumnSpace, CompanionMatrix, CompressedSparseForm, ConditionNumber,

    ConstantMatrix, ConstantVector, Copy, CreatePermutation, CrossProduct, DARE,

    DeleteColumn, DeleteRow, Determinant, Diagonal, DiagonalMatrix, Dimension,

    Dimensions, DotProduct, EigenConditionNumbers, Eigenvalues, Eigenvectors,

    Equal, ForwardSubstitute, FrobeniusForm, FromCompressedSparseForm,

    FromSplitForm, GaussianElimination, GenerateEquations, GenerateMatrix,

    Generic, GetResultDataType, GetResultShape, GivensRotationMatrix,

    GramSchmidt, HankelMatrix, HermiteForm, HermitianTranspose, HessenbergForm,

    HilbertMatrix, HouseholderMatrix, IdentityMatrix, IntersectionBasis,

    IsDefinite, IsOrthogonal, IsSimilar, IsUnitary, JordanBlockMatrix,

    JordanForm, KroneckerProduct, LA_Main, LUDecomposition, LeastSquares,

    LinearSolve, LyapunovSolve, Map, Map2, MatrixAdd, MatrixExponential,

    MatrixFunction, MatrixInverse, MatrixMatrixMultiply, MatrixNorm,

    MatrixPower, MatrixScalarMultiply, MatrixVectorMultiply, MinimalPolynomial,

    Minor, Modular, Multiply, NoUserValue, Norm, Normalize, NullSpace,

    OuterProductMatrix, Permanent, Pivot, PopovForm, ProjectionMatrix,

    QRDecomposition, RandomMatrix, RandomVector, Rank, RationalCanonicalForm,

    ReducedRowEchelonForm, Row, RowDimension, RowOperation, RowSpace,

    ScalarMatrix, ScalarMultiply, ScalarVector, SchurForm, SingularValues,

    SmithForm, SplitForm, StronglyConnectedBlocks, SubMatrix, SubVector,

    SumBasis, SylvesterMatrix, SylvesterSolve, ToeplitzMatrix, Trace, Transpose,

    TridiagonalForm, UnitVector, VandermondeMatrix, VectorAdd, VectorAngle,

    VectorMatrixMultiply, VectorNorm, VectorScalarMultiply, ZeroMatrix,

    ZeroVector, Zip]

> 
# define main function
> main := proc()
> 
>     print("Maple output");
>     print("Chapter 4");
>     prob03();
> end;
  main := proc() print("Maple output"); print("Chapter 4"); prob03() end proc

> 
> prob03  := proc()
> local x, y, t, eq1, eq2, eq3;
> 
>     print("Problem 3");
>     # point in time when horizontal & vertical  distances equal
>     eq1 := 5.0 * t = 16.0 * t * t;  
>     eq2 := t > 0; # time greater than zero 
>     eq3 := x = ceil(5.0 * 12.0 / 8.0 * t); # would hit next step - so take ceil
> 
>     solve([eq1,eq2,eq3] , [t, x]);
> 
> 
> end;
prob03 := proc()
local x, y, t, eq1, eq2, eq3;
    print("Problem 3");
    eq1 := 5.0*t = 16.0*t*t;
    eq2 := 0 < t;
    eq3 := x = ceil(5.0*(12.0)*t/8.0);
    solve([eq1, eq2, eq3], [t, x])
end proc

> 
# call main
> main();
                                 "Maple output"

                                  "Chapter 4"

                                  "Problem 3"

                          [[t = 0.3125000000, x = 3.]]

> quit
memory used=2.5MB, alloc=8.3MB, time=0.07