Rouben Rostamian

MaplePrimes Activity


These are replies submitted by Rouben Rostamian

@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.
 

@Aliocha I don't have Maple 2026 but the formula works just fine in Maple 2024 and 2025.  Here it is:

> 

restart;

> 

kernelopts(version);

`Maple 2024.2, X86 64 LINUX, Oct 29 2024, Build ID 1872373`

> 

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

proc (n, x) options operator, arrow; x*n+2*(sum((n-k)*sin(k*x)/k, k = 1 .. n-1)) end proc

> 

f(1,x);

x

> 

f(2,x);

2*x+2*sin(x)

> 

f(3,x);

3*x+4*sin(x)+sin(2*x)

> 

f(4,x);

4*x+6*sin(x)+2*sin(2*x)+(2/3)*sin(3*x)

Download mw.mw

 

 

@C_R My comment applies to your worksheet 2d_BVP_Haberman.mw where BC3 specifies zero temperature on the outer boundary.  That's where you need the compatibility condition that I have noted.  That wouldn't be an issue in the case of an insulated boundary.

@janhardo In the solutions that you have provided, you are taking q = q(t), but the original statement says q = q(r,t). 

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