gkokovidis

2370 Reputation

13 Badges

20 years, 291 days
Draeger Medical Systems, Inc.

 

 

Regards,
Georgios Kokovidis
Dräger Medical

MaplePrimes Activity


These are answers submitted by gkokovidis

For the expression simplification part of your problem statement:

restart:
eq1:=1+5*ep+4*ep^2;
                                       2
                        1 + 5 ep + 4 ep
algsubs(ep^2=0,eq1);
                            1 + 5 ep
algsubs(ep*ep=0,eq1);
                            1 + 5 ep


restart:
macro(ep^2=0);
                                2
                              ep
eq1:=1+5*ep+4*ep^2;
                            1 + 5 ep
eq2:=1+5*ep+4*ep*ep;
                            1 + 5 ep

Download algsubs.mw

Regards,

Georgios Kokovidis

Dräger Medical

Edit - Find/Replace... should do it.  Leave the replace fields blank.

Ctrl+F will get you there quickly.

 

Regards,

Georgios Kokovidis

Dräger Medical

This command will kill the sndrec32 player on an XP system from a Maple session.  See if you can incorporate it into your timing loop.

system[launch]("taskkill /IM sndrec32.exe");

 

Regards,

Georgios Kokovidis

Dräger Medical

See ?plottools[transform] for more help on this.  With your plots, it would look like this.

restart:with(plots):with(plottools):
s1:=implicitplot3d(z=x*y, x=-8..8,y=-8..8,z=-8..8,axes=normal,style=line):
s2:=implicitplot(x^2+y^2=1, x=-8..8,y=-8..8,axes=normal,thickness=4):
f := transform(proc (x, y) options operator, arrow; [x, y, 0] end proc):
display({s1,f(s2)});

Download 2D3D.mw

Regards,

Georgios Kokovidis

Dräger Medical

I do not use the symbols palette, but you could type them in from the keyboard very easily.

Pi is Pi, with a capital P, and e is exp(1).  ?Pi and ?exp for more help on this.  The following is from the help page for exp:

You can enter the command exp using either the 1-D or 2-D calling sequence. For example, exp(-1) is equivalent to exp(-1).

Note that the 2-D calling sequence can only be entered by using the palettes or command completion.

Regards,

Georgios Kokovidis

Dräger Medical

See the help page for ?interface.

restart:

interface(imaginaryunit=J);

sqrt(-1);

Download J.mw

Regards,

Georgios Kokovidis

Dräger Medical

If you make the assumption about r before the calculation, then the solution comes out correct.

 

restart:

assume(r::posint);

q := exp(-x1*log(x1)-x2*log(x2));

(1)

evalf(subs(r = 1, int(int(Dirac(x1+x2-r)*q, x1 = 0 .. 1), x2 = 0 .. 1)));

                         (2)

 

 

Download r_posint_int_Int.mw

 

Regards,

Georgios Kokovidis

Dräger Medical

Int is inert, and the evaluation happens after the substitution.  int evaluates symbolically, unless you use the 'numeric' option.  See ?int/details for more help.

 

restart:

q := exp(-x1*log(x1)-x2*log(x2));

(1)

evalf(Int(Int(Dirac(x1+x2-1)*q, x1 = 0 .. 1), x2 = 0 .. 1));

(2)

evalf(int(int(Dirac(x1+x2-1)*q, x1 = 0 .. 1), x2 = 0 .. 1));

(3)

 

 

restart:

q := exp(-x1*log(x1)-x2*log(x2));

(4)

evalf(subs(r = 1, Int(Int(Dirac(x1+x2-r)*q, x1 = 0 .. 1), x2 = 0 .. 1)));

(5)

evalf(subs(r = 1, int(int(Dirac(x1+x2-r)*q, x1 = 0 .. 1), x2 = 0 .. 1)));

(6)

evalf(subs(r = 1, int(int(Dirac(x1+x2-r)*q, x1 = 0 .. 1), x2 = 0 .. 1,'numeric')));

(7)

 

 

restart;

q := exp(-x1*log(x1)-x2*log(x2));

(8)

int(Dirac(x1+x2-r)*q, x1 = 0 .. 1);

(9)

int(%,x2=0..1);

(10)

 

restart;

q := exp(-x1*log(x1)-x2*log(x2));

(11)

int(Dirac(x1+x2-r)*q, x1 = 0 .. 1);

(12)

subs(r = 1,%);

(13)

int(%,x2=0..1);

(14)

evalf(%);

(15)

 

 

Download int_Int.mw

 

Regards,

Georgios Kokovidis

Dräger Medical

Look at ?LinearAlgebra[Equal] and the examples contained in the help to see if it meets your needs.

 

Regards,

Georgios Kokovidis

Dräger Medical

 

restart:

 

fsolve({ 4*x1 + 7*x2 - x3 + 3*x4 = 11,-2*x1 + 2*x2 - 6*x3 + x4 = 4,x1 - 3*x2 + 4*x3 - x4 = -3,3*x1 - 5*x2 - 7*x3 + 5*x4 = 8 },{x1=0..10,x2=0..10,x3=-10..10,x4=-10..10});

(1)

 

 

Download fsolve_range.mw

 

Regards,

Georgios Kokovidis

Dräger Medical

Maple student version.  For the textbook above, there is a Maple specific supplement that might be of use.  The ISBN number is 0070541280.

 

Regards,

Georgios Kokovidis

Dräger Medical

The problem could be your use of "I".  In Maple, this is the square root of -1.  Try replacing it with another variable, like Ix, and see if  your problem goes away.

Regards,

Georgios Kokovidis

Dräger Medical

You are correct.  According to the help page, the solve command has not been redefined in the "Standard Units" environment to accept input with units. 

Regards,

Georgios Kokovidis

Dräger Medical

Hello Erik.  See example below using your values for s and v.

restart:

with(Units[Standard]):

s:=2*Unit('km');v:=3.85*Unit('m/s');

 

(1)

s/v;

(2)

restart:

s:=2*Unit('km');v:=3.85*Unit('m/s');

 

(3)

s/v;

(4)

simplify(%);

(5)

 

Download units.mw

Regards,

Georgios Kokovidis

Dräger Medical

See Maple online help page here for an explanation.

 

Regards,

Georgios Kokovidis

Dräger Medical

First 16 17 18 19 20 21 22 Last Page 18 of 75