[Ql-Users] Printing numbers in non exponent form
Some weeks ago someone enquired as to how to print numbers in non exponent form. I believe it was George Gwilt who suggested using CDEC$. Here is a function that I use ... 750 DEFine FuNction comma$(num) 760 LOCal t, fra 770 IF num 0 : RETurn - comma$(ABS(num)) 780 IF num 1000 : RETurn num 790 IF num/1000 2^31-2 : RETurn num : REMark otherwise INT(num/1000) will fail 800 t = INT(num/1000) 810 fra = num – t * 1000 : IF e- INSTR fra : fra = 0 820 RETurn comma$((t)) , FILL$(0,(fra100)+(fra10)+(fra1 AND fra0)) fra 830 END DEFine comma$ This only works properly for whole numbers, and if the number cannot be converted then the exponent form is returned. PRINT comma$(2^31) gives 2,147,483,648 PRINT comma$(1000.753) gives 1,000.7529998 Michael Bulford ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] Printing numbers in non exponent form
It was I who required a way to do this. Thanks for this. Very well timed since I now need to print unsigned 32 bit integers and unfortunately none of the DEC$ functions can do this. Hopefully a few changes to this will provide a solution. On 05/03/2012 09:59, Michael Bulford wrote: Some weeks ago someone enquired as to how to print numbers in non exponent form. I believe it was George Gwilt who suggested using CDEC$. Here is a function that I use ... 750 DEFine FuNction comma$(num) 760 LOCal t, fra 770 IF num 0 : RETurn - comma$(ABS(num)) 780 IF num 1000 : RETurn num 790 IF num/1000 2^31-2 : RETurn num : REMark otherwise INT(num/1000) will fail 800 t = INT(num/1000) 810 fra = num – t * 1000 : IF e- INSTR fra : fra = 0 820 RETurn comma$((t)) , FILL$(0,(fra100)+(fra10)+(fra1 AND fra0)) fra 830 END DEFine comma$ This only works properly for whole numbers, and if the number cannot be converted then the exponent form is returned. PRINT comma$(2^31) gives 2,147,483,648 PRINT comma$(1000.753) gives 1,000.7529998 Michael Bulford ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] Printing numbers in non exponent form
- Original Message - From: Malcolm Lear malc...@essex.ac.uk To: ql-us...@q-v-d.com Cc: Sent: Monday, 5 March 2012, 11:28 Subject: Re: [Ql-Users] Printing numbers in non exponent form It was I who required a way to do this. Thanks for this. Very well timed since I now need to print unsigned 32 bit integers and unfortunately none of the DEC$ functions can do this. Hopefully a few changes to this will provide a solution. On 05/03/2012 09:59, Michael Bulford wrote: Some weeks ago someone enquired as to how to print numbers in non exponent form. I believe it was George Gwilt who suggested using CDEC$. Here is a function that I use ... 750 DEFine FuNction comma$(num) 760 LOCal t, fra 770 IF num 0 : RETurn - comma$(ABS(num)) 780 IF num 1000 : RETurn num 790 IF num/1000 2^31-2 : RETurn num : REMark otherwise INT(num/1000) will fail 800 t = INT(num/1000) 810 fra = num – t * 1000 : IF e- INSTR fra : fra = 0 820 RETurn comma$((t)) , FILL$(0,(fra100)+(fra10)+(fra1 AND fra0)) fra 830 END DEFine comma$ This only works properly for whole numbers, and if the number cannot be converted then the exponent form is returned. PRINT comma$(2^31) gives 2,147,483,648 PRINT comma$(1000.753) gives 1,000.7529998 Michael Bulford I have been having problems with my browser, but have now blocked addons. Hopefully, the newlines being inserted into my text will not happen. The text should have read as follows ... Printing numbers in non exponent form Some weeks ago someone enquired as to how to print numbers in non exponent form. I believe it was George Gwilt who suggested using CDEC$. Here is a function that I use ... 750 DEFine FuNction comma$(num) 760 LOCal t, fra 770 IF num 0 : RETurn - comma$(ABS(num)) 780 IF num 1000 : RETurn num 790 IF num/1000 2^31-2 : RETurn num : REMark otherwise INT(num/1000) will fail 800 t = INT(num/1000) 810 fra = num – t * 1000 : IF e- INSTR fra : fra = 0 820 RETurn comma$((t)) , FILL$(0,(fra100)+(fra10)+(fra1 AND fra0)) fra 830 END DEFine comma$ This only works properly for whole numbers, and if the number cannot be converted then the exponent form is returned. PRINT comma$(2^31) gives 2,147,483,648 PRINT comma$(1000.753) gives 1,000.7529998 The CDEC$ function range is +/- up to only 1E9 and is difficult to use as it has 3 parameters. It is however, highly accurate when printing numbers between zero and one! Michael Bulford ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] RaspberryPi
Morning Malcolm, I thought that you would one the first 'Rpi owners ... :-) No, I'm afraid not. There are 10,000 lucky owners but I'm not one of them. I need my sleep too much to be setting alarms to get up at 05:45! I have not heard of Fedora Linux ... though I guess it not a hat? Close, very close. Red Hat is, if you like, the parent company, They produce Red Hat Enterprise Linux but used to produce a community version called Red Hat Linux. They stick to RHEL these days and are (or are about to be) the first open source company to break the $1 billion income mark. They charge for support and give the product away for free. Fedora is the community version - Red Hat Linux as was. New stuff usually hits Fedora first before it rolls out in RHEL. Both are, indeed, hat related! Of course, it you ned or want an enterprise level Linux for free, you simply get Centos or Scientific Linux which are RHEL with the Red Hat badges removed. It's all legal under the terms of the license. Development tools ... yes, but what actual software or 'apps' are already around to make it immediately usable? Too much to mention. When you install a Linux distro you get tens of thousands of apps thrown in for free and there are many more that may not be included in the distro, but are available elsewhere. CAD tools, compilers for just about every language under the sun, development environments, games, science stuff, astronomy, games, deocumentation tools, DVD players, CD players, MP3, Video editing, sound recording editing, text editors, whole office suites, - everything. Compare with Windows and Minsweeper or Solitare! ;-) I specialised in control and electronics and all the 'new technology' stuff, so was always being creative. I put together a 555 timer in astable mode this weekend on a breadboard looking for a square wave generator. I wanted to use it to switch on another circuit, then off again at regular intervals. How hard could it be? I got an always on LED! Sigh! It's far simpler with Arduino! Schools have mirrored and followed almost exactly all of the previous mistakes that industry first followed. Have they mirrored or have they been pushed in that direction by politicians and other do-gooders with an agenda? Cheers, Norm. -- Norman Dunbar Dunbar IT Consultants Ltd Registered address: Thorpe House 61 Richardshaw Lane Pudsey West Yorkshire United Kingdom LS28 7EL Company Number: 05132767 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] RaspberryPi
Whilst I'm not denigrating it, all this publicity of development boards etc. is missing the concept of the Rpi, which is to just connect the necessary ancillaries and use it for program development by youngsters, not circuit design. They're already using SCRATCH I understand which is just for making things work on the screen by complex sprites; but it does get them planning things in detail, even if only a sort of film storyboard. Bryan H On 05/03/2012 04:27, John Alexander wrote: My RaspberryPi is due the 12th according to Farnell. Fedora is the community edition as it were where the technology that RedHat uses gets tested first! I've already got a few bits of hardware ready an Arduino clone for I/O expansion called a Piduino and a MoPi which is an out and out dev board for the RaspberryPi http://www.youtube.com/watch?feature=player_embeddedv=u5c1Dfaf57g http://shropshirelug.wordpress.com/2011/12/10/mopi-a-prototype-board-for-raspberrypi/ Take alook at the video shown at the Last Shropshire Linux user Group (SLUG) on PCB manufacture http://shropshirelug.wordpress.com/2012/03/04/review-of-february-2012-meeting-11/ John A --- On Mon, 5/3/12, Norman Dunbarnor...@dunbar-it.co.uk wrote: From: Norman Dunbarnor...@dunbar-it.co.uk Subject: Re: [Ql-Users] RaspberryPi To: ql-us...@q-v-d.com Date: Monday, 5 March, 2012, 11:59 Morning Malcolm, I thought that you would one the first 'Rpi owners ... :-) No, I'm afraid not. There are 10,000 lucky owners but I'm not one of them. I need my sleep too much to be setting alarms to get up at 05:45! I have not heard of Fedora Linux ... though I guess it not a hat? Close, very close. Red Hat is, if you like, the parent company, They produce Red Hat Enterprise Linux but used to produce a community version called Red Hat Linux. They stick to RHEL these days and are (or are about to be) the first open source company to break the $1 billion income mark. They charge for support and give the product away for free. Fedora is the community version - Red Hat Linux as was. New stuff usually hits Fedora first before it rolls out in RHEL. Both are, indeed, hat related! Of course, it you ned or want an enterprise level Linux for free, you simply get Centos or Scientific Linux which are RHEL with the Red Hat badges removed. It's all legal under the terms of the license. Development tools ... yes, but what actual software or 'apps' are already around to make it immediately usable? Too much to mention. When you install a Linux distro you get tens of thousands of apps thrown in for free and there are many more that may not be included in the distro, but are available elsewhere. CAD tools, compilers for just about every language under the sun, development environments, games, science stuff, astronomy, games, deocumentation tools, DVD players, CD players, MP3, Video editing, sound recording editing, text editors, whole office suites, - everything. Compare with Windows and Minsweeper or Solitare! ;-) I specialised in control and electronics and all the 'new technology' stuff, so was always being creative. I put together a 555 timer in astable mode this weekend on a breadboard looking for a square wave generator. I wanted to use it to switch on another circuit, then off again at regular intervals. How hard could it be? I got an always on LED! Sigh! It's far simpler with Arduino! Schools have mirrored and followed almost exactly all of the previous mistakes that industry first followed. Have they mirrored or have they been pushed in that direction by politicians and other do-gooders with an agenda? Cheers, Norm. -- Norman Dunbar Dunbar IT Consultants Ltd Registered address: Thorpe House 61 Richardshaw Lane Pudsey West Yorkshire United Kingdom LS28 7EL Company Number: 05132767 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
[Ql-Users] Raspbery Pi
Whilst I'm not denigrating it, all this publicity of development boards etc. is missing the concept of the Rpi, which is to just connect the necessary ancillaries and use it for program development by youngsters, not circuit design. They're already using SCRATCH I understand which is just for making things work on the screen by complex sprites; but it does get them planning things in detail, even if only a sort of film storyboard. Bryan H ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] RaspberryPi
In message 4f54aab4.9050...@dunbar-it.co.uk, Norman Dunbar nor...@dunbar-it.co.uk writes Morning Malcolm, I thought that you would one the first 'Rpi owners ... :-) No, I'm afraid not. There are 10,000 lucky owners but I'm not one of them. I need my sleep too much to be setting alarms to get up at 05:45! I have now registered with both Farnell and RS, which was all very easy to do. The former are offering a 'free' special edition Rpi T-Shirt, too ... :-) I have not heard of Fedora Linux ... though I guess it not a hat? Close, very close. Red Hat is, if you like, the parent company, They produce Red Hat Enterprise Linux but used to produce a community version called Red Hat Linux. They stick to RHEL these days and are (or are about to be) the first open source company to break the $1 billion income mark. They charge for support and give the product away for free. Fedora is the community version - Red Hat Linux as was. New stuff usually hits Fedora first before it rolls out in RHEL. Both are, indeed, hat related! Of course, it you ned or want an enterprise level Linux for free, you simply get Centos or Scientific Linux which are RHEL with the Red Hat badges removed. It's all legal under the terms of the license. OK ... with Linux it all seems an endless series of 'flavours' of Linux. Development tools ... yes, but what actual software or 'apps' are already around to make it immediately usable? Too much to mention. When you install a Linux distro you get tens of thousands of apps thrown in for free and there are many more that may not be included in the distro, but are available elsewhere. CAD tools, compilers for just about every language under the sun, development environments, games, science stuff, astronomy, games, deocumentation tools, DVD players, CD players, MP3, Video editing, sound recording editing, text editors, whole office suites, - everything. OK ... you get some 'basic' stuff, and then post-install a lot of other potentially more useful stuff. Compare with Windows and Minsweeper or Solitare! ;-) I specialised in control and electronics and all the 'new technology' stuff, so was always being creative. I put together a 555 timer in astable mode this weekend on a breadboard looking for a square wave generator. I wanted to use it to switch on another circuit, then off again at regular intervals. How hard could it be? I got an always on LED! Sigh! It's far simpler with Arduino! Ah ... yes ... fault tracing in electronics is like de-bugging in software ... a potential long and tortuous road. Schools have mirrored and followed almost exactly all of the previous mistakes that industry first followed. Have they mirrored or have they been pushed in that direction by politicians and other do-gooders with an agenda? Umm ... you may say that a lot of hardware and software has been sold to Schools ... :-) ... but then, we are not cynical; are we? -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [Ql-Users] RaspberryPi
Morning Malcolm, I have now registered with both Farnell and RS, which was all very easy to do. The former are offering a 'free' special edition Rpi T-Shirt, too ... :-) I've seen those - element 14 I think. OK ... with Linux it all seems an endless series of 'flavours' of Linux. It may look that way but Linux, or more accurately GNU/Linux is the kernel, the actual OS if you like. That's pretty much standard across all distros. A few distros do modify the kernel slightly to match their needs, but usually it's in non-important areas. The distro itself comes in many flavours, including the applications supplied, the GUI in use - KDE, Gnome, Gnome3, etc. This doesn't mean that if you use Linux Mint with Gnome that your applications won't run on OpenSuse with KDE - they will. OK ... you get some 'basic' stuff, and then post-install a lot of other potentially more useful stuff. Sort of. With Windows you install everything (ie, the OS) and then start buying applications, or downloading Firefox, Chrome, whatever from many different places. How secure these places are, you have no idea. With Linux, everything is on the DVD initially, and part of the installation set you up with repositories and it is from these that you get your new stuff, updates, patches and so on. These repositories are secure in that they use security signatures and certificates to prove their validity. Ah ... yes ... fault tracing in electronics is like de-bugging in software ... a potential long and tortuous road. It came to me this AM when I was in bed what I'd done wrong. I need to check later to see if my subconscious was right. My two timing resitors needed to be around 1K and 144K to go with the 100nF capacitor. I have a funny feeling that I used a 980K instead of 144K - major failure there for around 144k! ;-) Umm ... you may say that a lot of hardware and software has been sold to Schools ... :-) ... but then, we are not cynical; are we? Most of our schools are sponsored by Microsoft. As is most of government. We are doomed to repeat the errors of our predecessors if we never learn. And yes, we are cynical, with good reason I'm afraid! ;-) Hope you get your Pi soon. Cheers, Norm. -- Norman Dunbar Dunbar IT Consultants Ltd Registered address: Thorpe House 61 Richardshaw Lane Pudsey West Yorkshire United Kingdom LS28 7EL Company Number: 05132767 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
