Rouben Rostamian

MaplePrimes Activity


These are replies submitted by Rouben Rostamian

@Kitonum and @vv, you are correct in observing that dividing the data by 10^2 is not justified.  Things work out by a lucky accident in that case, but if the equations are replaced with

eq1 := x^2 + y^2 + z^2 = 81*3^2;
eq2 := 2*x*y + 2*x*z + 2*y*z = 88*3^2;

then upon modifying the worksheet that I posted earlier, we obtain the solution {x = 23, y = 14, z = 2} (among other solutions).  We see that those numbers are not divisible by 3.

@Ronan In your worksheet the value of a is obtained by solving eq2 for a.  The solution turns out to be an integer as desired, although that's not built into the algorithm.  Could that be a lucky accident?

@Kitonum That's a clever solution.  Just for fun, here is a Maple implementation of your work.

Download mw.mw

@Alfred_F Okay, that's a good proof.  In fact, the statement of the problem may be generalized a bit.

Let S be any set of points in R3.  Suppose that for any plane P, the points in the intersection S ∩ P lie on a circle.  Then the points in S lie on a sphere.

The attached worksheet illustrates your proof. 

Download mw.mw

 

@Earl Let r be the bead's position vector relative to a reference point, and let v be velocity vector.  Then the bead's angular momentum is L = m r x v, where m is the mass and "x" is the cross product.

Hello Earl, I looked through your worksheet but couldn't make heads or tails of it.  It seems to me that you wish to analyze the motion of a bead along a wire track.  That's pretty much the same problem that was discussed in an earlier question. How is this one any different?

You may want to state the problem clearly, in words, without an appeal to a worksheet.

@sand15 Also note that his equations involve both lambda and lambda[1].  Then he sets lambda=1 and lambda[1]=0.1. 

@acer Ah, that explains why implicitplot does not complain in nm's answer.

@nm Needn't we worry about the imaginary 7/5*Pi*I term?

@Earl You have asked an interesting question and I am glad to have been able to provide a solution that you have found satisfactory.  Cheers!

@C_R That's a pretty curve and works nicely in the context of this problem.  And you are correct in pointing out that the the curve's parametrization need not be arclength parametrization.

This is extracted from your worksheet:

 

Earl, in your worksheet you write:

    Both bobs slide down according to the downward tangential
    force of gravity and the opposing tangential force of friction.
    The latter is the product of the component of the gravitational
    force normal to the arc and the coefficient of friction.

That does not look correct.  The normal component of the reaction force should be the sum of two forces:

1. The component of the gravitational  force normal to the arc, as you have correctly stated;
2. The centripetal force due to the bob's curved path.

To see the significance of the #2 above, imagine turning off the force of gravity and letting the bob move solely due to imparted initial velocity.  According to your formulation, the force of friction will be zero.  But as the bob slides along the curve, the centripetal force will press it against the curve, making it feel the force of friction. That's where #2 comes in.

@Kitonum The help page on ListTools:-Collect says: 

    Note that the order of the output is session dependent, and is therefore not defined.

Isn't that a problem with implementing your suggestion?

Interesting subject and good work!

For whatever it's worth, here is a different take to what you have done.

In this alternative presentation of Carvalho's worksheet, we name constants and functions
as they are defined, and refer to those names in subsequent constructions.

> 

restart;

> 

f := (x,y) -> exp(x) - ln(y);

proc (x, y) options operator, arrow; exp(x)-ln(y) end proc

> 

ln(0) := -infinity;

-infinity

The exponential function

> 

Exp := x -> f(x,1);

proc (x) options operator, arrow; f(x, 1) end proc

> 

Exp(-1), Exp(0), Exp(1), Exp(2);

exp(-1), 1, exp(1), exp(2)

The natural logarithm

> 

Ln := x -> f(1,f(f(1,x),1));

proc (x) options operator, arrow; f(1, f(f(1, x), 1)) end proc

> 

Ln(1), Ln(2), Ln(3);

0, ln(2), ln(3)

> 

Ln(-1);
simplify(%);

exp(1)-ln(-exp(exp(1)))

-I*Pi

Zero

> 

Z := Ln(1);

0

Subtraction:

> 

S := (a,b) -> f(Ln(a),Exp(b))

proc (a, b) options operator, arrow; f(Ln(a), Exp(b)) end proc

> 

simplify(S(a,b)) assuming real;

a-b

Unary minus

> 

M := x -> S(Z,x);

proc (x) options operator, arrow; S(Z, x) end proc

> 

simplify(M(x)) assuming real;

-x

Addition

> 

A := (a,b) -> S(a,M(b));

proc (a, b) options operator, arrow; S(a, M(b)) end proc

> 

simplify(A(a,b)) assuming real;

a+b

Product

> 

P := (a,b) -> Exp(A(Ln(a),Ln(b)));

proc (a, b) options operator, arrow; Exp(A(Ln(a), Ln(b))) end proc

> 

simplify(P(a,b)) assuming real;

a*b

Inverse

> 

In := x -> Exp(M(Ln(x)));

proc (x) options operator, arrow; Exp(M(Ln(x))) end proc

> 

simplify(In(x));

1/x

The imaginary unit (here named J)

> 

J := M(Exp(P(Ln(-1),In(2))));

-ln(exp(exp(exp(exp(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(-exp(exp(1))))))))))-ln(2)))))

> 

simplify(J);

I

The number Pi (here named PI)

> 

PI := P(J,Ln(-1));

exp(exp(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(exp(exp(1)-ln(-ln(exp(exp(exp(exp(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(-exp(exp(1))))))))))-ln(2))))))))))))+ln(exp(exp(1)-ln(exp(exp(1)-ln(exp(1)-ln(-exp(exp(1)))))))))

> 

simplify(PI);

Pi

Download EML.mw

 

@Aliocha Ah, I see the reason for the confusion.  The f(n,x) in my answer stands for the antiderivative of your f(n,x),  so I should have called it by some other name, like F:

F := (n,x) -> n*x + 2*sum((n-k)/k*sin(k*x), k=1..n-1);

You wish to integrate your f(n,x) over the interval (0,Pi).  That amounts to evaluating

F(n,Pi) - F(n,0);

But sin(k*x) is zero at 0 and Pi, therefore the summation evaluates to zero and we are left with n*Pi - n*0, that is n*Pi, as you had expected.
 

1 2 3 4 5 6 7 Last Page 1 of 102