MaplePrimes Questions

Respected sir,

I have attached a file that contain integration . Sir I am unable to solve please give me some hint.

PLease note followings 

1. I want to get final expression , want to get the value of constant from boundary condition.

2.I want to get the final expression (.......+c1)

3.I will put boundary condition to determine the value of c1

Dear all;

I need a help to get a simple code about the null hypothesis test.

A drug is administrad to a population X of size 50 while a  placebo is given to a population Y of size 25.

Observed results of good bad and no effects are given in the following vectors for both population.

X=[ 20,11,19];

Y=[4,4,17];

test the null hypothesis H0: population independent of treatment versus the one tailed alternative that they are dependent by computing the theoretical contingency table with entries T[i,j] where i=1,2

for the two rows and j=1,2,3 for the three columns. At what p-value can we reject H0.

Many thanks

There is a simulation of a T handle in space done in matlab https://rotations.berkeley.edu/a-tumbling-t-handle-in-space/

Would like to see someone do this in Maple. More specifically how the Matlab code would look like translated to Maple

restart;
sign(-v1+a);
sign(-V1+a);

my respective outputs are

1
-1

I cannot understand what is the difference between using lowercase and uppercase variable. Could Someone Explain me please.

I have to Two Lists with Equal size. Each element in one List is an variable and Each element in second List is an Value of the variable corresponds to First List.

Now when Ever I call a variable I need the script to read its value and Compute.

For Example:

List1 := [v1,v2,v3,v4];
List2 := [a*b/c, a/c,a*b-2,d];

computation := v1*diff(expression,x)+v3*diff(expression,y)+ v3*v4;

but I need the script to read it as

requiredComputation :=(a*b/c)*diff(expression,x)+(a*b-2)*diff(expression,y)+ a*b-2*d;

I used to do this kind of computation in matlab using containers and map. Is there any thing similar??

I was trying some calculations for a solar installation.

4.9kW system. 3.5 h sun/day.  $0.27/kWh

restart:
with(Units:-Standard):
                     "maple init loaded..."
4.9*Unit(kW)*3.5*Unit(h/day)

714.583333333333*Unit('W')

but I want it to output 17.15 kWh/day

I looked up previous questions, and got this rather convoluted solution:

restart: 
Units[AddSystem]( NewSI, Units[GetSystem](SI), kWh/day );
 Units[UseSystem]( NewSI ); 
combine( 4.9*Unit(kW)*3.5*Unit(h/day), units ); 


17.15*Unit('kWh'/'d')

Hi. I hope this question is not a duplicate of my previous question. Fundiff function results in dirac terms in an equation. Are there commands that simply differentiates a term that is a function of (t) in an equation without involving diracs?

Can we change the color of the units measure?

ie 5 m (5 meters - where m is default black) can the m be changed to a different color for all unit measure entries?

MY CODE:
 

with(Physics);
Setup(mathematicalnotation = true);
Setup(Coordinatesystem = (X = [x, y, z, t]), metric = 4*dx*dt-dy^2-dz^2+4*u*(dt^2));
    * Partial match of  'Coordinatesystem' against keyword 

       'coordinatesystems'
    Systems of spacetime Coordinates are: (Xequals(x,y,z,t))
[coordinatesystems = {X}, 

  metric = {(1, 4) = 2, (2, 2) = -1, (3, 3) = -1, (4, 4) = 4 u}]
g_[];      (here g is diplayed in matrix form)

Weyl[alpha, beta, mu, nu, nonzero];
            Physics:-Weyl[alpha, beta, mu, nu] = {}

So basically i'm trying to find the nonzero components of the weyl tensor which returns the empty set, i.e the weyl tensor apparently equals zero but I know this is not the case, can anyone see if I have input something wrong? Thanks in advance

g_[] in matrix form is 
0 0 0 2
0 -1 0 0
0 0 -1 0
2 0 0 4u

UPDATE: u is a function of all varibles and I have not considered this which might be causing the problem


I trying to get a proc to work. In the 1st half of the document, I derive four sections for a pedal curve and plot them fine. In the second I try doing it with a procedure called Pedal. Am having problems. I think it might be something to do with the for.. do loop. 

restart

NULLNULL

