Advanced Search

gkokovidis

2370 Reputation

13 Badges

20 years, 287 days
Draeger Medical Systems, Inc.
Contact gkokovidis

 

 

Regards,
Georgios Kokovidis
Dräger Medical

MaplePrimes Activity


These are answers submitted by gkokovidis

Real roots only...

gkokovidis 2370
January 17 2014
0 1

Look at the help page for the ?RealDomain package.

See link here.

Regards,

Georgios

Assign D as a letter...

gkokovidis 2370
January 08 2014
0 2

Not a good idea to unprotect protected names, but...

See help page here for an option.

restart:
local Lett:=D;
Lett;
            D

Regards,

Georgios

what's wrong with this code?...

gkokovidis 2370
December 15 2013
0 0

This code is written in "R".  Are you sure you are posting your question in the right forum?  You might try one of the many "R" user groups available online.

 

Regards,

Georgios Kokovidis

Dräger Medical

 

parametric diff...

gkokovidis 2370
November 23 2013
0 1

See example here.  Is this what you are looking for?  If not, can you post an example problem.

Regards,

Georgios

Mirror a function about y axis...

gkokovidis 2370
November 20 2013
2 2

To mirror a function about an axis, you can use the ?reflect command, which is part of the plottools package.

Regards,

Georgios

maple plot warning...

gkokovidis 2370
November 18 2013
0 1

Try evaluating before using the plot command.

eq:=eval ((6), {n=10, m=1});

plot(eq,k=0.1..0.2);

 

Regards,

Georgios

Warning, solutions may have been lost .....

gkokovidis 2370
October 25 2013
2 1
> 

restart:
> 

eq1:=((alpha[2]-alpha[1]*lambda)*x^(1/2)+p[1]*lambda)*(k[2]*(1-lambda^2)+2) = p[2]*(2*k[2]*(1-lambda^2)+2);

eq1 := ((alpha[2]-alpha[1]*lambda)*x^(1/2)+p[1]*lambda)*(k[2]*(1-lambda^2)+2) = p[2]*(2*k[2]*(1-lambda^2)+2)

 (1)
> 

eq2:=((alpha[2]-alpha[1]*lambda)*sqrt(x)+p[1]*lambda)*(k[2]*(1-lambda^2)+2) = p[2]*(2*k[2]*(1- lambda^2)+2);

eq2 := ((alpha[2]-alpha[1]*lambda)*x^(1/2)+p[1]*lambda)*(k[2]*(1-lambda^2)+2) = p[2]*(2*k[2]*(1-lambda^2)+2)

 (2)
> 

solve({eq1,eq2},{p[1],p[2]});

{p[2] = p[2], p[1] = -(-x^(1/2)*alpha[2]*k[2]+x^(1/2)*alpha[2]*k[2]*lambda^2-2*x^(1/2)*alpha[2]+x^(1/2)*alpha[1]*lambda*k[2]-x^(1/2)*alpha[1]*lambda^3*k[2]+2*x^(1/2)*alpha[1]*lambda+2*p[2]*k[2]-2*p[2]*k[2]*lambda^2+2*p[2])/(lambda*(-k[2]+k[2]*lambda^2-2))}

 (3)
> 

 

Download solve.mws

 

Regards,

Georgios Kokovidis

Dräger Medical

Having trouble graphing logarithmic & na...

gkokovidis 2370
October 25 2013
1 0

Try the line below, and see if it meets your requirements.  Another way to plot multiple functions on one graph is to use the display command.  ?display for more help.

 

plot([exp(x),exp(x)+3,exp(x)*2,exp(x+3)],x=0..1,color=[blue,red,green,brown]);

 

Regards,

Georgios

translate...

gkokovidis 2370
October 13 2013
0 0

Here is one way, if I understand your question correctly.

> 

restart:
> 

f:=x->x^2;

proc (x) options operator, arrow; x^2 end proc

 (1)
> 

plot({f(x),f(x-2),f(x-4)},x=-4..8,y=0..12,color=[green,blue,red]);

 
> 

plot({f(x-2)+2,f(x-4)+2},x=-4..8,y=0..12,color=[blue,red]);

 
> 

 

Download translate.mw

Regards,

Georgios

Module Name...

gkokovidis 2370
October 07 2013
0 0

My mistake, I missed that part.  Thanks for pointing it out.

restart: with(Bits);
nums := [10, 3, 90, 6];
                         [10, 3, 90, 6]
ans :=Split~(nums);
    [[0, 1, 0, 1], [1, 1], [0, 1, 0, 1, 1, 0, 1], [0, 1, 1]]

convert...

gkokovidis 2370
October 07 2013
0 1

Notice in the code provided by Carl Love the command Bits, followed by :-

From the help pages: 

 

Module Members
 
  

When the underlying implementation of a package is a module, it is also possible to use the form PackageName:-command to access a command from the package.  Since the ":-" notation never evaluates its right-hand side, it is never necessary to use unevaluation quotes in this form. This notation is recommended for accessing PackageName commands from within any program you might write so that it executes as you expect in all contexts. For more information, see module.

You can do this at the beginning of your worksheet.

with(Bits):

then your code

> nums := [10, 3, 90, 6];
> Bits := Split(nums);

will work.

Convert Decimal to binary...

gkokovidis 2370
October 06 2013
0 2

Examples:

> 

restart:
> 

convert(10,binary);

1010

                            (1)
> 

convert(3,binary);

11

                                 (2)
> 

convert(90,binary);

1011010

                    (3)
> 

convert(6,binary);

110

                             (4)
> 

nums:=[10,3,90,6];

[10, 3, 90, 6]

                                                (5)
> 

seq(convert(nums[i],binary),i=1..nops(nums));

1010, 11, 1011010, 110

                                           (6)
> 

 

Download binary.mw

Regards,

Georgios

Mathematica code convert to Maple...

gkokovidis 2370
October 02 2013
0 2

Start by looking at the help file for MmaTranslator[FromMmaNotebook]

At the Maple prompt, enter the following, and hit the enter key:

?MmaTranslator[FromMmaNotebook];

If you are still struggling, upload your MMA Notebook using the green up arrow key.

 

Regards,

Georgios

Labels...

gkokovidis 2370
September 22 2013
0 1

Part a) is the dsolve command.

Part b) is the phaseportrait, using the dfieldplot command.

Parc c), I left to you to complete, by looking at the help file for ?DEtools, and under that, using the phaseportrait command on

 

ode1:=diff(y(x),x)=2*x^2+0.8*y(x)^3-1.2*x*y(x);

Regards,

Georgios

How do I solve these differential equati...

gkokovidis 2370
September 21 2013
0 1

For help in solving differential equations in Maple, start with the help command for ?dsolve

Below is an example worksheet to get you started.  See the help pages and associated examples within for ?DEtools and all of the sub-commands that are supported with this package.

> 

restart:with(DEtools):
> 

ode1:=diff(y(x),x)=2*x^2+0.8*y(x)^3-1.2*x*y(x);

diff(y(x), x) = 2*x^2+.8*y(x)^3-1.2*x*y(x)

 (1)
> 

dsolve(ode1);
> 

dfieldplot(ode1,[y],x=-3..3,y=-3..3);

 
> 

?DEtools
> 

 

Download detools.mw

Regards,

Georgios

First 6 7 8 9 10 11 12 Last Page 8 of 75