ruby-dcl 1.6.2

data/demo/grph2/ulpack/ulpk02n.rb

@@ -0,0 +1,111 @@
+#
+# ulpk02.rb
+#
+# $Id: ulpk02n.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+nbl = 2
+
+#-- data ---
+bl = [1.0, 3.0]
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn(+iws.abs)
+
+DCL::sglset('LFULL', true)
+DCL::uzfact(0.6)
+DCL::slrat(1.0, 0.75)
+DCL::sldiv('Y', 7, 1)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 1)
+DCL::ulylog('L', 1, 9)
+ctl = 'ULYLOG (IYTYPE=1,NLBL=1,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sglset('LCNTL', true)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 1)
+DCL::ulylog('L', 3, 9)
+ctl = 'ULYLOG (IYTYPE=1,NLBL=3,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 2)
+DCL::ulylog('L', 3, 9)
+ctl = 'ULYLOG (IYTYPE=2,NLBL=3,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 3)
+DCL::ulylog('L', 3, 9)
+ctl = 'ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 4)
+DCL::ulylog('L', 3, 9)
+ctl = 'ULYLOG (IYTYPE=4,NLBL=3,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::ulysfm('(F5.1)')
+DCL::uliset('IYTYPE', 3)
+DCL::ulylog('L', 3, 9)
+ctl = 'ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgfrm
+DCL::uzinit
+DCL::sgswnd(0.2, 200.0, -0.15, -200.0)
+DCL::sgsvpt(0.13, 0.14, 0.1, 0.9)
+DCL::sgstrn(4)
+DCL::sgstrf
+DCL::uliset('IYTYPE', 1)
+DCL::uliset('IYCHR', 194)
+DCL::ulsybl(bl)
+DCL::ulylog('L', 4, 5)
+ctl = 'ULYLOG (IYTYPE=1,NLBL=4,NTCK=5)'
+DCL::uysttl('L', ctl, 0.0)
+
+DCL::sgcls
+

data/demo/grph2/umpack/t811231.dat

