cilrcle.mw

i want to plot a circle which is centered at(0,0),and the radius is the length of Point2 and origin

but it shows some error,how could i do to solve this

cilrcle.mw

i want to plot a circle with that centered at (0,0),and the radius is the length of Point2 and orgin

but it shows the error

how could i do to solve this

color.mw

how can i do if i  want to change the color of point1 which is rotated from point2

i want to make point2 red , and point1 is black , but the point1 is still  red

anyone can help me? thx

Hello People in mapleprimes,

I want to know how to factor the denominator of the first term in the right hand side, using commands not clickable math.

And, I know applyop can be used in this case, but I want to know is other ways than using applyop. 

-tau*alpha*sigma*omega*(tau-omega^(-sigma))/(s*L*(1-gamma-tau^2+tau^2*gamma))

-(sigma*alpha)/s*(1-tau*omega^sigma)/(omega^(sigma-1)*(1-gamma)*L*(1/tau-tau));

Thanks in advance.

taro

Hello all,

When I try to do this example, in the multibody analysis, http://www.maplesoft.com/products/maplesim/ModelGallery/detail.aspx?id=137

Thats already written :

but when I enter theses formulas(mModel & MB), that write instead of the example:

"Analyzing system..."
"Performing constraint analysis..."
"The system has 2 degree(s) of freedom. It is modeled using 2

generalized coordinate(s) coupled by 0 algebraic constraint(s\

And I have no result if i do vPosCons := MB:-GetPosCons(); . What am I doing wrong?

Thank you

t := exp(2*(I*Pi*(1/11)))

u := t^10*a[10]+t^9*a[9]+t^8*a[8]+t^7*a[7]+t^6*a[6]+t^5*a[5]+t^4*a[4]+t^3*a[3]+t^2*a[2]+t*a[1]+a[0]

How can get maple to simplify expressions like u^3+u^2-1 so that the exponents are between 2*(I*Pi*(1/11)) and 1.

Essentially it keeps outputting things like exp(2*(I*Pi*(1/11)))^12 and not simplifying it as it is a root of unity

for example i want to save the Square root of 2 to 1000000 decimal place to an ascii text file ...

i used the writeto command after evalf[100](sqrt(2)) for but it contains line breaks and \ character in output !

but i only need the pure continues 1000000 digits !

please guide me on this simple request ?

Hi Maple friends.

If I have a table of values, how can Maple provide the function?

For example:

x=10,15,20,25,30,35,40

y=2.01,4.87,6.50,9.875,14.00,18.90,24.40

How can Maple find out the y function with respect to x? 

Thanks in advance.

Hi,

I'm trying to make a piecewise function that will have period 12. That is, it repeats every 12 units across the x-axis.

I managed to do one cycle successfully with

plot(piecewise(0<=t and t<2, 4,2<=t and t<12,0), t=0..13);

But I'm not sure how to do it periodically. I thought about using modular arithmetic in the conditions and setting up something like

H(t)=piecewise(0<=modp1(f(t),12) and modp1(f(t),12)<2, 4,2<=modp1(f(t),12) and modp1(f(t),12)<12,0);

but this clearly doesn't work.

Some direction or advice would be appreciated. Thanks!

Hi there

I'm taking my first steps with maple and my question is not exactly briliiant

Putting in a simple way, I'm trying to solve sth that looks like this

> li := a*[cos(7*x+8*x*y+9*y)*cos(-7*x-8*x*y-9*y)];
             a [cos(7 x + 8 x y + 9 y) cos(-7 x - 8 x y - 9 y)]

and i want to replace

with

getting (if i do it by hand)

> algsubs(7*x+8*x*y+9*y = 20*y, li);
                    a [cos(20 y) cos(-7 x - 8 x y - 9 y)]

my question, is there an elegant way to do it? sth that would look like this?

thank you for any tips

Hi i have trouble with this equation to solve with maple please help me

with boundary condition :

how i solve above equation with maple?( there is function to solve this equation in maple ?

email :

sattar.dogonchi@yahoo.com

Download Test_modify.mw

Good Afternoon Community,

Would anybody please help me with the attached workshet. I have written a procedure with Maple to calculate the spacing between piles assumming any pile as a reference point, and also to calculate the angle between each pile from the same reference point, my procedure is not yielding any results. Please Help!

Regards

Moses

Hi There

I'm getting started with maple and facing a doubt about using subs, somehow it does not seem to work, this is my expression:

> restart;
> theta := omega*t-k*x;
                                omega t - k x
> phi[1] := -(1/2)*H*c*cosh(k*(z+h))*sin(theta)/sinh(k*h);
                   H c cosh(k (z + h)) sin(-omega t + k x)
                   ---------------------------------------
                                 2 sinh(k h)              
> diff(phi[1], t, t);
                                                             2
                H c cosh(k (z + h)) sin(-omega t + k x) omega
              - ----------------------------------------------
                                 2 sinh(k h)                  
> td := simplify(subs(z = 0, %));
                                                          2
                   H c cosh(k h) sin(-omega t + k x) omega
                 - ----------------------------------------
                                 2 sinh(k h)               
> simplify(subs(cosh(k*h)/sinh(k*h) = 1/tanh(k*h), %));
                                                          2
                   H c cosh(k h) sin(-omega t + k x) omega
                 - ----------------------------------------
                                 2 sinh(k h)               
I cannot subs cosh/sinh = tanh. I would like to know why.

Any tips? Thank you

Hej,

when using Statistics:-Histogram i received the following strange result for the ordinate:

restart;
Statistics:-Histogram([0.587944711e-1, 0.587944836e-1, 0.589720582e-1]);

Download Histogram.mw

I want to find a point has coordinates are integer numbers and write the equation of tangent line to a given circle,  knowing that, the points of tangent has also integer coordinates. For example, the circle has centre M(-1,-5) and radius R=5. I tried

restart:

with(geometry):

point(M,-1,-5):

R:=5:

eqS:=Equation(circle(S,(a-HorizontalCoord(M))^2 + (b-VerticalCoord(M))^2 -R^2=0,[a,b],'centername'=T)):

L:=[]:

for a from -50 to 50  do

for b from -50 to 50  do

if  a <>HorizontalCoord(M) and b<>VerticalCoord(M) and eqS then

L:=[op(L), [a,b]] fi;

od: od:

nops(L);

eqS:=Equation(circle(S,(x-HorizontalCoord(M))^2 + (y-VerticalCoord(M))^2 -R^2=0,[x,y],'centername'=T));

k:=[seq](sort(Equation(TangentLine(P, S, point(A, pt[])), [x,y])), pt in L):

seq([L[i],k[i]],i=1..nops(L));

Next,

> with(combinat):

d:=choose(k,2):

for i from 1 to nops(d) do  

seq([d[i],solve([op(1,d[i]),op(2,d[i])],[x,y])],i=1..nops(d));

end do;

If I want to the point of intersection of two lines which are not perpendicular line, for example

[[-3*x-4*y-48 = 0, 4*x+3*y-6 = 0], [[x = 24, y = -30]]]

How can I select?