[Gambas-user] An arbitrary precision calculator class

[Jussi Lahtinen]

I don't have account for Gambas wiki, can you grant it for me?
Maybe I would put some other snippets there too.

Jussi



On 25 August 2012 04:06, Sebi <sebikul at ...626...> wrote:

> Great workaround!!
>
> I created a snippets page on the wiki some time ago, you will find a link
> on the main page. Feel free to add it there!
> -----Original Message-----
> From: Jussi Lahtinen <jussi.lahtinen at ...626...>
> Date: Sat, 25 Aug 2012 03:59:58
> To: Gambas mailing list for users.<Gambas-user at lists.sourceforge.net>
> Reply-To: mailing list for gambas users <gambas-user at lists.sourceforge.net
> >
> Subject: [Gambas-user] An arbitrary precision calculator class
>
> Almost forgot... Some weeks(?) ago I noticed that people tend have problems
> with floating point precision (problem with all general purpose languages).
> So, I'll share my quick & dirty solution.
>
> Short but useful code if you need very precise numbers for math, but speed
> is not crucial.
> I personally use it for prototyping.
>
>
> This is for class (name it BcClass):
>
> Private hPro As Process
>
> Public Function _call(sFunc As String) As String
>
>   Dim ss As String
>
>   Print #hPro, sFunc
>   Input #hPro, ss
>
>   Return ss
>
> End
>
> Public Sub _new(Optional iPrecision As Integer = 100)
>
>   hPro = Exec ["env", "BC_LINE_LENGTH=0", "bc"] For Read Write
>
>   Print #hPro, "scale=" & CStr(iPrecision)
>
> End
>
> Public Sub Stop()
>
>   hPro.Close()
>
> End
>
>
>
> This is how you use it:
>
> Dim Calculate As New BcClass(8)
>
> Print Calculate("1+2/7^2.4")
>
> 1.04081632
>
> And when all calculations are done, end your code with "Calculate.Stop()".
>
>
> BTW. Is there some place for code snippets?
>
>
> Jussi
>
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and
> threat landscape has changed and how IT managers can respond. Discussions
> will include endpoint security, mobile security and the latest in malware
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and
> threat landscape has changed and how IT managers can respond. Discussions
> will include endpoint security, mobile security and the latest in malware
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>