@@ -0,0 +1,296 @@
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283
+ 245.283 245.283 245.283
+ 245.107 245.104 245.102 245.098 245.089 245.072 245.048 245.020 244.992 244.970
+ 244.961 244.968 244.993 245.031 245.078 245.124 245.161 245.179 245.175 245.149
+ 245.107 245.057 245.014 244.987 244.987 245.019 245.083 245.172 245.276 245.384
+ 245.481 245.559 245.612 245.637 245.638 245.619 245.589 245.553 245.516 245.480
+ 245.446 245.410 245.371 245.328 245.281 245.232 245.186 245.147 245.118 245.104
+ 245.103 245.116 245.137 245.161 245.185 245.203 245.214 245.218 245.216 245.212
+ 245.206 245.202 245.200 245.199 245.196 245.192 245.183 245.171 245.156 245.139
+ 245.125 245.114 245.107
+ 244.757 244.750 244.742 244.729 244.707 244.675 244.636 244.597 244.565 244.549
+ 244.554 244.583 244.633 244.698 244.767 244.828 244.871 244.891 244.887 244.863
+ 244.830 244.800 244.786 244.799 244.845 244.924 245.030 245.153 245.281 245.400
+ 245.500 245.575 245.622 245.643 245.641 245.622 245.591 245.552 245.504 245.449
+ 245.385 245.311 245.228 245.138 245.047 244.960 244.882 244.819 244.773 244.745
+ 244.733 244.734 244.744 244.758 244.774 244.792 244.811 244.834 244.860 244.890
+ 244.922 244.951 244.974 244.986 244.984 244.967 244.938 244.900 244.859 244.821
+ 244.791 244.770 244.757
+ 244.196 244.182 244.167 244.146 244.119 244.088 244.056 244.030 244.015 244.017
+ 244.037 244.074 244.125 244.181 244.238 244.287 244.327 244.355 244.374 244.391
+ 244.411 244.441 244.484 244.544 244.617 244.700 244.787 244.872 244.949 245.016
+ 245.069 245.109 245.138 245.157 245.166 245.164 245.150 245.121 245.075 245.009
+ 244.925 244.826 244.715 244.600 244.486 244.378 244.282 244.197 244.125 244.064
+ 244.011 243.968 243.933 243.909 243.899 243.908 243.936 243.985 244.050 244.128
+ 244.208 244.283 244.344 244.385 244.402 244.397 244.374 244.339 244.301 244.264
+ 244.235 244.212 244.196
+ 243.383 243.383 243.381 243.373 243.361 243.347 243.334 243.327 243.328 243.340
+ 243.363 243.393 243.426 243.459 243.490 243.516 243.540 243.565 243.594 243.633
+ 243.684 243.746 243.819 243.897 243.974 244.044 244.100 244.139 244.160 244.163
+ 244.151 244.128 244.097 244.062 244.023 243.981 243.935 243.884 243.827 243.765
+ 243.698 243.629 243.558 243.485 243.410 243.330 243.242 243.143 243.033 242.912
+ 242.787 242.664 242.557 242.475 242.431 242.430 242.476 242.565 242.688 242.832
+ 242.981 243.121 243.239 243.329 243.387 243.416 243.423 243.416 243.403 243.391
+ 243.384 243.382 243.383
+ 242.257 242.346 242.427 242.490 242.530 242.546 242.540 242.518 242.489 242.460
+ 242.438 242.426 242.425 242.433 242.447 242.465 242.483 242.500 242.517 242.533
+ 242.550 242.567 242.583 242.597 242.605 242.606 242.596 242.575 242.543 242.500
+ 242.447 242.388 242.322 242.253 242.179 242.104 242.027 241.952 241.883 241.822
+ 241.775 241.743 241.725 241.717 241.711 241.697 241.663 241.598 241.498 241.361
+ 241.194 241.013 240.836 240.685 240.581 240.538 240.566 240.663 240.816 241.009
+ 241.218 241.421 241.599 241.741 241.842 241.906 241.944 241.970 241.998 242.038
+ 242.096 242.171 242.257
+ 240.703 240.885 241.055 241.198 241.300 241.352 241.353 241.310 241.234 241.142
+ 241.051 240.977 240.929 240.913 240.926 240.959 241.001 241.037 241.054 241.044
+ 241.003 240.932 240.839 240.734 240.628 240.532 240.452 240.390 240.344 240.305
+ 240.264 240.210 240.136 240.038 239.920 239.789 239.659 239.546 239.464 239.423
+ 239.430 239.481 239.564 239.661 239.749 239.806 239.812 239.752 239.624 239.435
+ 239.202 238.950 238.707 238.503 238.363 238.302 238.327 238.433 238.606 238.824
+ 239.061 239.295 239.504 239.678 239.813 239.914 239.992 240.063 240.143 240.243
+ 240.372 240.528 240.703
+ 238.692 238.960 239.211 239.418 239.558 239.616 239.591 239.493 239.343 239.171
+ 239.005 238.874 238.796 238.779 238.817 238.894 238.988 239.072 239.122 239.122
+ 239.063 238.951 238.797 238.621 238.444 238.285 238.158 238.066 238.005 237.964
+ 237.926 237.876 237.801 237.696 237.563 237.413 237.265 237.138 237.054 237.027
+ 237.063 237.158 237.298 237.458 237.610 237.725 237.777 237.748 237.632 237.435
+ 237.176 236.883 236.590 236.331 236.136 236.028 236.016 236.098 236.260 236.480
+ 236.727 236.975 237.199 237.384 237.526 237.630 237.712 237.792 237.891 238.027
+ 238.209 238.434 238.692
+ 236.370 236.644 236.891 237.087 237.210 237.252 237.213 237.105 236.951 236.778
+ 236.613 236.484 236.407 236.391 236.435 236.526 236.643 236.764 236.865 236.925
+ 236.934 236.888 236.792 236.659 236.504 236.346 236.198 236.069 235.962 235.872
+ 235.791 235.708 235.614 235.503 235.380 235.252 235.134 235.046 235.003 235.020
+ 235.100 235.236 235.413 235.603 235.775 235.896 235.939 235.886 235.734 235.491
+ 235.183 234.842 234.508 234.218 234.004 233.885 233.868 233.945 234.096 234.294
+ 234.510 234.716 234.893 235.031 235.132 235.207 235.276 235.358 235.474 235.635
+ 235.845 236.095 236.370
+ 233.932 234.178 234.391 234.549 234.639 234.657 234.607 234.505 234.369 234.224
+ 234.091 233.989 233.932 233.927 233.975 234.068 234.196 234.344 234.498 234.642
+ 234.761 234.847 234.891 234.893 234.852 234.776 234.669 234.541 234.397 234.245
+ 234.089 233.932 233.777 233.630 233.495 233.380 233.297 233.255 233.264 233.328
+ 233.446 233.608 233.795 233.981 234.138 234.233 234.245 234.156 233.967 233.689
+ 233.351 232.988 232.641 232.348 232.141 232.034 232.032 232.118 232.269 232.452
+ 232.635 232.790 232.901 232.964 232.988 232.992 233.000 233.035 233.117 233.255
+ 233.447 233.680 233.932
+ 231.848 232.031 232.185 232.296 232.356 232.365 232.329 232.258 232.167 232.070
+ 231.980 231.911 231.870 231.866 231.902 231.979 232.094 232.243 232.418 232.607
+ 232.797 232.974 233.124 233.235 233.297 233.305 233.258 233.160 233.018 232.842
+ 232.642 232.432 232.224 232.030 231.863 231.733 231.652 231.627 231.661 231.752
+ 231.892 232.064 232.247 232.412 232.533 232.584 232.548 232.418 232.200 231.914
+ 231.589 231.260 230.965 230.735 230.590 230.539 230.575 230.678 230.821 230.973
+ 231.106 231.200 231.248 231.250 231.223 231.185 231.159 231.167 231.221 231.325
+ 231.475 231.655 231.848
+ 230.311 230.439 230.536 230.597 230.624 230.622 230.598 230.561 230.519 230.478
+ 230.444 230.420 230.409 230.415 230.441 230.490 230.565 230.665 230.790 230.934
+ 231.088 231.245 231.391 231.516 231.611 231.667 231.680 231.646 231.565 231.441
+ 231.277 231.084 230.871 230.653 230.447 230.271 230.143 230.077 230.079 230.151
+ 230.280 230.447 230.625 230.782 230.888 230.919 230.861 230.716 230.496 230.230
+ 229.952 229.698 229.499 229.379 229.344 229.389 229.494 229.632 229.772 229.886
+ 229.956 229.972 229.941 229.876 229.799 229.733 229.700 229.711 229.772 229.877
+ 230.013 230.164 230.311
+ 229.189 229.280 229.353 229.406 229.439 229.454 229.453 229.440 229.418 229.391
+ 229.365 229.345 229.336 229.343 229.368 229.413 229.474 229.545 229.622 229.698
+ 229.767 229.828 229.881 229.928 229.972 230.012 230.047 230.071 230.075 230.046
+ 229.975 229.855 229.687 229.480 229.254 229.033 228.845 228.716 228.663 228.691
+ 228.792 228.945 229.118 229.274 229.382 229.415 229.364 229.234 229.046 228.829
+ 228.621 228.454 228.353 228.331 228.384 228.497 228.643 228.794 228.923 229.008
+ 229.041 229.023 228.967 228.891 228.815 228.757 228.733 228.746 228.797 228.878
+ 228.978 229.086 229.189
+ 228.429 228.462 228.493 228.523 228.553 228.581 228.602 228.613 228.610 228.595
+ 228.572 228.549 228.534 228.537 228.561 228.606 228.665 228.727 228.779 228.809
+ 228.810 228.784 228.738 228.685 228.641 228.622 228.633 228.675 228.735 228.794
+ 228.829 228.818 228.746 228.612 228.425 228.208 227.993 227.810 227.688 227.643
+ 227.677 227.776 227.914 228.060 228.181 228.252 228.260 228.208 228.109 227.988
+ 227.873 227.789 227.752 227.768 227.830 227.921 228.022 228.111 228.173 228.201
+ 228.195 228.165 228.125 228.091 228.073 228.080 228.110 228.160 228.221 228.283
+ 228.341 228.389 228.429
+ 227.844 227.793 227.754 227.734 227.736 227.758 227.791 227.826 227.854 227.870
+ 227.875 227.875 227.878 227.895 227.932 227.991 228.067 228.148 228.220 228.266
+ 228.274 228.239 228.166 228.067 227.960 227.867 227.804 227.781 227.798 227.844
+ 227.902 227.949 227.964 227.933 227.853 227.731 227.584 227.435 227.309 227.225
+ 227.196 227.221 227.292 227.390 227.495 227.587 227.651 227.680 227.678 227.652
+ 227.616 227.581 227.558 227.551 227.559 227.575 227.593 227.607 227.613 227.612
+ 227.609 227.612 227.629 227.662 227.714 227.777 227.842 227.899 227.937 227.948
+ 227.932 227.894 227.844
+ 227.499 227.359 227.248 227.178 227.153 227.171 227.221 227.291 227.364 227.430
+ 227.481 227.516 227.539 227.558 227.582 227.620 227.673 227.741 227.813 227.879
+ 227.924 227.937 227.910 227.842 227.741 227.618 227.493 227.381 227.299 227.255
+ 227.251 227.282 227.334 227.390 227.435 227.454 227.439 227.389 227.312 227.219
+ 227.129 227.057 227.018 227.022 227.072 227.162 227.283 227.419 227.552 227.664
+ 227.742 227.775 227.760 227.700 227.605 227.488 227.369 227.264 227.191 227.164
+ 227.187 227.261 227.376 227.519 227.669 227.805 227.908 227.961 227.957 227.896
+ 227.788 227.649 227.499
+ 227.455 227.270 227.122 227.026 226.984 226.994 227.046 227.128 227.224 227.322
+ 227.410 227.482 227.535 227.572 227.597 227.617 227.639 227.666 227.698 227.730
+ 227.755 227.760 227.736 227.673 227.570 227.429 227.262 227.089 226.932 226.812
+ 226.749 226.751 226.817 226.933 227.078 227.222 227.335 227.394 227.385 227.309
+ 227.180 227.026 226.879 226.775 226.741 226.791 226.925 227.124 227.360 227.592
+ 227.781 227.896 227.918 227.843 227.688 227.482 227.265 227.075 226.950 226.911
+ 226.968 227.112 227.320 227.561 227.797 227.994 228.125 228.175 228.139 228.028
+ 227.860 227.661 227.455
+ 227.528 227.386 227.284 227.224 227.202 227.213 227.248 227.301 227.368 227.442
+ 227.520 227.595 227.662 227.716 227.750 227.763 227.755 227.728 227.687 227.637
+ 227.579 227.513 227.437 227.343 227.226 227.084 226.919 226.744 226.576 226.438
+ 226.352 226.335 226.395 226.525 226.703 226.896 227.065 227.172 227.192 227.115
+ 226.952 226.733 226.504 226.316 226.214 226.229 226.369 226.619 226.940 227.279
+ 227.577 227.785 227.871 227.825 227.665 227.431 227.176 226.954 226.814 226.785
+ 226.875 227.069 227.334 227.624 227.893 228.102 228.225 228.251 228.189 228.058
+ 227.886 227.701 227.528
+ 227.430 227.368 227.351 227.369 227.408 227.454 227.496 227.528 227.551 227.569
+ 227.589 227.614 227.645 227.676 227.701 227.711 227.697 227.655 227.582 227.482
+ 227.360 227.221 227.070 226.910 226.743 226.571 226.397 226.231 226.083 225.969
+ 225.906 225.906 225.974 226.102 226.272 226.454 226.613 226.712 226.727 226.646
+ 226.478 226.252 226.011 225.807 225.686 225.684 225.812 226.060 226.392 226.755
+ 227.091 227.346 227.484 227.493 227.386 227.200 226.986 226.800 226.690 226.685
+ 226.793 226.997 227.261 227.540 227.788 227.966 228.055 228.050 227.967 227.832
+ 227.679 227.537 227.430
+ 227.232 227.243 227.293 227.367 227.444 227.506 227.542 227.546 227.523 227.482
+ 227.436 227.397 227.372 227.362 227.364 227.368 227.364 227.339 227.287 227.202
+ 227.085 226.938 226.766 226.575 226.374 226.171 225.975 225.798 225.653 225.553
+ 225.509 225.528 225.609 225.741 225.905 226.073 226.214 226.299 226.307 226.232
+ 226.082 225.883 225.675 225.499 225.398 225.399 225.515 225.735 226.031 226.359
+ 226.671 226.921 227.080 227.135 227.096 226.991 226.861 226.748 226.690 226.708
+ 226.808 226.973 227.176 227.379 227.548 227.657 227.692 227.657 227.570 227.458
+ 227.349 227.269 227.232
+ 227.030 227.043 227.093 227.168 227.250 227.320 227.361 227.361 227.318 227.239
+ 227.137 227.030 226.936 226.871 226.842 226.849 226.883 226.928 226.962 226.964
+ 226.914 226.802 226.624 226.389 226.113 225.821 225.543 225.307 225.139 225.054
+ 225.057 225.143 225.293 225.481 225.675 225.843 225.957 226.000 225.966 225.862
+ 225.709 225.536 225.377 225.265 225.226 225.274 225.412 225.627 225.893 226.181
+ 226.456 226.689 226.862 226.964 227.003 226.992 226.957 226.921 226.908 226.930
+ 226.991 227.086 227.198 227.307 227.393 227.439 227.439 227.394 227.314 227.219
+ 227.128 227.060 227.030
+ 227.348 227.280 227.250 227.257 227.297 227.355 227.411 227.445 227.443 227.396
+ 227.309 227.195 227.075 226.973 226.910 226.896 226.929 226.991 227.054 227.080
+ 227.035 226.891 226.639 226.285 225.859 225.405 224.975 224.621 224.385 224.288
+ 224.332 224.495 224.737 225.006 225.251 225.427 225.507 225.483 225.365 225.183
+ 224.975 224.785 224.650 224.599 224.646 224.790 225.019 225.309 225.634 225.967
+ 226.282 226.564 226.800 226.987 227.128 227.230 227.301 227.352 227.395 227.437
+ 227.486 227.543 227.608 227.674 227.734 227.777 227.794 227.778 227.728 227.647
+ 227.547 227.441 227.348
+ 228.249 228.128 228.034 227.979 227.966 227.989 228.030 228.068 228.085 228.066
+ 228.011 227.929 227.839 227.766 227.729 227.736 227.782 227.841 227.872 227.827
+ 227.662 227.344 226.868 226.253 225.548 224.825 224.161 223.632 223.293 223.170
+ 223.253 223.498 223.837 224.186 224.468 224.621 224.611 224.437 224.130 223.744
+ 223.348 223.009 222.786 222.715 222.809 223.062 223.445 223.922 224.452 224.998
+ 225.529 226.024 226.472 226.867 227.206 227.493 227.728 227.917 228.064 228.177
+ 228.265 228.338 228.405 228.471 228.536 228.596 228.641 228.662 228.647 228.592
+ 228.500 228.380 228.249
+ 229.122 229.013 228.923 228.865 228.845 228.857 228.889 228.925 228.949 228.955
+ 228.944 228.930 228.931 228.965 229.044 229.161 229.291 229.388 229.394 229.247
+ 228.894 228.310 227.500 226.510 225.420 224.332 223.355 222.587 222.093 221.896
+ 221.971 222.248 222.625 222.989 223.235 223.284 223.096 222.681 222.086 221.395
+ 220.705 220.113 219.700 219.519 219.591 219.908 220.433 221.119 221.910 222.754
+ 223.609 224.439 225.224 225.947 226.598 227.170 227.659 228.064 228.386 228.632
+ 228.816 228.951 229.055 229.142 229.221 229.294 229.356 229.399 229.412 229.388
+ 229.325 229.232 229.122
+ 228.870 228.868 228.875 228.894 228.923 228.955 228.978 228.984 228.971 228.947
+ 228.931 228.953 229.042 229.223 229.502 229.863 230.256 230.610 230.834 230.838
+ 230.545 229.916 228.956 227.722 226.317 224.876 223.544 222.450 221.685 221.285
+ 221.221 221.411 221.728 222.027 222.173 222.062 221.642 220.920 219.957 218.858
+ 217.754 216.774 216.030 215.601 215.522 215.789 216.363 217.184 218.180 219.282
+ 220.429 221.573 222.680 223.724 224.688 225.559 226.323 226.972 227.503 227.915
+ 228.219 228.430 228.568 228.655 228.713 228.756 228.792 228.825 228.852 228.870
+ 228.878 228.876 228.870
+ 226.187 226.330 226.487 226.642 226.776 226.872 226.917 226.906 226.849 226.771
+ 226.715 226.735 226.889 227.223 227.760 228.489 229.354 230.263 231.093 231.710
+ 231.990 231.847 231.246 230.218 228.857 227.308 225.739 224.318 223.178 222.396
+ 221.979 221.861 221.922 222.009 221.965 221.662 221.022 220.033 218.750 217.282
+ 215.772 214.373 213.222 212.422 212.028 212.047 212.444 213.156 214.106 215.214
+ 216.413 217.650 218.886 220.094 221.252 222.340 223.334 224.212 224.951 225.534
+ 225.954 226.217 226.341 226.355 226.294 226.195 226.089 226.003 225.952 225.946
+ 225.986 226.068 226.187
+ 221.082 221.316 221.563 221.798 221.995 222.132 222.193 222.171 222.079 221.950
+ 221.842 221.830 222.003 222.443 223.210 224.325 225.755 227.412 229.152 230.801
+ 232.175 233.109 233.490 233.278 232.511 231.304 229.825 228.269 226.819 225.615
+ 224.728 224.153 223.810 223.568 223.270 222.771 221.965 220.809 219.327 217.610
+ 215.790 214.025 212.461 211.219 210.372 209.945 209.916 210.233 210.826 211.621
+ 212.556 213.583 214.667 215.781 216.899 217.994 219.029 219.962 220.749 221.354
+ 221.755 221.950 221.959 221.820 221.586 221.311 221.049 220.843 220.718 220.687
+ 220.746 220.884 221.082
+ 214.367 214.560 214.761 214.955 215.127 215.261 215.344 215.364 215.321 215.235
+ 215.151 215.146 215.319 215.784 216.648 217.986 219.823 222.111 224.729 227.489
+ 230.162 232.505 234.306 235.415 235.771 235.412 234.466 233.127 231.614 230.135
+ 228.847 227.830 227.078 226.510 225.991 225.368 224.506 223.319 221.787 219.958
+ 217.942 215.883 213.935 212.231 210.867 209.890 209.298 209.052 209.090 209.348
+ 209.768 210.307 210.937 211.641 212.399 213.188 213.968 214.693 215.309 215.765
+ 216.028 216.088 215.959 215.682 215.316 214.924 214.567 214.289 214.116 214.053
+ 214.089 214.202 214.367
+ 207.670 207.714 207.761 207.819 207.893 207.982 208.076 208.158 208.211 208.230
+ 208.237 208.289 208.480 208.931 209.779 211.144 213.105 215.670 218.766 222.234
+ 225.841 229.318 232.392 234.831 236.482 237.290 237.309 236.681 235.609 234.317
+ 233.007 231.822 230.828 230.011 229.286 228.530 227.611 226.424 224.915 223.092
+ 221.025 218.826 216.634 214.581 212.775 211.284 210.134 209.309 208.768 208.457
+ 208.321 208.317 208.410 208.580 208.805 209.064 209.330 209.566 209.737 209.809
+ 209.760 209.590 209.315 208.970 208.601 208.254 207.966 207.760 207.640 207.592
+ 207.596 207.628 207.670
+ 202.215 202.097 201.970 201.868 201.822 201.852 201.954 202.112 202.295 202.473
+ 202.638 202.811 203.055 203.475 204.203 205.376 207.110 209.469 212.444 215.940
+ 219.780 223.725 227.506 230.862 233.581 235.531 236.674 237.066 236.842 236.181
+ 235.275 234.287 233.329 232.446 231.616 230.768 229.807 228.637 227.195 225.459
+ 223.464 221.285 219.031 216.823 214.769 212.953 211.422 210.186 209.223 208.488
+ 207.927 207.485 207.114 206.778 206.452 206.117 205.763 205.383 204.974 204.541
+ 204.094 203.651 203.236 202.876 202.593 202.400 202.298 202.270 202.289 202.320
+ 202.330 202.297 202.215
+ 198.360 198.164 197.949 197.762 197.651 197.647 197.760 197.976 198.264 198.588
+ 198.916 199.242 199.592 200.031 200.657 201.590 202.944 204.809 207.227 210.171
+ 213.545 217.190 220.899 224.449 227.629 230.272 232.275 233.608 234.311 234.482
+ 234.248 233.744 233.083 232.339 231.543 230.682 229.712 228.578 227.231 225.646
+ 223.834 221.840 219.740 217.628 215.600 213.737 212.097 210.703 209.550 208.601
+ 207.803 207.094 206.413 205.714 204.963 204.149 203.277 202.369 201.458 200.585
+ 199.793 199.120 198.597 198.240 198.049 198.006 198.078 198.217 198.371 198.490
+ 198.537 198.493 198.360
+ 195.633 195.454 195.264 195.113 195.044 195.087 195.255 195.538 195.911 196.340
+ 196.792 197.246 197.705 198.202 198.793 199.559 200.587 201.957 203.726 205.908
+ 208.474 211.344 214.394 217.477 220.431 223.109 225.392 227.204 228.515 229.344
+ 229.742 229.785 229.550 229.108 228.508 227.773 226.906 225.892 224.713 223.358
+ 221.831 220.157 218.384 216.575 214.801 213.130 211.612 210.277 209.128 208.140
+ 207.267 206.450 205.631 204.758 203.797 202.737 201.593 200.401 199.215 198.095
+ 197.103 196.288 195.684 195.301 195.126 195.124 195.244 195.426 195.610 195.746
+ 195.800 195.759 195.633
+ 193.604 193.533 193.472 193.455 193.509 193.652 193.889 194.214 194.608 195.052
+ 195.526 196.019 196.533 197.086 197.710 198.448 199.347 200.452 201.794 203.385
+ 205.213 207.242 209.412 211.644 213.852 215.948 217.854 219.505 220.860 221.899
+ 222.623 223.049 223.206 223.126 222.840 222.375 221.750 220.976 220.063 219.021
+ 217.861 216.604 215.277 213.915 212.557 211.241 209.999 208.851 207.803 206.846
+ 205.954 205.094 204.227 203.316 202.338 201.282 200.158 198.994 197.833 196.726
+ 195.726 194.879 194.216 193.751 193.474 193.358 193.363 193.439 193.539 193.622
+ 193.664 193.655 193.604
+ 192.255 192.293 192.372 192.505 192.699 192.955 193.265 193.617 193.998 194.399
+ 194.815 195.254 195.730 196.268 196.893 197.629 198.495 199.497 200.630 201.876
+ 203.207 204.590 205.988 207.368 208.700 209.962 211.135 212.206 213.163 213.992
+ 214.683 215.221 215.595 215.796 215.819 215.667 215.349 214.881 214.283 213.579
+ 212.793 211.946 211.059 210.146 209.220 208.294 207.374 206.469 205.583 204.719
+ 203.875 203.047 202.226 201.401 200.562 199.700 198.815 197.914 197.011 196.131
+ 195.300 194.548 193.899 193.368 192.961 192.670 192.478 192.363 192.300 192.267
+ 192.250 192.244 192.255
+ 192.232 192.335 192.487 192.685 192.925 193.198 193.492 193.796 194.101 194.405
+ 194.717 195.050 195.430 195.881 196.427 197.083 197.848 198.710 199.640 200.597
+ 201.541 202.430 203.238 203.948 204.565 205.104 205.591 206.053 206.509 206.969
+ 207.428 207.866 208.254 208.560 208.753 208.815 208.739 208.532 208.215 207.813
+ 207.356 206.865 206.357 205.838 205.304 204.747 204.159 203.536 202.877 202.192
+ 201.495 200.802 200.129 199.486 198.877 198.299 197.741 197.192 196.642 196.085
+ 195.523 194.963 194.421 193.914 193.458 193.068 192.750 192.506 192.333 192.225
+ 192.175 192.178 192.232
+ 194.079 194.161 194.275 194.418 194.581 194.755 194.931 195.102 195.263 195.418
+ 195.574 195.745 195.951 196.211 196.539 196.944 197.423 197.958 198.525 199.089
+ 199.615 200.073 200.444 200.722 200.916 201.049 201.150 201.251 201.377 201.544
+ 201.754 201.993 202.240 202.465 202.640 202.745 202.768 202.709 202.581 202.402
+ 202.191 201.966 201.737 201.508 201.273 201.022 200.744 200.431 200.080 199.697
+ 199.293 198.885 198.491 198.123 197.791 197.495 197.228 196.978 196.733 196.480
+ 196.210 195.922 195.621 195.317 195.022 194.751 194.514 194.321 194.177 194.082
+ 194.037 194.037 194.079
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745
+ 197.745 197.745 197.745

