@burgarth I thought this deserved to be a separate Question, so I moved it from the 7-year-old thread to which it was originally attached. And I gave it a title, which you're free to change if you want.

@dharr I'll be disappointed if any of those 3 are considered as "legitimate" solutions to the problem. If so, I'd consider it a "trick question" rather than a math/physics/engineering problem.

On the other hand, even if the total source-to-sink resistance is allowed to be anything, not necessarily 1, I can't imagine any possible way that all the currents are different. 

@ecterrab Sorry for causing confusion; my Reply wasn't directed solely to you. Parts of it were intended for @Axel Vogt , @janhardo , and @lcz each of whom questioned the general Moderation process on MaplePrimes.

I am virtually certain that @nm has on numerous occasions deleted their own material. Hopefully they will respond. I suspect that they are a perfectionist regarding their postings.

@ijuptilk The PDF contains a procedure my_pm that returns lambda and u. Use that procedure.

@vv Thanks, I was mistaken, but now I understand due to your example. 

@ecterrab The member @nm has a long-standing habit of deleting their own Questions (that haven't been Answered), Answers (once another Answer appears), and Comments. I've tried to discourage them from doing that, but I don't think they had any response. In my many years of being a Moderator here, I don't recall ever deleting anything by @nm nor seeing anything that I thought should be deleted. Indeed, I consider @nm to be the all-time most-prolific poster of good-quality Questions, and a substantial proportion of their 6000+ reputation points come from me voting up their Questions.

I suspect that the vast majority of cases where a Reader notices that a worthwhile Question has been deleted fall into one of these categories:

1. The author deleted their own Question.
2. The Question is a duplicate of (or substantially the same as) another recent Question that the Reader didn't notice.
3. The Question is a followup to an Answer to a recent Question by the same author, and the Reader hasn't noticed that (yet).

Note that there is no mechanism whatsoever on MaplePrimes for Moderators to do any of the following things; their options are only Edit, Reply, or Delete:

1. To move a Question into another thread (such as to the thread for which it is a followup) where it rightfully belongs;
2. To move material to a holding area for possible further review.

I'd be happy to use these things (or any other StackExchange-like features) if MaplePrimes implemented them.

@Alex0099 I suspect that the remaining errors are deeply dependent on the underlying mathematics, which I know nothing about unfortunately. The semicolon error that I corrected was just a simple syntax error.

@vv You wrote:

• For an abelian group, ... if the order is even, the product (of the elements) may be <>1. 

I think that your "may be" can be strengthened to "is". Isn't the product necessarily equal to the unique nonidentity element that is its own inverse (such as -1)?

@Alex0099 To correct the "Error, unterminated loop", you need a semicolon at the end of the line tmp:= RHS(x)*pn(i, 1, t).

@ijuptilk What I gave you is only the code for the procedure definition of simple_deflate. To get results, you need to apply it to arguments, as in simple_deflate(A[6], u). To do that, you need the vector u. The top of the first page of your PDF excerpt shows that u is constructed from w. How to get w is presumably on an earlier page of the PDF. If you show the part of the PDF that explains how to get w, I can probably condense the entire algorithm to 2 or 3 lines of code.

@ijuptilk There is some invisible invalid character(s) in the whitespace at beginning of the 2nd line of simple_deflate. If I backspace over the whitespace (including the line break) and then reinsert it, then it works.

@ijuptilk Please post a worksheet showing the error as an attached file. Use the green up arrow on the toolbar of the MaplePrimes editor.

@ijuptilk Your problem is likely caused by the lines "Approximate eigenvalues" and "Precise eigenvalues". These lines are comments and you're treating them as code. To keep these lines, use # to tell the parser that they are comments:

#Approximate eigenvalues
#Precise eigenvalues

@ijuptilk The procedures pindex and simple_deflat from the PDF can both be replaced by this simple procedure:

simple_deflate:= (A::Matrix, u::Vector)->
    (p-> A-u.A[p]/u[p])(max[index](abs~(u)))
:

This code also addresses the "ill-conditioning" issue mentioned in the last line of the PDF by selecting the entry of maximal absolute value rather than any nonzero entry.

If your Maple version is too old to have max with the index option, let me know, and I can modify the above. You'd be able to tell immediately from the help page ?max.

@Earl Yes, Kitonum's Answer assumes a uniform density of 1. Regardless of whether the density is uniform, it can be accounted for by including it as a factor of the integrand in all of the integrals (2 for the center of mass and 1 for the moment of inertia). If that factor is constant (uniform density), it can be pulled out of the integrals. The dimensions of moment of inertia are mass*length^2.