Christopher2222

5785 Reputation

24 Badges

16 years, 347 days

MaplePrimes Activity


These are answers submitted by Christopher2222

This issue is most likely a windows 7 issue.  It is not experienced in Maple 16.02 32bit Windows XP

You could use student[intercept] or intersection from the geometry package.

> assume(t::real);
> z := t = conjugate(a)*b+conjugate(c)*d;

> a := solve(z, a);

                                     ________
                                           _  
                                     -t~ + c d
                               a := ---------
                                        b    
> simplify(expand(expand(a)));

                                            _
                                   -t~ + c d
                                 - --------
                                      _    
                                      b    

> assume(t::real);
> z := t = conjugate(a)*b+conjugate(c)*d;
> a := solve(z, a);

                                     ________
                                             _  
                                     -t~ + c d
                               a := ---------
                                        b    
> simplify(expand(expand(a)));

                                              _
                                   -t~ + c d
                                 - --------
                                      _    
                                      b    

You could try

a:=display({P,f(C)})

animate(display,[a,orientation=[A,10]],A=0..360);

 

Yes it appears if one leaves out the multiplication sign in front of a bracket with a variable, it does not fully integrate.

In this case where he mentions it works

int(int(int(-(4-6*(x+z)+12*x*z)*y*(y-z)^3, x = 0 .. 1), y = 0 .. 1), z = 0 .. 1);

                                                       
If we take out the multiplication after the first y, it causes an unfinished integration when it tries to integrate y.

int(int(int(-(4-6*(x+z)+12*x*z)*y(y-z)^3, x = 0 .. 1), y = 0 .. 1), z = 0 .. 1);
                              

i think it is a bit early to say there is no way to increase the quality of the plots.  in mathematica there seems to be a lot of behind the scenes operations to enure plots please the user.  with, it seems, a reduction in accessibilty or experimentation with the created structure.

@_zgj Mathematica uses antialiasing -> true by default.  Set antialiasing->false and I think the plots will compare the same.

Hm, I don't think the equations are quite right. 

int(exp(sqrt(x^2+5)))

Has no symbolic answer.  Numerically I wouldn't know how to approximate it either.  I think you are stuck.

I removed one bracket and got this but until we determine where the missing bracket is no one will go further.

 

Your other line should also be rewritten to reflect the maple language

hj=int(int(int(int(prod2,x=0..a),y=0..b),alp=d1..d2),bet=k1..k2);


Sure, but there is no code translator.  You'll need to colaborate with someone who knows both systems.

What is the reason to translate Maple to Reduce?

Here it is as a procedure


restart; gc()

StemLeafPlot := proc (a) local i, j, stemlist, leaflist; stemlist := [op({op(map(trunc, a))})]; seq(assign(leaflist[i] = []), i = 1 .. nops(stemlist)); for j to nops(stemlist) do for i to nops(a) do if floor(a[i]) = stemlist[j] then leaflist[j] := [op(leaflist[j]), trunc(10*a[i]-10*floor(a[i]))] end if end do end do; for i to nops(stemlist) do printf("%-5a%-a\n", stemlist[i], parse(cat(seq(sprintf("%a", i), i = sort(leaflist[i]))))) end do end proc:

b := [130.8, 129.9, 131.5, 131.2, 129.5, 132.2, 133.7, 127.8, 131.5, 132.7, 134.8, 131.7, 133.9, 129.8, 131.4, 132.8, 132.7, 128.8, 130.6, 131.1, 133.8, 130.5, 131.4, 131.3, 129.5]

[130.8, 129.9, 131.5, 131.2, 129.5, 132.2, 133.7, 127.8, 131.5, 132.7, 134.8, 131.7, 133.9, 129.8, 131.4, 132.8, 132.7, 128.8, 130.6, 131.1, 133.8, 130.5, 131.4, 131.3, 129.5]

(1)

StemLeafPlot(b)

127  8
128  8
129  5589
130  568
131  12344557
132  2778
133  789
134  8

 

``

b := [seq((1/10)*(rand(1270 .. 1340))(), i = 1 .. 30)]:

StemLeafPlot(b)

127  578
128  3567
129  46
130  378
131  2334569
132  15889
133  689
134  0

 

````


Download Stem_leaf_plot_proce.mw

How about this?  Maybe someone can format the output to look better.

b := [130.8, 129.9, 131.5, 131.2, 129.5, 132.2, 133.7, 127.8, 131.5, 132.7, 134.8, 131.7, 133.9, 129.8, 131.4, 132.8, 132.7, 128.8, 130.6, 131.1, 133.8, 130.5, 131.4, 131.3, 129.5]

[130.8, 129.9, 131.5, 131.2, 129.5, 132.2, 133.7, 127.8, 131.5, 132.7, 134.8, 131.7, 133.9, 129.8, 131.4, 132.8, 132.7, 128.8, 130.6, 131.1, 133.8, 130.5, 131.4, 131.3, 129.5]

(1)

stems := map(trunc, b)

[130, 129, 131, 131, 129, 132, 133, 127, 131, 132, 134, 131, 133, 129, 131, 132, 132, 128, 130, 131, 133, 130, 131, 131, 129]

(2)

stemslist := [op({op(stems)})]

[127, 128, 129, 130, 131, 132, 133, 134]

(3)

a := 'a':

``

``

for i to nops(stemslist) do print(stemslist[i], op(sort(a[i]))) end do

                                   127, 8
                                   128, 8
                               129, 5, 5, 8, 9
                                130, 5, 6, 8
                         131, 1, 2, 3, 4, 4, 5, 5, 7
                               132, 2, 7, 7, 8
                                133, 7, 8, 9
                                   134, 8

(4)

``


Download stem_leaf_plot.mw

The general guidance when using two commands that are the same from different packages which have been loaded is to use the long form command as you have done LinearAlgebra[Rank].  And as Carl has mentioned using the uses statement inside the procedure when calling out to commands inside packages.  Using with inside a procedure adds a lot of overhead which is generally not a good idea, not wrong, but just clunky programming. 

First 17 18 19 20 21 22 23 Last Page 19 of 47