data/demo/grph2/umpack/test01.rb

@@ -0,0 +1,69 @@
+#
+# test01.rb
+#
+# $Id: test01.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+nx = 19
+ny = 19
+xmin = 0
+xmax = 360
+ymin = -90
+ymax = +90
+dx1 = 20
+dx2 = 60
+dy1 = 10
+dy2 = 30
+drad = PI / 180
+dz = 0.05
+dp = 0.2
+p = NArray.new(Float, nx, ny)
+
+#-- data ---
+for j in 0..ny-1
+  for i in 0..nx-1
+    alon = (xmin + (xmax-xmin)*i/(nx-1)) * drad
+    alat = (ymin + (ymax-ymin)*j/(ny-1)) * drad
+    slat = sin(alat)
+    p[i,j] = cos(alon) * (1-slat**2) * sin(2*PI*slat) + dz
+  end
+end
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+rmiss = DCL::glrget('RMISS')
+DCL::sglset('LSOFTF', false)
+
+DCL::grfrm
+DCL::grswnd(xmin, xmax, ymin, ymax)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::uestlv(rmiss, -dp, 201)
+DCL::uestlv(dp, dp*2, 401)
+DCL::uestlv(dp*2, rmiss, 402)
+DCL::uetone(p)
+
+DCL::uxaxdv('B', dx1, dx2)
+DCL::uxaxdv('T', dx1, dx2)
+DCL::uxsttl('B', 'LONGITUDE', 0.0)
+
+DCL::uyaxdv('L', dy1, dy2)
+DCL::uyaxdv('R', dy1, dy2)
+DCL::uysttl('L', 'LATITUDE', 0.0)
+
+DCL::udgclb(p, dp)
+DCL::udcntr(p)
+
+DCL::grcls
+