SCOUG-General Mailing List Archives

<< Previous Message <<

Date:	Sun, 8 Jun 2003 23:37:14 PDT7
From:	"Li, Man Chiu" <ManChiuLi@fairisaac.com >
Reply-To:	scoug-general@scoug.com
To:	<scoug-general@scoug.com >
Subject:	SCOUG-General: Tonight's really dumb situation - if anybody's still awake

Content Type: text/plain

Should the line
if (y < ymin) then ymin =3D x
be
if (y < ymin) then ymin =3D y ?
------------------------------^

-----Original Message-----
From: Virginia R. Hetrick [mailto:drjuice@gte.net]
Sent: Sunday, June 08, 2003 4:04 PM
To: scoug-general@scoug.com
Subject: SCOUG-General: Tonight's really dumb situation - if anybody's
still awake

I've been fussing with the following little bitty rexx program for two
hours. I can't believe I'm having so much trouble with it. Can anybody
see anything wrong with what I've got? I sure can't. A small sample
from the end of the data file presently at
d:\cincom\CensusBureau\co06_d00.nobounds is also below as a comment at
the end of the rexx program.

Thanks for any light anybody can shed.

virginia
--
\ / Virginia R. Hetrick, here in sunny California
0 Voicemail: 310.471.1766 Email: drjuice@gte.net
Oo "There is always hope."
My health site: http://www.yana.org/hetrick
Site of the month: http://www.washington.edu
/* */
xmin =3D 1000000.
ymin =3D xmin
xmax =3D -xmin
ymax =3D xmax
kntr =3D 0
do forever
thisline =3D linein("d:\cincom\CensusBureau\co06-d00.nobounds")
parse var thisline x y .
say "thisline =3D " || thisline
say "x =3D " || x
say "y =3D " || y

if x =3D y then leave
if (x < xmin) then xmin =3D x
if (x > xmax) then xmax =3D x
if (y < ymin) then ymin =3D x
if (y > ymax) then ymax =3D y
end
say "xmin =3D "xmin
say "ymin =3D "ymin
say "xmax =3D "xmax
say "ymax =3D "ymax
/*
-0.118524531000000 0.328954880000000
-0.118535823000000 0.329062800000000
-0.118551134000000 0.329451550000000
-0.118560887000000 0.329578910000000
-0.118573522000000 0.329691830000000
-0.118586928000000 0.330082810000000
-0.118596037000000 0.330153570000000
-0.118606559000000 0.330146900000000
-0.118605534000000 0.330309990000000
-0.118594033000000 0.330359510000000
-0.118587938415284 0.330353083770155
-0.118581313717210 0.330346098580114
END END
*/

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D

To unsubscribe to this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-general".

For problems, contact the list owner at
"rollin@scoug.com".

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D

=====================================================

To unsubscribe to this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-general".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 08 | June | 2003 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.