Typesetting:-mrow(Typesetting:-mi("Trunc", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("≔", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("proc", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("F", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("∷", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("procedure", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("`+`", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal", open = "{", close = "}"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("odr", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("∷", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("posint", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("≔", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("2", font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("v", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("∷", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("list", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("name", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo("≔", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("x", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("y", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal", open = "[", close = "]")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mi(""), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("description", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-ms(" Truncates an algebraic equation to required degree"), Typesetting:-mo(";", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo("local", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("f", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("≔", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("`if`", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("F", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("∷", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("procedure", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("F", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("v", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("")), font_style_name = "2D Input", mathvariant = "normal", open = "[", close = "]")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("F", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo(";", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mi("print", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("F", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo(";", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("if", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("not", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("f", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("∷", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("`+`", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("then", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("error", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-ms("Can't truncate 1-term expression"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("else", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("select", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("q", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo("→", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("degree", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("q", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("v", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("≤", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("odr", italic = "true", font_style_name = "2D Input", mathvariant = "italic"), Typesetting:-mo(",", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("f", italic = "true", font_style_name = "2D Input", mathvariant = "italic")), font_style_name = "2D Input", mathvariant = "normal"), Typesetting:-mi(""), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("fi", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("end", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("proc", bold = "true", font_style_name = "2D Input", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(":", font_style_name = "2D Input", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"))

NULLNULLNULL

NULL

a := 3; b := -1; c := -1

C := (x^2+y^2+12*x+9)^2-4*(2*x+3)^3

(x^2+y^2+12*x+9)^2-4*(2*x+3)^3

(1)

p21 := plots:-implicitplot(C, x = -3 .. 3, y = -5 .. 5, colour = "Salmon", gridrefine = 2, size = [300, 300])

 

sol1 := [solve(C, y)]

[(-x^2-12*x-9+2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), -(-x^2-12*x-9+2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), (-x^2-12*x-9-2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), -(-x^2-12*x-9-2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2)]

(2)

NULL

f1 := expand(eval(C, [x = X+r, y = Y+s]))

X^4+4*X^3*r+2*X^2*Y^2+4*X^2*Y*s+6*X^2*r^2+2*X^2*s^2+4*X*Y^2*r+8*X*Y*r*s+4*X*r^3+4*X*r*s^2+Y^4+4*Y^3*s+2*Y^2*r^2+6*Y^2*s^2+4*Y*r^2*s+4*Y*s^3+r^4+2*r^2*s^2+s^4-8*X^3-24*X^2*r+24*X*Y^2+48*X*Y*s-24*X*r^2+24*X*s^2+24*Y^2*r+48*Y*r*s-8*r^3+24*r*s^2+18*X^2+36*X*r+18*Y^2+36*Y*s+18*r^2+18*s^2-27

(3)

ltg1 := simplify(expand(eval(Trunc(f1, 1, [Y, X]), [X = x-r, Y = y-s])))

-3*r^4+(4*x+16)*r^3+(-6*s^2+4*s*y-24*x-18)*r^2+((4*x-48)*s^2+48*s*y+36*x)*r-27-3*s^4+4*s^3*y+(24*x-18)*s^2+36*s*y

(4)

NULLThis*section*works*out*the*pedal*curve

This*section*works*out*the*pedal*curve

(5)

xp1 := 1; yp1 := 2; lprp1 := -coeff(ltg1, y)*x+coeff(ltg1, x)*y+K1; for i to nops(sol1) do s := eval(sol1[i], x = r); print("s  ", s); K1 := solve(eval(lprp1, [x = xp1, y = yp1]), K1); print("K1  ", K1); sol2 := solve([ltg1, lprp1], [x, y]); Pedal || i := [rhs(sol2[1, 1]), rhs(sol2[1, 2])]; p9 || i := plot([op(Pedal || i), r = -20 .. 20], colour = "MediumSeaGreen"); unassign('K1', 'sol2') end do

"K1  ", -4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(3/2)-4*r^2*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+16*(8*r^3+36*r^2+54*r+27)^(1/2)*r-48*r*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+192*r^2+96*(8*r^3+36*r^2+54*r+27)^(1/2)-36*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+576*r+432

(6)

seq(simplify(Pedal || i), i = 1 .. nops(sol1))

[((((2*r+3)^3)^(1/2)+6*r+9)*(-r^2-12*r-9+2*((2*r+3)^3)^(1/2))^(1/2)-2*(r-3)*(r^2+(5/2)*r-((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18), ((-2*r^2-3*r-((2*r+3)^3)^(1/2))*(-r^2-12*r-9+2*((2*r+3)^3)^(1/2))^(1/2)+6*(r-3)*(r-(1/6)*((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18)], [((-((2*r+3)^3)^(1/2)-6*r-9)*(-r^2-12*r-9+2*((2*r+3)^3)^(1/2))^(1/2)-2*(r-3)*(r^2+(5/2)*r-((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18), ((2*r^2+((2*r+3)^3)^(1/2)+3*r)*(-r^2-12*r-9+2*((2*r+3)^3)^(1/2))^(1/2)+6*(r-3)*(r-(1/6)*((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18)], [((6*r-((2*r+3)^3)^(1/2)+9)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)-2*(r-3)*(r^2+(5/2)*r+((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18), ((-2*r^2+((2*r+3)^3)^(1/2)-3*r)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+6*(r-3)*(r+(1/6)*((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18)], [((((2*r+3)^3)^(1/2)-6*r-9)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)-2*(r-3)*(r^2+(5/2)*r+((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18), ((2*r^2-((2*r+3)^3)^(1/2)+3*r)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+6*(r-3)*(r+(1/6)*((2*r+3)^3)^(1/2)+3/2))/(4*r^2-6*r-18)]

(7)

plots:-display(p21, seq(p9 || i, i = 1 .. nops(sol1)), size = [600, 600], scaling = constrained, caption = " Curve and it's Pedal curve")

 

This I can't get to work. All 4 sections of the pedal curve are the same and should not be.

Parse:-ConvertTo1D, "`%1` is not a module or member", RonanRoutines

Pedal2 := Pedal(C, xp1, yp1)

"K||i", -8*r^3+(-4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+48)*r^2-8*(-(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)-3)^2*r-4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(3/2)+48*r^2+576*r+432+96*(8*r^3+36*r^2+54*r+27)^(1/2)-36*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)

(8)

seq(simplify(Pedal2[i]), i = 1 .. nops(sol1))

[((4*r^2+6*((2*r+3)^3)^(1/2)+30*r+36)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(-r^2-34*r-69)*((2*r+3)^3)^(1/2)-26*r^3-243*r^2-540*r-351)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162), (((r+9)*((2*r+3)^3)^(1/2)+14*r^2+51*r+45)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(12*r+72)*((2*r+3)^3)^(1/2)+4*r^3+126*r^2+432*r+378)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162)], [((4*r^2+6*((2*r+3)^3)^(1/2)+30*r+36)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(-r^2-34*r-69)*((2*r+3)^3)^(1/2)-26*r^3-243*r^2-540*r-351)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162), (((r+9)*((2*r+3)^3)^(1/2)+14*r^2+51*r+45)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(12*r+72)*((2*r+3)^3)^(1/2)+4*r^3+126*r^2+432*r+378)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162)], [((4*r^2+6*((2*r+3)^3)^(1/2)+30*r+36)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(-r^2-34*r-69)*((2*r+3)^3)^(1/2)-26*r^3-243*r^2-540*r-351)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162), (((r+9)*((2*r+3)^3)^(1/2)+14*r^2+51*r+45)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(12*r+72)*((2*r+3)^3)^(1/2)+4*r^3+126*r^2+432*r+378)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162)], [((4*r^2+6*((2*r+3)^3)^(1/2)+30*r+36)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(-r^2-34*r-69)*((2*r+3)^3)^(1/2)-26*r^3-243*r^2-540*r-351)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162), (((r+9)*((2*r+3)^3)^(1/2)+14*r^2+51*r+45)*(-r^2-2*((2*r+3)^3)^(1/2)-12*r-9)^(1/2)+(12*r+72)*((2*r+3)^3)^(1/2)+4*r^3+126*r^2+432*r+378)/((2*r+30)*((2*r+3)^3)^(1/2)+36*r^2+162*r+162)]

(9)

for i to nops(sol1) do p9 || i := plot([op(Pedal2[i]), r = -20 .. 20], colour = "MediumSeaGreen") end do

 

``

NULL

NULL

``


 

Download Proc_for_Pedal_not_working.mw

Hi all


I have the following ordinary differential equation, where all the parameter used are constant ( A,B,C,D,E,F,G,H).

Is there any technique gives a solution
diff(y(x), x$2)+(A/x+B/x^2+C)*(diff(y(x), x))+D*(diff(y(x), x))^2/x+E*(diff(y(x), x))^3+F/x+G/x^2+H/x^3 = 0;

 

 thanks for your help

Dear all;

I hope an idea to solve the following problem.

P(n,t): probability at time t

Lambda and mu : two given parameters ( can be fixed ), and we assure mu greater then lambda

 t : time parameter ( we can say that 0<= t <=T , and T fixed ) 

 for n an integrer  greater then 1 we have the following equation

eq := diff(P(n, t), t) = -(lambda+mu)*P(n, t)+lambda*P(n-1, t)+mu*P(n+1, t);
 

for n=0, we have

ics := diff(P(0, t), t) = -lambda*P(0, t)+mu*P(1, t);

How can we compute P(n,t) ,

is there an exact solution or a numerical method to get the value of P(n,t)

Then we plot( P(n,t),t=0..100) ;

 

Many thinks

 

 

 

 

 

Can somebody please help me with this assignment?
Struggling a bit with the Euler-method from task d) and further.


 

rand1 := rand(2 .. 9):

4

(1)

NULL

(a*sqrt(a*a^b))^(1/c)

16^(1/4)*2^(1/8)

(2)

"example a:=2;b:=6;c:=4; result 2 D output is ((2*sqrt(2*2^(6)))^(1/(4)))"

````

``

NULL

but*result*is*16^(1/4)*2^(1/8)

``

assume(x > 0)

sqrt(x^3*(x^(3/4)))

(x^(15/4))^(1/2)

(3)

``(15/8)*How*determine*x*exponent*is

``


 

Download luythua.mw

 

From the screenshot we see that Maple has correctly replaced a in the defintion of s. But it has not incorported v[B]. I was a SMath (free from internet) user and this was a simple operation.

Thanks for any advice.


SymbolicEval.mw

First 760 761 762 763 764 765 766 Last Page 762 of 2426