Question: Generating 9 X 9 Matrix Using Procedure

August 12 2014 moses 104

0


restart

D__s := 0.5e-1

NULL

f__s := 2.5*Unit('Hz')

f := 7.5*Unit('Hz')

D__1 := .8*D__s

D__2 := 0.87e-1

D__HH := `if`(f/Unit('Hz') < f__s/Unit('Hz'), D__1, D__2)

x__p := map(proc (z) options operator, arrow; z*Unit('ft') end proc, [-3.3, 0., 3.3, -3.3, 0., 3.3, -3.3, 0., 3.3])

y__p := map(proc (z) options operator, arrow; z*Unit('ft') end proc, [3.3, 3.3, 3.3, 0., 0., 0., -3.3, -3.3, -3.3])

n__pile := nops(x__p)

dex := proc (xpin, ypin, npilein) local i, j, fin, Sin; global x__p, y__p, n__pile; x__p := xpin; y__p := ypin; n__pile := npilein; for i to n__pile do for j to n__pile do fin := []; Sin[i, j] := sqrt((x__p[i]-x__p[j])^2+(y__p[i]-y__p[j])^2); fin := [op(fin), Sin[i, j]] end do end do end proc

NULL

NULL

Parse:-ConvertTo1D, "first argument to _Inert_ASSIGN must be assignable"

NULL

NULL

dex(x__p, y__p, n__pile)

`&xi;ex`(x__p, y__p, n__pile)

NULL

NULL


Download Test_modify.mw

Good Afternoon Community,

Would anybody please help me with the attached workshet. I have written a procedure with Maple to calculate the spacing between piles assumming any pile as a reference point, and also to calculate the angle between each pile from the same reference point, my procedure is not yielding any results. Please Help!

 

Regards

Moses

Please Wait...