As a powerlifter, I constantly find myself calculating my total between my competition lifts, bench, squat, and deadlift. Following that, I always end up calculating my wilks score. The wilks score is a score used to compare lifters between weight classes (https://en.wikipedia.org/wiki/Wilks_Coefficient ), as comparing someone who weighs 59kg in competition like me, to someone who weighs 120kg+, the other end of the spectrum; obviously the 120kg+ lifter is going to massively out-lift me.

So I decided to program a wilks calculator for quick use, rather than needing to go search for one on the internet. For anyone curious about specific scoring, a score of 300+ is very strong for the average gym goer, and is about normal for a powerlifter. A score of 400+ makes you strong for a powerlifter, putting you in the top 250 powerlifters, while 500+ is the very top, as far as unequipped powerlifting goes, including the top 30. For anyone wondering, my best score at my best meet was 390, although given the progress I’ve made in the gym, should be above 400 by my next meet.

Hope you all enjoy!

 Find it here: https://maple.cloud#doc=5687076260413440&key=301A440EFD2C4EDD8480D60B5E3147BF40CA460F842942449C939AB8D2E7D679

I understand that matlab has function 'rfwrite' to generate touchstone file. This is a datafile used for high frequency modeling.

Is there any such package in Maple?

I´m new to Maple and I´m trying to find the minimum distance of an ECC from its parity check matrix or the generator matrix. Is this possible?

Download digits.mw

(edited)

restart;
variables := s, phi(s);
                           s, phi(s)
expr := (k*s^2+1)*(diff(phi(s), s, s))-k*phi(s)+s*k*(diff(phi(s), s));
  /   2    \ / d  / d        \\                  / d        \
  \k s  + 1/ |--- |--- phi(s)|| - k phi(s) + s k |--- phi(s)|
             \ ds \ ds       //                  \ ds       /
expr2 := int(expr, s);
                           /   2    \ / d        \
             -s k phi(s) + \k s  + 1/ |--- phi(s)|
                                      \ ds       /
int(expr2, s);
            /              /   2    \ / d        \   \
         int|-s k phi(s) + \k s  + 1/ |--- phi(s)|, s|
            \                         \ ds       /   /

solve({int(expr2, s)});
Error, (in solve) cannot solve expressions with int(-s*k*phi(s)+(k*s^2+1)*(diff(phi(s), s)), s) for s

I DIDN'T GET THE SOLUTION.PLEASE HELP
 

I have two big symbolic and numerical matrices in a worksheet, whats the best way and easiest way to transfer them to another maple worksheet?

Why is Maple 13 giving me

instead of (s-3)/((s-3)^2+4)?

Thank you!
mapleatha

It seems if for some reason Maple runs a command that returns an error but the error is outputing to the display, and it is very very large, javaw.exe will consume enormous amounts of memory and pretty much freeze your system.  It took me forever to get into task manager on Windows to try to kill the processes slowing my system down to a crawl. 

For example if you run say listplot on a 60,000 set data element which is not in the correct form for listplot, Maple will error each element and attempt to output it to the screen which on my system quickly ran javaw.exe up to 2.5 Gb of memory usage. But then it went to zero again (probably due to garbage collection or something) and quickly ramped back up into 2 Gb.  Momentarily I was given enough system control to kill some processes to Maple and Firefox which eventually allowed me to take back control of my system.  When this first occurred, I did a hard reset, the second time I wanted to see if I could have any luck otherwise, but it took 5 minutes of frustration to get my system back to normal operating condition.

Hopefully Maple developers can use this information to prevent system hangs like this in the future.  Additionally pushing the interupt the current operation did little to stop the process already underway. 

how to intergrate 6*(int(int(r(1-r^p*cos(t)^p-r^p*sin(t)^p)^(1/p), t = 0 .. (1/2)*pi), r = 0 .. 1))

when p = 0.05 to 4 with 0.05 increments.

Thanks a lot

it should be (cos(t))^p not cos(t)^p. same for sin(t)^p

I am trying to find the orthocenter in the x,y plane, given three coordinates  (x1,y1) (x2,y2) (x3,y3).

I am trying to avoid division by zero.

orthocenter.mw
 

Download orthocenter.mw

Hi! I need a help to understand how the variables in maple 17 works

I want to know if it's possible to change a variable, that I have already declared in a proc, along the body of a procedure. For example this procedure:

>Bucklingload:= proc(a,b,c,d,Q,pr)
local A;
A:=FN(a,b,c,d,Q); #vector of another gobal variable
while A[1] >0 do
Q:=Q+pr ;#"Q"and "pr" are both a list, wich the first value of the vector B decrease his value after an increase estimated in "pr" in "Q"
A[1];
end do;
end proc;

After execute the worksheet, maple display this message:" illegal use of a formal parameter ". I want to know if its possible to use Q as a local variable chaging his value in this loop

Thank you all and sorry for my english!

The following website contains worksheets written in an early version of Maple.

http://www.yorku.ca/marko/ComPhys/

I would like to import worksheets 5.1 and 5.2 and work with them in Maple 2016. Is this possible?

Clicking on the worksheet id, e.g. 5.1, displays an .mws worksheet written in HTML which is not supported as an import format.

I'm currently working on compressing audio files using DCT to remove the frequencies that only contribute marginally to human perception of the sound. To do this, I'd like to do as the attached image describes. Sadly, I'm having trouble plotting the values of the DCT-coefficients as done in figure 6.4 b) and d). 

Any help would be kindly appreciated.

write a maple script to find whether the given function is one one or onto

given a binary sequence of length n ,how many sequence of length n can be generated such that there are no 2 adjacent 0's.