dcl and floating point values

[Hein van den Heuvel]

Same PERL example in a more proper simple program format:


$ type free.pl

$devices = shift; # pick up input argument
$devices = "d" unless $devices; # default to "d" if nothing

for (qx(show dev $devices/ful)) { # execute SHOW DEV and loop over output
$device = $1 if /^Disk\s+(\S+),/;
$total = $1 if /Total blocks\s+(\d+)/;
if (/Free blocks\s+(\d+)/) { # Found last component?
printf qq(%20s %9s %9s %5s\n),
qw(Device Size Free Pct) unless $header_printed++;
printf qq(%20s %9d %9d %5.2f%%\n),
$device, $total, $1, 100*$1/$total;
}
}
$ perl free.pl dr
Device Size Free Pct
EISNER$DRA1: 17768448 11648757 65.56%
EISNER$DRA2: 17768448 4343628 24.45%
EISNER$DRA3: 17768448 10134819 57.04%
EISNER$DRA4: 17768448 6402495 36.03%
EISNER$DRA6: 41891840 5700015 13.61%


Hein.

[Scotty HD]

#Consider the following silly 'one liner':
if i were sitting at the edge of my seat then i would be have
been on the floor by the time i finished reading the silly one liner. haa

#Same PERL example in a more proper simple program format:
thank you a lot. i will read through this.

#But it would really help to understand what you want to
#calculate/process to help suggest what might be best.
we do performance testing a lot, i want comparison results in %.
X is 10.25% faster than Y. but i think i will only get 10 with dcl.

Scotty

[RBrown_1]

Are the numbers too large to multiply by 100 on more time?

Multiply by 100 before you divide. Use some trickery to insert a decimal point between the last two digits and the rest of the number.

Trickery could be converting to string and inserting the "." into the string. Or doing divide and remainder arithmetic to separate the integer from the fraction.

Or create this tool in a compiled (or assembled) language.

[John Gillings]

Scotty,
DCL can do some things well, but other things are slow and cumbersome. Yes, all things are possible if you want to spend unlimited time, but in DCL Floating point is somewhat beyond just slow and cumbersome, it comes in the category of serious masochism and nasty bugs looking for places to cause the most havok.

Forget attempting to implement floating point in DCL for anything other than academic exercise. As Hein has suggested, use Perl. It has floating point already and will be MUCH MUCH faster than anything you can create in DCL.

[Scotty HD]

Thanks all for replies.

i will do trickery part in dcl for now as you have suggested.
for long term plans, i would use perl.

does perl come with openvms or do i have to install it seperately ?
any link for download/documentation ?

can dcl and perl talk to each other ?
just like how dcl com procedure can call c program.
can dcl com procedure call perl scripts for doing some work ?

Scotty

[Hein van den Heuvel]

>> will do trickery part in dcl for now as you have suggested.

sounds reasonable.


>> does perl come with openvms or do i have to install it seperately ?
any link for download/documentation

It does not come bundled but you can find it pre-build as executables bith from the VMS sites and the perl sites.
Easy start:

http://h71000.www7.hp.com/openvms/products/ips/apache/csws_modperl.html

Documentation is all over the web and many books.
I just like to install some distro on my PC and take it from there. Suggestion:
http://h71000.www7.hp.com/openvms/products/ips/apache/csws_modperl.html

>> can dcl and perl talk to each other ?
just like how dcl com procedure can call c program.

Sure, that's what my examples did, and they call called (spawned) commands. Perl program ca n readily get and set dcl symbol to communicate.

Cheers,
Hein.

[Hein van den Heuvel]

oops, cut & paste error in my prior reply.
Meant to point to one perl distribution which I have good experiences with: http://www.activestate.com/activeperl/downloads

Hein

[Robert Atkinson]

Scotty, I'd save yourself a lot of time and effort and download the simple ICALC EXE from Hunter's web site - http://vms.process.com/scripts/fileserv/fileserv.com?ICALC


Example :-

$ icalc 67.889 + 45.76 /1.45
99.44762069
$ sh sym icalc_out
ICALC_OUT = "99.44762069"


$ icalc
IC> ?
ICALC Version 2.3 of 11-Mar-1999

== Arithmetic Operators == == Trig Functions ==
+ Addition (plus) Note : take radian arguments)
- Subtraction (minus) sin sine
* Multiplication (times) sinh hyperbolic sine
/ Division (divided by) asin arc sine
% Modulus (remainder) cos cosine
^ Power (raised to) cosh hyperbolic cosine
acos arc cosine
== Bitwise Logical Operators == tan tangent
& bitwise AND tanh hyperbolic tangent
| bitwise inclusive OR atan arc tangent
~ unary one's complement atan2 arc tangent of x/y
(2 arguments needed)

== Date Functions == == Math Functions ==
caltojul calendar to julian date exp exponentiation
Usage: caltojul(yyyy, mm, dd) ln natural log
Returns: #days elapsed since October 15, 1582 log base 10 log
jultocal julian to calendar date sqrt square root
Usage: jultocal(julian_date) hypot sqrt(X^2+Y^2)
Returns: date in yyyymmdd format ceil ceiling
Eg: caltojul(1989,12,31) <=> jultocal(148732) floor floor
int,trunc truncation
abs absolute value
degtorad degrees -> radians
== Help Functions == radtodeg radians -> degrees
? Help (print this screen) ran2(0) random in [0,1[
rand(0) random in [0,2^31-1[