Christopher2222

MaplePrimes Activity


These are answers submitted by Christopher2222

To hide equation labels just modify the color of the equation labels under styles to white.

Format -> Styles -> Equation label -> Modify -> color and change color to white.

For example, here is a way

plot(x^2, x = 0 .. 5, tickmarks = [[1 = `#munder(mn("one"),mo("___"))`, 2 = `#munder(mn("two"),mo("___"))`, 3 = `#munder(mn("three"),mo("_____"))`, 4 = `#munder(mn("four"),mo("____"))`], default])

Just a small tangent to your problem ... , if say you did re-organize the books to equalize the number of pages each person scanned, you could utilize the BinPacking1d proc by Carl Love created a while back.

BinPacking1d.mw

 

BinPacking1d(equalized # of pages to read per person, in this case 4500/3,[books available[pages,books]])

BinPacking1d(1500,[[100,1],[200,1],[300,1],[400,1],[500,1],[600,1],[700,1],[800,1],[900,1]])

                    

 

Your output is 2DOutput so go through the Format menu at styles and choose 2DOutput and Modify.

I recommend getting rid of Debian, not Maple but seriously, it's more of a debian font issue than a problem with maple.

@mapleatha 

Maybe something like

S1 := map(allvalues,sol);
remove(has, S1, I)

 

 

example of remove

a:=[1,2,3,6,7,8,9,12,24,45,56,23]

remove(`>`,a,10)
                               [1,2,3,6,7,8,9]

 

 

Maybe just use op?

op(f)[2]*``op(f)[1]

                

simplify(``sort(expand(f), s, ascending))

**edit added**  seems we can do away with the ,s,ascending part of the code and just write

simplify(``sort(expand(f)))
                                   

alternately using rhs will work as well

rhs(sol[1])
                         1

map(rhs,sol)
                     {1,2,3}

map(rhs,sol)[1]
                          1

 

 

 

 

 

Use listplot after performing the DCT from the SignalProcessing package.  Remember the DCT won't work with a stereo signal so use ToMono to convert your signal.

Seems to be the only way to 0 is to expand first

Generally sometime from March to May and only once has it been released in February.  It will be Maple 2018

Here's a start.  First the noisy clown jpg
clown-noise.zip
Saving the picture to the c:/ drive

Borrowing some help from _Maxim_ in another question.  But I haven't gone further than I have since I haven't figured out how to mask and continue, anyone?


 

 

with(ImageTools):

with(DiscreteTransforms):

a := Read("c:/clown-noise.jpg")

a := Vector(4, {(1) = ` 1..128 x 1..128 `*Array, (2) = `Data Type: `*float[8], (3) = `Storage: `*rectangular, (4) = `Order: `*C_order})

(1)

ImageTools:-Embed(a)

b := `~`[ln](Array(abs(DiscreteTransforms:-FourierTransform(a)), datatype = float[8], order = C_order));

b := Vector(4, {(1) = ` 1..128 x 1..128 `*Array, (2) = `Data Type: `*float[8], (3) = `Storage: `*rectangular, (4) = `Order: `*C_order})

(2)

c := FitIntensity(ArrayTools:-CircularShift(b, 128*(1/2), 128*(1/2))):

Embed(Scale(c, 2))``


 

Download NoisyClown.mw

3. None of the methods listed on the evalf/Int page can handle this integral:

evalf(Int(1/((1-1/4*t^2)*sqrt(1-t^2)*sqrt(1-4*t^2)), t = 0 .. 3/2));

Although it can be done by splitting the integration range into 0..1/2, 1/2..1, 1..3/2.

None of the methods listed on the evalf/Int page can handle this computation:

Splitting is not required, if you change Int to int there is an answer returned  1.587000405-1.261993177*I

1 2 3 4 5 6 7 Last Page 1 of 41