Axel Vogt

5936 Reputation

20 Badges

20 years, 256 days
Munich, Bavaria, Germany

MaplePrimes Activity


These are replies submitted by Axel Vogt

I use pdf creator (or a postscript printer). The only issues (for me) are: scaling = zoom does not work properly, it seems to be 100% in *.wm sheets

I use pdf creator (or a postscript printer). The only issues (for me) are: scaling = zoom does not work properly, it seems to be 100% in *.wm sheets

I do not think he is paid, but just takes some task from http://www.artofproblemsolving.com/

I do not think he is paid, but just takes some task from http://www.artofproblemsolving.com/

@Preben Alsholm 

Ok. The following should do for R,S reals:

Modp:=proc(R,S)
  local s:=abs(S), d, result, oldDigits:=Digits;
 
  if 0.0 = S then 'procname( _passed )' end if; # no modulo 0
  if 0.0 = R then return 0.0 end if;
 
  d:=max(0, ilog10(evalf( abs(R)/s )) );
  Digits:= Digits + d+1 + 3;
 
  result:=frac( evalf(R/s) );                   # = modulo 1
  if result < 0 then result:=result+1 end if;   # for negatives
  evalf(result*s);                              # re-scale
 
  evalf[oldDigits](%);
end proc;

@Preben Alsholm 

Ok. The following should do for R,S reals:

Modp:=proc(R,S)
  local s:=abs(S), d, result, oldDigits:=Digits;
 
  if 0.0 = S then 'procname( _passed )' end if; # no modulo 0
  if 0.0 = R then return 0.0 end if;
 
  d:=max(0, ilog10(evalf( abs(R)/s )) );
  Digits:= Digits + d+1 + 3;
 
  result:=frac( evalf(R/s) );                   # = modulo 1
  if result < 0 then result:=result+1 end if;   # for negatives
  evalf(result*s);                              # re-scale
 
  evalf[oldDigits](%);
end proc;

@Preben Alsholm 

Yes, it is strange. I hade my own mod for floats (as far as that makes numerical sense ...), for which it works and to be honest: I just tried it with modp as well - and it worked, astonishing. Hence I picked that.

Sketch: MOD(R,S) = MOD(R/S, 1) *S, hence reduce to fractional parts + care for Digits

@Preben Alsholm 

Yes, it is strange. I hade my own mod for floats (as far as that makes numerical sense ...), for which it works and to be honest: I just tried it with modp as well - and it worked, astonishing. Hence I picked that.

Sketch: MOD(R,S) = MOD(R/S, 1) *S, hence reduce to fractional parts + care for Digits

I guess that problems are due to jumps given by your Heaviside functions

4_digits.mws

 

I guess that problems are due to jumps given by your Heaviside functions

4_digits.mws

 

A second pass using sin(y) = q etc does it for me.

However I can not see, why these are the only solutions.

Edited: ok, I "see" it now and attached a sheet

Edited: can no longer attach sheets, what a mess with this board software :-(
The file is uploaded, but a link is not inserted after klicking the very button.

MP_trig_alg_system_K.pdf

A second pass using sin(y) = q etc does it for me.

However I can not see, why these are the only solutions.

Edited: ok, I "see" it now and attached a sheet

Edited: can no longer attach sheets, what a mess with this board software :-(
The file is uploaded, but a link is not inserted after klicking the very button.

MP_trig_alg_system_K.pdf

As student (or beyond) my field was Algebra, complex Analysis and Geometry and
that in a somewhat general, abstract setting (only knew computers from working
in the holidays).

For that I find it difficult to use a system like Maple. I am not even sure, if
one can treat linear algebra (finite dimensional) beyond concrete examples.
But already that was of good help re-learning it :-)

Seconding Thomas Richard: even if I have some doubts in the formulation of the text
(for clients in the EC (*)) it is almost evident that using Maple's DLLs is covered
by their copyrights - you still 'use Maple', even if you do not use it as a complete
installation. Just in case that might be a reason for your question.

(*) I was 'encouraged' by Alejandro in a different thread to post in German (?)
but still can resist :-)

First 71 72 73 74 75 76 77 Last Page 73 of 209