Re: Math exp issue?

2018-02-21 Thread Henrik Sarvell
I've got this currently: ## See http://rosettacode.org/wiki/Matrix_transposition#PicoLisp (de trM (M) (apply mapcar M list) ) ## According to https://en.wikipedia.org/wiki/Matrix_multiplication ## Handles all scenarios just like Python's nympy's dot(). (de mM @ (let (Am (next)

Re: Math exp issue?

2018-02-21 Thread Henrik Sarvell
Thanks Alex, I'll try them out, and modify multiply to handle an arbitrary amount of matrices. On Wed, Feb 21, 2018 at 11:36 AM, Alexander Burger wrote: > Hi Henrik, > > > For reference, the article / tutorial: > > https://medium.com/technology-invention-and-more/how-to-

Re: Math exp issue?

2018-02-21 Thread Alexander Burger
Hi Henrik, > For reference, the article / tutorial: > https://medium.com/technology-invention-and-more/how-to-build-a-simple-neural-network-in-9-lines-of-python-code-cc8f23647ca1 Nice! > (de colM (M Cn) >(make > (for Col M > (link (car (nth Col Cn ) ) > > ## Transpose

Re: Math exp issue?

2018-02-20 Thread Henrik Sarvell
I think I did it. For reference, the article / tutorial: https://medium.com/technology-invention-and-more/how-to-build-a-simple-neural-network-in-9-lines-of-python-code-cc8f23647ca1 This is the PL solution and it relies on my ext lib here: https://bitbucket.org/hsarvell/ext/overview

Re: Math exp issue?

2018-02-13 Thread Henrik Sarvell
Ah, great resource, thanks, let's see if I can get all the way to the finish line on this one now... On Mon, Jan 29, 2018 at 8:25 AM, Alexander Burger wrote: > On Mon, Jan 29, 2018 at 08:14:31AM +0100, Alexander Burger wrote: > > To the question why it returns 101 for

Re: Math exp issue?

2018-01-29 Thread PositronPro
Original Message On 29 Jan 2018 12:55 pm, Alexander Burger wrote: On Mon, Jan 29, 2018 at 08:14:31AM +0100, Alexander Burger wrote: > To the question why it returns 101 for (exp 1): 101 is the > representation of the float number 1: > > : (round 101) > -> "1.000" ..

Re: Math exp issue?

2018-01-29 Thread Joh-Tob Schäg
Hi since i basically study mathematics at the moment i will implement exp in pure picolisp when i find the time. 2018-01-29 8:25 GMT+01:00 Alexander Burger : > On Mon, Jan 29, 2018 at 08:14:31AM +0100, Alexander Burger wrote: > > To the question why it returns 101

Re: Math exp issue?

2018-01-28 Thread Alexander Burger
On Mon, Jan 29, 2018 at 08:14:31AM +0100, Alexander Burger wrote: > To the question why it returns 101 for (exp 1): 101 is the > representation of the float number 1: > >: (round 101) >-> "1.000" .. and (exp 1) is (exp 0.01) ...

Re: Math exp issue?

2018-01-28 Thread Alexander Burger
Hi PositronPro, oops, I did not read the whole thread, you already answered .. :) On Sun, Jan 28, 2018 at 11:40:49PM -0500, PositronPro wrote: > I can't answer why it returns 101 for (exp 1). > > You can try (exp 1.0) it returns 2718282. This works fine till scl is 8 or > less, anything

Re: Math exp issue?

2018-01-28 Thread Alexander Burger
Hi Henrik, > Hi list, long time no see! Welcome back! :) > The definition of exp in math.l leads me to believe that we're calling this > C function: > https://www.tutorialspoint.com/c_standard_library/c_function_exp.htm Right. > 6) I would hope to get get something like 2718281 back from

Re: Math exp issue?

2018-01-28 Thread PositronPro
Okay, I did a bit of testing it happens when the value of *Scl is 1 or more. You get a similar result if you add or subtract, two or more numbers which are not in the same format; Like one without decimal and the other with a decimal. Make sure all the values are in decimal format with scl set

Re: Math exp issue?

2018-01-28 Thread PositronPro
I can't answer why it returns 101 for (exp 1). You can try (exp 1.0) it returns 2718282. This works fine till scl is 8 or less, anything more it simply returns T. (load '@lib/math.l) (exp 1) -> 101 (exp 1.0) ->2718282 (scl 8) (exp 1.0) -> 2688...200 (50 digits number) (scl 9) # or