(in-package :om)(load-lib-for (quote ("OM-SRR")))(setf *om-current-persistent* (om-load-patch1 "2-polar representation" (quote ((let ((box (om-load-boxcomment "comment 3" (om-make-point 133 48) (quote "use polar-plot function $to convert into polar $representation") "" (om-make-point 427 341) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 10.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 214 44) (quote "Polar Representations") "" (om-make-point 250 94) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 116 58) (quote "OM-SRR") "" (om-make-point 246 54) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 117 34) (quote "3-Dimensional") "" (om-make-point 691 596) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 117 34) (quote "2-Dimensional") "" (om-make-point 433 409) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 117 34) (quote "1-Dimensional") "" (om-make-point 242 294) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "POLAR-PLOT" (quote polar-plot) (quote ((om-load-inputfun (quote input-funbox) "" "SRR" nil))) (om-make-point 370 344) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 800 326) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 6)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU 2" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 933 325) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 3)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-SRR 2" (quote gen-srr) (quote ((om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil) (om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil))) (om-make-point 908 403) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPC" (quote bpc) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 0))) (om-make-point 692 341) (om-make-point 79 93) (let ((newobj (when (find-class (quote bpc) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.00999 0.01991 0.0297 0.03928 0.0486 0.0576 0.06621 0.07438 0.08207 0.08921 0.09577 0.10172 0.10702 0.11165 0.11559 0.11883 0.12136 0.12317 0.12429 0.12472 0.12448 0.1236 0.12211 0.12005 0.11746 0.1144 0.11091 0.10706 0.1029 0.09851 0.09394 0.08927 0.08458 0.07993 0.0754 0.07106 0.06697 0.06323 0.05988 0.05701 0.05466 0.0529 0.05178 0.05135 0.05166 0.05274 0.05463 0.05735 0.06092 0.06535 0.07065 0.07682 0.08384 0.09171 0.1004 0.10989 0.12012 0.13108 0.1427 0.15493 0.16771 0.18099 0.19469 0.20874 0.22307 0.23761 0.25226 0.26697 0.28164 0.2962 0.31056 0.32466 0.33842 0.35176 0.36461 0.37692 0.38862 0.39967 0.40999 0.41957 0.42837 0.43633 0.44346 0.44973 0.45515 0.45969 0.46339 0.46624 0.46827 0.46952 0.47002 0.4698 0.46893 0.46745 0.46545 0.46297 0.46009 0.45688 0.45342 0.4498 0.4461 0.4424 0.43878 0.43534 0.43215 0.4293 0.42686 0.42492 0.42353 0.42279 0.42272 0.42342 0.42491 0.42724 0.43045 0.43456 0.4396 0.44557 0.45248 0.46031 0.46905 0.47869 0.48918 0.50048 0.51254 0.52531 0.5387 0.55265 0.56708 0.58189 0.597 0.6123 0.62768 0.64305 0.65829 0.67328 0.68791 0.70205 0.71561 0.72847 0.7405 0.75161 0.76169 0.77062 0.77834 0.78473 0.78973 0.79325 0.79524 0.79562 0.79437 0.79143 0.78678 0.78042 0.77232 0.76251 0.75099 0.73779 0.72296 0.70653 0.68858 0.66918 0.64841 0.62636 0.60313 0.57884 0.55359 0.52753 0.50077 0.47344 0.44571 0.4177 0.38957 0.36146 0.33354 0.30595 0.27884 0.25236 0.22664 0.20184 0.1781 0.15552 0.13426 0.11442 0.0961 0.07941 0.06443 0.05126 0.03994 0.03055 0.02311 0.01767 0.01427 0.01288 0.01353 0.01618 0.02082 0.02741 0.0359 0.04621 0.05829 0.07204 0.08737 0.10419 0.12239 0.14182 0.16241 0.18397 0.20641 0.22957 0.25331 0.27748 0.30193 0.32654 0.35113 0.37556 0.3997 0.4234 0.44654 0.46897 0.49056 0.51122 0.53082 0.54926 0.56645 0.58229 0.59671 0.60965 0.62105 0.63086 0.63905 0.64559 0.65046 0.65367 0.65521 0.6551 0.65337 0.65005 0.64519 0.63884 0.63105 0.6219 0.61146 0.5998 0.58703 0.57322 0.55847 0.54288 0.52655 0.50959 0.49208 0.47415 0.45588 0.43738 0.41876 0.4001 0.3815 0.36306 0.34484 0.32694 0.30943 0.29237 0.27584 0.25987 0.24454 0.22987 0.21591 0.20268 0.19019 0.17848 0.16754 0.15737 0.14797 0.13934 0.13144 0.12426 0.11778 0.11194 0.10673 0.1021 0.098 0.0944 0.09123 0.08846 0.08603 0.08389 0.08199 0.08027 0.0787 0.07721 0.07577 0.07434 0.07286 0.0713 0.06964 0.06783 0.06586 0.06369 0.06132 0.05872 0.05589 0.05283 0.04953 0.04599 0.04222 0.03823 0.03405 0.02967 0.02513 0.02044 0.01564 0.01075 0.00579 8.0E-4 -0.0042 -0.00917 -0.01409 -0.01893 -0.02365 -0.02824 -0.03267 -0.03692 -0.04097 -0.04481 -0.04843 -0.05181 -0.05495 -0.05785 -0.06052 -0.06296 -0.06519 -0.06723 -0.06908 -0.07079 -0.07238 -0.07388 -0.07532 -0.07676 -0.07822 -0.07976 -0.08143 -0.08327 -0.08532 -0.08766 -0.09032 -0.09335 -0.09681 -0.10074 -0.1052 -0.11022 -0.11585 -0.12213 -0.12908 -0.13675 -0.14515 -0.1543 -0.16422 -0.17491 -0.18638 -0.19862 -0.21161 -0.22535 -0.23979 -0.25492 -0.27069 -0.28704 -0.30394 -0.32131 -0.3391 -0.35722 -0.3756 -0.39416 -0.41281 -0.43146 -0.45 -0.46835 -0.4864 -0.50406 -0.52121 -0.53775 -0.55359 -0.56861 -0.58273 -0.59585 -0.60787 -0.6187 -0.62827 -0.63651 -0.64332 -0.64867 -0.65248 -0.65472 -0.65535 -0.65433 -0.65166 -0.64732 -0.64131 -0.63365 -0.62436 -0.61346 -0.601 -0.58704 -0.57164 -0.55488 -0.53683 -0.51759 -0.49726 -0.47594 -0.45377 -0.43085 -0.40731 -0.3833 -0.35894 -0.33438 -0.30977 -0.28525 -0.26097 -0.23708 -0.21372 -0.19104 -0.16918 -0.14827 -0.12845 -0.10984 -0.09258 -0.07676 -0.06249 -0.04987 -0.03898 -0.02991 -0.02272 -0.01745 -0.01416 -0.01287 -0.01361 -0.01637 -0.02117 -0.02796 -0.03674 -0.04746 -0.06005 -0.07445 -0.0906 -0.10842 -0.12779 -0.14861 -0.17078 -0.19417 -0.21865 -0.24408 -0.27034 -0.29726 -0.32472 -0.35256 -0.38062 -0.40876 -0.43681 -0.46466 -0.49212 -0.51907 -0.54538 -0.57091 -0.59551 -0.61908 -0.64152 -0.66271 -0.68255 -0.70096 -0.71788 -0.73322 -0.74695 -0.75901 -0.76937 -0.77801 -0.78492 -0.79011 -0.79359 -0.79537 -0.7955 -0.79402 -0.79098 -0.78644 -0.78048 -0.77318 -0.76462 -0.75489 -0.7441 -0.73235 -0.71974 -0.7064 -0.69242 -0.67794 -0.66305 -0.64788 -0.63254 -0.61715 -0.60182 -0.58664 -0.57173 -0.55717 -0.54306 -0.52948 -0.51651 -0.50422 -0.49268 -0.48193 -0.47202 -0.46299 -0.45487 -0.44766 -0.44141 -0.43608 -0.43168 -0.42819 -0.42558 -0.42384 -0.42289 -0.42273 -0.42326 -0.42445 -0.42623 -0.42852 -0.43126 -0.43435 -0.43771 -0.44129 -0.44497 -0.44869 -0.45234 -0.45586 -0.45915 -0.46215 -0.46476 -0.46693 -0.46858 -0.46965 -0.47007 -0.4698 -0.4688 -0.46702 -0.46442 -0.461 -0.45672 -0.45159 -0.44558 -0.43872 -0.43101 -0.42247 -0.41313 -0.40303 -0.39221 -0.38071 -0.36858 -0.35589 -0.34269 -0.32906 -0.31506 -0.30077 -0.28626 -0.27161 -0.25691 -0.24222 -0.22764 -0.21323 -0.19908 -0.18526 -0.17184 -0.15889 -0.14647 -0.13466 -0.12349 -0.11302 -0.10329 -0.09434 -0.08621 -0.07891 -0.07247 -0.0669 -0.06219 -0.05835 -0.05537 -0.05322 -0.05188 -0.05134 -0.05154 -0.05244 -0.054 -0.05618 -0.05889 -0.0621 -0.06573 -0.06971 -0.07398 -0.07846 -0.08308 -0.08777 -0.09245 -0.09706 -0.10152 -0.10576 -0.10971 -0.11333 -0.11653 -0.11927 -0.12151 -0.12318 -0.12426 -0.1247 -0.12449 -0.12358 -0.12199 -0.11968 -0.11667 -0.11295 -0.10854 -0.10345 -0.0977 -0.09133 -0.08436 -0.07684 -0.06882 -0.06034 -0.05146 -0.04224 -0.03273 -0.023 -0.01311 -0.00314)) (quote (1.0 0.99884 0.99536 0.98958 0.98154 0.97127 0.95886 0.94434 0.92781 0.90937 0.88911 0.86715 0.84361 0.81861 0.7923 0.76482 0.73633 0.70697 0.67689 0.64627 0.61527 0.58403 0.55273 0.52152 0.49057 0.46003 0.43005 0.40076 0.37231 0.34483 0.31845 0.29327 0.26939 0.24694 0.22596 0.20655 0.18878 0.17268 0.15831 0.14568 0.13483 0.12576 0.11846 0.1129 0.10908 0.10695 0.10645 0.10754 0.11016 0.11421 0.11962 0.1263 0.13416 0.1431 0.153 0.16376 0.17527 0.18741 0.20007 0.21312 0.22646 0.23996 0.25351 0.26702 0.28036 0.29344 0.30615 0.31841 0.33013 0.34125 0.35166 0.36131 0.37017 0.37815 0.38524 0.39138 0.39657 0.40078 0.40401 0.40624 0.4075 0.40779 0.40714 0.40557 0.40312 0.39984 0.39576 0.39094 0.38543 0.37929 0.37259 0.36538 0.35774 0.34972 0.3414 0.33285 0.32412 0.3153 0.30643 0.29758 0.28881 0.28018 0.27172 0.26349 0.25554 0.24789 0.24058 0.23364 0.22708 0.22092 0.21519 0.20986 0.20495 0.20045 0.19635 0.19264 0.18929 0.18627 0.18357 0.18114 0.17896 0.17698 0.17517 0.17348 0.17187 0.1703 0.16873 0.16711 0.1654 0.16355 0.16154 0.15932 0.15686 0.15413 0.15111 0.14776 0.14406 0.14002 0.1356 0.13081 0.12564 0.12011 0.11421 0.10796 0.10137 0.09448 0.0873 0.07987 0.07222 0.06439 0.05642 0.04835 0.04024 0.03212 0.02404 0.01606 0.00823 6.0E-4 -0.00679 -0.01389 -0.02064 -0.02701 -0.03295 -0.03843 -0.04342 -0.04787 -0.05177 -0.0551 -0.05784 -0.05998 -0.06151 -0.06245 -0.06279 -0.06255 -0.06175 -0.06042 -0.05859 -0.05629 -0.05358 -0.05049 -0.04709 -0.04343 -0.03958 -0.0356 -0.03157 -0.02755 -0.02363 -0.01988 -0.01637 -0.0132 -0.01044 -0.00816 -0.00644 -0.00536 -0.00498 -0.00539 -0.00664 -0.00878 -0.01189 -0.016 -0.02115 -0.02738 -0.03473 -0.0432 -0.05282 -0.06359 -0.0755 -0.08855 -0.10271 -0.11796 -0.13426 -0.15157 -0.16982 -0.18896 -0.20893 -0.22965 -0.25103 -0.27299 -0.29542 -0.31825 -0.34136 -0.36464 -0.38799 -0.4113 -0.43444 -0.45732 -0.4798 -0.50179 -0.52317 -0.54383 -0.56366 -0.58257 -0.60047 -0.61724 -0.63283 -0.64714 -0.66011 -0.67166 -0.68176 -0.69036 -0.69741 -0.7029 -0.70679 -0.7091 -0.70981 -0.70896 -0.70655 -0.70261 -0.6972 -0.69036 -0.68216 -0.67265 -0.66192 -0.65005 -0.63714 -0.62328 -0.60857 -0.59312 -0.57704 -0.56044 -0.54345 -0.52618 -0.50875 -0.49129 -0.4739 -0.45671 -0.43983 -0.42337 -0.40744 -0.39213 -0.37755 -0.36377 -0.3509 -0.33898 -0.32811 -0.31832 -0.30968 -0.30222 -0.29597 -0.29095 -0.28717 -0.28463 -0.28334 -0.28326 -0.28437 -0.28663 -0.28999 -0.29442 -0.29983 -0.30618 -0.31336 -0.32132 -0.32995 -0.33918 -0.3489 -0.35901 -0.36942 -0.38002 -0.39071 -0.40139 -0.41195 -0.4223 -0.43233 -0.44196 -0.4511 -0.45966 -0.46756 -0.47473 -0.48111 -0.48663 -0.49124 -0.49492 -0.49761 -0.49932 -0.49999 -0.49964 -0.49828 -0.49589 -0.49253 -0.48821 -0.48297 -0.47686 -0.46993 -0.46226 -0.4539 -0.44495 -0.43547 -0.42555 -0.41529 -0.40479 -0.39414 -0.38345 -0.37281 -0.36232 -0.3521 -0.34225 -0.33286 -0.32402 -0.31584 -0.30839 -0.30178 -0.29607 -0.29131 -0.2876 -0.28498 -0.2835 -0.2832 -0.28411 -0.28625 -0.28963 -0.29425 -0.30011 -0.30718 -0.31546 -0.32488 -0.33541 -0.347 -0.35958 -0.37307 -0.38741 -0.40249 -0.41823 -0.43454 -0.4513 -0.4684 -0.48574 -0.50319 -0.52065 -0.53797 -0.55507 -0.5718 -0.58805 -0.60371 -0.61867 -0.63282 -0.64604 -0.65825 -0.66935 -0.67926 -0.68788 -0.69517 -0.70104 -0.70545 -0.70835 -0.70971 -0.70949 -0.70769 -0.7043 -0.69933 -0.69276 -0.68466 -0.67504 -0.66394 -0.65142 -0.63753 -0.62235 -0.60594 -0.58839 -0.5698 -0.55025 -0.52984 -0.50867 -0.48687 -0.46453 -0.44177 -0.41869 -0.39543 -0.37208 -0.34876 -0.32559 -0.30266 -0.28009 -0.25797 -0.23639 -0.21545 -0.19525 -0.17583 -0.15728 -0.13967 -0.12305 -0.10746 -0.09295 -0.07954 -0.06726 -0.05613 -0.04614 -0.0373 -0.0296 -0.02301 -0.01752 -0.01309 -0.00967 -0.00722 -0.00569 -0.00503 -0.00516 -0.00602 -0.00754 -0.00965 -0.01227 -0.01533 -0.01873 -0.02241 -0.02629 -0.03028 -0.03432 -0.03832 -0.04222 -0.04595 -0.04944 -0.05263 -0.05547 -0.0579 -0.05989 -0.06138 -0.06235 -0.06277 -0.06262 -0.06187 -0.06053 -0.05858 -0.05603 -0.05289 -0.04917 -0.04489 -0.04007 -0.03474 -0.02894 -0.0227 -0.01607 -0.00908 -0.00178 0.00578 0.01356 0.02149 0.02954 0.03765 0.04578 0.05387 0.06187 0.06976 0.07747 0.08497 0.09223 0.09922 0.1059 0.11226 0.11827 0.12393 0.12921 0.13412 0.13865 0.14282 0.14662 0.15008 0.15321 0.15603 0.15857 0.16086 0.16294 0.16483 0.16658 0.16822 0.16981 0.17138 0.17297 0.17462 0.17639 0.17832 0.18043 0.18278 0.18539 0.18831 0.19155 0.19515 0.19912 0.2035 0.20828 0.21347 0.21908 0.22511 0.23154 0.23837 0.24557 0.25312 0.26098 0.26913 0.27752 0.2861 0.29484 0.30367 0.31254 0.32138 0.33015 0.33876 0.34716 0.35528 0.36305 0.3704 0.37728 0.3836 0.38931 0.39436 0.39868 0.40222 0.40493 0.40678 0.40772 0.40773 0.40677 0.40485 0.40194 0.39803 0.39315 0.38731 0.38051 0.37281 0.36422 0.3548 0.34462 0.33372 0.32218 0.31008 0.2975 0.28451 0.27124 0.25777 0.24422 0.23069 0.21728 0.20413 0.19133 0.17901 0.16729 0.15627 0.14608 0.13682 0.12862 0.12155 0.11572 0.11122 0.10815 0.10657 0.10655 0.10816 0.11145 0.11645 0.12319 0.13171 0.142 0.15407 0.16789 0.18344 0.2007 0.2196 0.24009 0.26209 0.28552 0.3103 0.33633 0.36348 0.39163 0.42067 0.45045 0.48084 0.51168 0.54282 0.57411 0.60538 0.63649 0.66725 0.69751 0.72713 0.75591 0.78373 0.81042 0.83585 0.85987 0.88235 0.90315 0.92218 0.93933 0.95448 0.96758 0.97854 0.98729 0.99378 0.99799 0.99989)) (quote bpc) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPC") newbpf)))) (when newobj) newobj) "x" nil (pairlis (quote (picture winpos winsize)) (list nil (om-make-point 10 40) (om-make-point 463 631))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "3DC" (quote 3dc) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 10)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Z coordinates (list)" "z-points" (list 0 0)) (om-load-inputfun (quote input-funbox) "precision (number)" "decimals" 5))) (om-make-point 690 487) (om-make-point 99 106) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (0.0 0.00999 0.01991 0.0297 0.03928 0.0486 0.0576 0.06621 0.07438 0.08207 0.08921 0.09577 0.10172 0.10702 0.11165 0.11559 0.11883 0.12136 0.12317 0.12429 0.12472 0.12448 0.1236 0.12211 0.12005 0.11746 0.1144 0.11091 0.10706 0.1029 0.09851 0.09394 0.08927 0.08458 0.07993 0.0754 0.07106 0.06697 0.06323 0.05988 0.05701 0.05466 0.0529 0.05178 0.05135 0.05166 0.05274 0.05463 0.05735 0.06092 0.06535 0.07065 0.07682 0.08384 0.09171 0.1004 0.10989 0.12012 0.13108 0.1427 0.15493 0.16771 0.18099 0.19469 0.20874 0.22307 0.23761 0.25226 0.26697 0.28164 0.2962 0.31056 0.32466 0.33842 0.35176 0.36461 0.37692 0.38862 0.39967 0.40999 0.41957 0.42837 0.43633 0.44346 0.44973 0.45515 0.45969 0.46339 0.46624 0.46827 0.46952 0.47002 0.4698 0.46893 0.46745 0.46545 0.46297 0.46009 0.45688 0.45342 0.4498 0.4461 0.4424 0.43878 0.43534 0.43215 0.4293 0.42686 0.42492 0.42353 0.42279 0.42272 0.42342 0.42491 0.42724 0.43045 0.43456 0.4396 0.44557 0.45248 0.46031 0.46905 0.47869 0.48918 0.50048 0.51254 0.52531 0.5387 0.55265 0.56708 0.58189 0.597 0.6123 0.62768 0.64305 0.65829 0.67328 0.68791 0.70205 0.71561 0.72847 0.7405 0.75161 0.76169 0.77062 0.77834 0.78473 0.78973 0.79325 0.79524 0.79562 0.79437 0.79143 0.78678 0.78042 0.77232 0.76251 0.75099 0.73779 0.72296 0.70653 0.68858 0.66918 0.64841 0.62636 0.60313 0.57884 0.55359 0.52753 0.50077 0.47344 0.44571 0.4177 0.38957 0.36146 0.33354 0.30595 0.27884 0.25236 0.22664 0.20184 0.1781 0.15552 0.13426 0.11442 0.0961 0.07941 0.06443 0.05126 0.03994 0.03055 0.02311 0.01767 0.01427 0.01288 0.01353 0.01618 0.02082 0.02741 0.0359 0.04621 0.05829 0.07204 0.08737 0.10419 0.12239 0.14182 0.16241 0.18397 0.20641 0.22957 0.25331 0.27748 0.30193 0.32654 0.35113 0.37556 0.3997 0.4234 0.44654 0.46897 0.49056 0.51122 0.53082 0.54926 0.56645 0.58229 0.59671 0.60965 0.62105 0.63086 0.63905 0.64559 0.65046 0.65367 0.65521 0.6551 0.65337 0.65005 0.64519 0.63884 0.63105 0.6219 0.61146 0.5998 0.58703 0.57322 0.55847 0.54288 0.52655 0.50959 0.49208 0.47415 0.45588 0.43738 0.41876 0.4001 0.3815 0.36306 0.34484 0.32694 0.30943 0.29237 0.27584 0.25987 0.24454 0.22987 0.21591 0.20268 0.19019 0.17848 0.16754 0.15737 0.14797 0.13934 0.13144 0.12426 0.11778 0.11194 0.10673 0.1021 0.098 0.0944 0.09123 0.08846 0.08603 0.08389 0.08199 0.08027 0.0787 0.07721 0.07577 0.07434 0.07286 0.0713 0.06964 0.06783 0.06586 0.06369 0.06132 0.05872 0.05589 0.05283 0.04953 0.04599 0.04222 0.03823 0.03405 0.02967 0.02513 0.02044 0.01564 0.01075 0.00579 8.0E-4 -0.0042 -0.00917 -0.01409 -0.01893 -0.02365 -0.02824 -0.03267 -0.03692 -0.04097 -0.04481 -0.04843 -0.05181 -0.05495 -0.05785 -0.06052 -0.06296 -0.06519 -0.06723 -0.06908 -0.07079 -0.07238 -0.07388 -0.07532 -0.07676 -0.07822 -0.07976 -0.08143 -0.08327 -0.08532 -0.08766 -0.09032 -0.09335 -0.09681 -0.10074 -0.1052 -0.11022 -0.11585 -0.12213 -0.12908 -0.13675 -0.14515 -0.1543 -0.16422 -0.17491 -0.18638 -0.19862 -0.21161 -0.22535 -0.23979 -0.25492 -0.27069 -0.28704 -0.30394 -0.32131 -0.3391 -0.35722 -0.3756 -0.39416 -0.41281 -0.43146 -0.45 -0.46835 -0.4864 -0.50406 -0.52121 -0.53775 -0.55359 -0.56861 -0.58273 -0.59585 -0.60787 -0.6187 -0.62827 -0.63651 -0.64332 -0.64867 -0.65248 -0.65472 -0.65535 -0.65433 -0.65166 -0.64732 -0.64131 -0.63365 -0.62436 -0.61346 -0.601 -0.58704 -0.57164 -0.55488 -0.53683 -0.51759 -0.49726 -0.47594 -0.45377 -0.43085 -0.40731 -0.3833 -0.35894 -0.33438 -0.30977 -0.28525 -0.26097 -0.23708 -0.21372 -0.19104 -0.16918 -0.14827 -0.12845 -0.10984 -0.09258 -0.07676 -0.06249 -0.04987 -0.03898 -0.02991 -0.02272 -0.01745 -0.01416 -0.01287 -0.01361 -0.01637 -0.02117 -0.02796 -0.03674 -0.04746 -0.06005 -0.07445 -0.0906 -0.10842 -0.12779 -0.14861 -0.17078 -0.19417 -0.21865 -0.24408 -0.27034 -0.29726 -0.32472 -0.35256 -0.38062 -0.40876 -0.43681 -0.46466 -0.49212 -0.51907 -0.54538 -0.57091 -0.59551 -0.61908 -0.64152 -0.66271 -0.68255 -0.70096 -0.71788 -0.73322 -0.74695 -0.75901 -0.76937 -0.77801 -0.78492 -0.79011 -0.79359 -0.79537 -0.7955 -0.79402 -0.79098 -0.78644 -0.78048 -0.77318 -0.76462 -0.75489 -0.7441 -0.73235 -0.71974 -0.7064 -0.69242 -0.67794 -0.66305 -0.64788 -0.63254 -0.61715 -0.60182 -0.58664 -0.57173 -0.55717 -0.54306 -0.52948 -0.51651 -0.50422 -0.49268 -0.48193 -0.47202 -0.46299 -0.45487 -0.44766 -0.44141 -0.43608 -0.43168 -0.42819 -0.42558 -0.42384 -0.42289 -0.42273 -0.42326 -0.42445 -0.42623 -0.42852 -0.43126 -0.43435 -0.43771 -0.44129 -0.44497 -0.44869 -0.45234 -0.45586 -0.45915 -0.46215 -0.46476 -0.46693 -0.46858 -0.46965 -0.47007 -0.4698 -0.4688 -0.46702 -0.46442 -0.461 -0.45672 -0.45159 -0.44558 -0.43872 -0.43101 -0.42247 -0.41313 -0.40303 -0.39221 -0.38071 -0.36858 -0.35589 -0.34269 -0.32906 -0.31506 -0.30077 -0.28626 -0.27161 -0.25691 -0.24222 -0.22764 -0.21323 -0.19908 -0.18526 -0.17184 -0.15889 -0.14647 -0.13466 -0.12349 -0.11302 -0.10329 -0.09434 -0.08621 -0.07891 -0.07247 -0.0669 -0.06219 -0.05835 -0.05537 -0.05322 -0.05188 -0.05134 -0.05154 -0.05244 -0.054 -0.05618 -0.05889 -0.0621 -0.06573 -0.06971 -0.07398 -0.07846 -0.08308 -0.08777 -0.09245 -0.09706 -0.10152 -0.10576 -0.10971 -0.11333 -0.11653 -0.11927 -0.12151 -0.12318 -0.12426 -0.1247 -0.12449 -0.12358 -0.12199 -0.11968 -0.11667 -0.11295 -0.10854 -0.10345 -0.0977 -0.09133 -0.08436 -0.07684 -0.06882 -0.06034 -0.05146 -0.04224 -0.03273 -0.023 -0.01311 -0.00314)) (quote (1.0 0.99884 0.99536 0.98958 0.98154 0.97127 0.95886 0.94434 0.92781 0.90937 0.88911 0.86715 0.84361 0.81861 0.7923 0.76482 0.73633 0.70697 0.67689 0.64627 0.61527 0.58403 0.55273 0.52152 0.49057 0.46003 0.43005 0.40076 0.37231 0.34483 0.31845 0.29327 0.26939 0.24694 0.22596 0.20655 0.18878 0.17268 0.15831 0.14568 0.13483 0.12576 0.11846 0.1129 0.10908 0.10695 0.10645 0.10754 0.11016 0.11421 0.11962 0.1263 0.13416 0.1431 0.153 0.16376 0.17527 0.18741 0.20007 0.21312 0.22646 0.23996 0.25351 0.26702 0.28036 0.29344 0.30615 0.31841 0.33013 0.34125 0.35166 0.36131 0.37017 0.37815 0.38524 0.39138 0.39657 0.40078 0.40401 0.40624 0.4075 0.40779 0.40714 0.40557 0.40312 0.39984 0.39576 0.39094 0.38543 0.37929 0.37259 0.36538 0.35774 0.34972 0.3414 0.33285 0.32412 0.3153 0.30643 0.29758 0.28881 0.28018 0.27172 0.26349 0.25554 0.24789 0.24058 0.23364 0.22708 0.22092 0.21519 0.20986 0.20495 0.20045 0.19635 0.19264 0.18929 0.18627 0.18357 0.18114 0.17896 0.17698 0.17517 0.17348 0.17187 0.1703 0.16873 0.16711 0.1654 0.16355 0.16154 0.15932 0.15686 0.15413 0.15111 0.14776 0.14406 0.14002 0.1356 0.13081 0.12564 0.12011 0.11421 0.10796 0.10137 0.09448 0.0873 0.07987 0.07222 0.06439 0.05642 0.04835 0.04024 0.03212 0.02404 0.01606 0.00823 6.0E-4 -0.00679 -0.01389 -0.02064 -0.02701 -0.03295 -0.03843 -0.04342 -0.04787 -0.05177 -0.0551 -0.05784 -0.05998 -0.06151 -0.06245 -0.06279 -0.06255 -0.06175 -0.06042 -0.05859 -0.05629 -0.05358 -0.05049 -0.04709 -0.04343 -0.03958 -0.0356 -0.03157 -0.02755 -0.02363 -0.01988 -0.01637 -0.0132 -0.01044 -0.00816 -0.00644 -0.00536 -0.00498 -0.00539 -0.00664 -0.00878 -0.01189 -0.016 -0.02115 -0.02738 -0.03473 -0.0432 -0.05282 -0.06359 -0.0755 -0.08855 -0.10271 -0.11796 -0.13426 -0.15157 -0.16982 -0.18896 -0.20893 -0.22965 -0.25103 -0.27299 -0.29542 -0.31825 -0.34136 -0.36464 -0.38799 -0.4113 -0.43444 -0.45732 -0.4798 -0.50179 -0.52317 -0.54383 -0.56366 -0.58257 -0.60047 -0.61724 -0.63283 -0.64714 -0.66011 -0.67166 -0.68176 -0.69036 -0.69741 -0.7029 -0.70679 -0.7091 -0.70981 -0.70896 -0.70655 -0.70261 -0.6972 -0.69036 -0.68216 -0.67265 -0.66192 -0.65005 -0.63714 -0.62328 -0.60857 -0.59312 -0.57704 -0.56044 -0.54345 -0.52618 -0.50875 -0.49129 -0.4739 -0.45671 -0.43983 -0.42337 -0.40744 -0.39213 -0.37755 -0.36377 -0.3509 -0.33898 -0.32811 -0.31832 -0.30968 -0.30222 -0.29597 -0.29095 -0.28717 -0.28463 -0.28334 -0.28326 -0.28437 -0.28663 -0.28999 -0.29442 -0.29983 -0.30618 -0.31336 -0.32132 -0.32995 -0.33918 -0.3489 -0.35901 -0.36942 -0.38002 -0.39071 -0.40139 -0.41195 -0.4223 -0.43233 -0.44196 -0.4511 -0.45966 -0.46756 -0.47473 -0.48111 -0.48663 -0.49124 -0.49492 -0.49761 -0.49932 -0.49999 -0.49964 -0.49828 -0.49589 -0.49253 -0.48821 -0.48297 -0.47686 -0.46993 -0.46226 -0.4539 -0.44495 -0.43547 -0.42555 -0.41529 -0.40479 -0.39414 -0.38345 -0.37281 -0.36232 -0.3521 -0.34225 -0.33286 -0.32402 -0.31584 -0.30839 -0.30178 -0.29607 -0.29131 -0.2876 -0.28498 -0.2835 -0.2832 -0.28411 -0.28625 -0.28963 -0.29425 -0.30011 -0.30718 -0.31546 -0.32488 -0.33541 -0.347 -0.35958 -0.37307 -0.38741 -0.40249 -0.41823 -0.43454 -0.4513 -0.4684 -0.48574 -0.50319 -0.52065 -0.53797 -0.55507 -0.5718 -0.58805 -0.60371 -0.61867 -0.63282 -0.64604 -0.65825 -0.66935 -0.67926 -0.68788 -0.69517 -0.70104 -0.70545 -0.70835 -0.70971 -0.70949 -0.70769 -0.7043 -0.69933 -0.69276 -0.68466 -0.67504 -0.66394 -0.65142 -0.63753 -0.62235 -0.60594 -0.58839 -0.5698 -0.55025 -0.52984 -0.50867 -0.48687 -0.46453 -0.44177 -0.41869 -0.39543 -0.37208 -0.34876 -0.32559 -0.30266 -0.28009 -0.25797 -0.23639 -0.21545 -0.19525 -0.17583 -0.15728 -0.13967 -0.12305 -0.10746 -0.09295 -0.07954 -0.06726 -0.05613 -0.04614 -0.0373 -0.0296 -0.02301 -0.01752 -0.01309 -0.00967 -0.00722 -0.00569 -0.00503 -0.00516 -0.00602 -0.00754 -0.00965 -0.01227 -0.01533 -0.01873 -0.02241 -0.02629 -0.03028 -0.03432 -0.03832 -0.04222 -0.04595 -0.04944 -0.05263 -0.05547 -0.0579 -0.05989 -0.06138 -0.06235 -0.06277 -0.06262 -0.06187 -0.06053 -0.05858 -0.05603 -0.05289 -0.04917 -0.04489 -0.04007 -0.03474 -0.02894 -0.0227 -0.01607 -0.00908 -0.00178 0.00578 0.01356 0.02149 0.02954 0.03765 0.04578 0.05387 0.06187 0.06976 0.07747 0.08497 0.09223 0.09922 0.1059 0.11226 0.11827 0.12393 0.12921 0.13412 0.13865 0.14282 0.14662 0.15008 0.15321 0.15603 0.15857 0.16086 0.16294 0.16483 0.16658 0.16822 0.16981 0.17138 0.17297 0.17462 0.17639 0.17832 0.18043 0.18278 0.18539 0.18831 0.19155 0.19515 0.19912 0.2035 0.20828 0.21347 0.21908 0.22511 0.23154 0.23837 0.24557 0.25312 0.26098 0.26913 0.27752 0.2861 0.29484 0.30367 0.31254 0.32138 0.33015 0.33876 0.34716 0.35528 0.36305 0.3704 0.37728 0.3836 0.38931 0.39436 0.39868 0.40222 0.40493 0.40678 0.40772 0.40773 0.40677 0.40485 0.40194 0.39803 0.39315 0.38731 0.38051 0.37281 0.36422 0.3548 0.34462 0.33372 0.32218 0.31008 0.2975 0.28451 0.27124 0.25777 0.24422 0.23069 0.21728 0.20413 0.19133 0.17901 0.16729 0.15627 0.14608 0.13682 0.12862 0.12155 0.11572 0.11122 0.10815 0.10657 0.10655 0.10816 0.11145 0.11645 0.12319 0.13171 0.142 0.15407 0.16789 0.18344 0.2007 0.2196 0.24009 0.26209 0.28552 0.3103 0.33633 0.36348 0.39163 0.42067 0.45045 0.48084 0.51168 0.54282 0.57411 0.60538 0.63649 0.66725 0.69751 0.72713 0.75591 0.78373 0.81042 0.83585 0.85987 0.88235 0.90315 0.92218 0.93933 0.95448 0.96758 0.97854 0.98729 0.99378 0.99799 0.99989)) (quote (1.0 0.99919 0.99676 0.99271 0.98707 0.97986 0.97111 0.96085 0.94913 0.93598 0.92148 0.90567 0.88862 0.87039 0.85107 0.83073 0.80945 0.78731 0.76441 0.74083 0.71667 0.69202 0.66699 0.64166 0.61613 0.59051 0.5649 0.53938 0.51406 0.48903 0.46438 0.4402 0.41659 0.39362 0.37138 0.34994 0.32937 0.30975 0.29113 0.27358 0.25714 0.24188 0.22782 0.215 0.20346 0.19321 0.18428 0.17667 0.1704 0.16546 0.16185 0.15955 0.15854 0.15881 0.16031 0.16302 0.1669 0.1719 0.17796 0.18505 0.19309 0.20202 0.21179 0.22231 0.23353 0.24536 0.25773 0.27057 0.28379 0.29732 0.31107 0.32498 0.33895 0.35292 0.3668 0.38053 0.39402 0.40721 0.42003 0.43242 0.44432 0.45567 0.46641 0.4765 0.4859 0.49455 0.50244 0.50953 0.51579 0.52121 0.52578 0.52947 0.5323 0.53426 0.53537 0.53563 0.53506 0.53369 0.53154 0.52865 0.52506 0.52081 0.51594 0.51051 0.50456 0.49816 0.49137 0.48424 0.47684 0.46924 0.46151 0.45371 0.44592 0.4382 0.43063 0.42327 0.41619 0.40947 0.40316 0.39734 0.39205 0.38737 0.38334 0.38002 0.37746 0.3757 0.37479 0.37475 0.37562 0.37743 0.3802 0.38394 0.38866 0.39437 0.40107 0.40875 0.4174 0.42701 0.43755 0.44898 0.46128 0.47442 0.48834 0.50299 0.51833 0.53429 0.55082 0.56783 0.58528 0.60308 0.62116 0.63943 0.65783 0.67625 0.69463 0.71287 0.73089 0.7486 0.76593 0.78277 0.79905 0.81468 0.82959 0.84369 0.85691 0.86917 0.88041 0.89056 0.89956 0.90734 0.91387 0.91908 0.92294 0.92541 0.92646 0.92607 0.92421 0.92087 0.91605 0.90974 0.90195 0.89269 0.88199 0.86986 0.85634 0.84147 0.82528 0.80784 0.78918 0.76939 0.74851 0.72662 0.70379 0.68012 0.65566 0.63053 0.60479 0.57856 0.55192 0.52497 0.49782 0.47055 0.44327 0.41609 0.3891 0.36241 0.33611 0.31031 0.28509 0.26055 0.23679 0.21389 0.19193 0.171 0.15117 0.13251 0.1151 0.09899 0.08423 0.07089 0.05899 0.04859 0.03971 0.03238 0.02662 0.02244 0.01985 0.01884 0.01942 0.02156 0.02526 0.03047 0.03717 0.04532 0.05488 0.0658 0.07802 0.09148 0.10612 0.12187 0.13865 0.15639 0.17501 0.19442 0.21455 0.23529 0.25655 0.27826 0.30031 0.32262 0.34508 0.36762 0.39012 0.41251 0.4347 0.4566 0.47811 0.49917 0.5197 0.53961 0.55884 0.57731 0.59498 0.61177 0.62763 0.64253 0.65641 0.66923 0.68097 0.6916 0.7011 0.70945 0.71665 0.7227 0.72758 0.73133 0.73395 0.73546 0.73588 0.73525 0.7336 0.73098 0.72743 0.72299 0.71772 0.71168 0.70493 0.69753 0.68954 0.68104 0.6721 0.66278 0.65315 0.64331 0.6333 0.62321 0.61311 0.60308 0.59317 0.58347 0.57404 0.56494 0.55624 0.54799 0.54025 0.53306 0.52649 0.52057 0.51533 0.51083 0.50707 0.5041 0.50192 0.50055 0.50001 0.50029 0.50139 0.50331 0.50603 0.50954 0.51381 0.51881 0.52452 0.53089 0.53788 0.54545 0.55354 0.56211 0.57108 0.58042 0.59004 0.59988 0.60988 0.61997 0.63007 0.64011 0.65002 0.65972 0.66915 0.67822 0.68687 0.69503 0.70262 0.70959 0.71586 0.72138 0.72609 0.72993 0.73286 0.73482 0.73578 0.7357 0.73454 0.73228 0.7289 0.72438 0.7187 0.71187 0.70389 0.69476 0.68448 0.6731 0.66062 0.64707 0.6325 0.61694 0.60044 0.58305 0.56483 0.54583 0.52613 0.5058 0.4849 0.46352 0.44174 0.41963 0.3973 0.37482 0.35229 0.32979 0.30742 0.28528 0.26345 0.24203 0.22112 0.20079 0.18114 0.16225 0.14423 0.12713 0.11104 0.09604 0.08219 0.06957 0.05823 0.04823 0.03962 0.03245 0.02676 0.02258 0.01994 0.01886 0.01936 0.02144 0.02512 0.03037 0.0372 0.04559 0.0555 0.06693 0.07981 0.09412 0.10981 0.12681 0.14508 0.16454 0.18513 0.20676 0.22937 0.25287 0.27717 0.30218 0.32781 0.35396 0.38054 0.40745 0.43458 0.46183 0.48911 0.51632 0.54334 0.57009 0.59647 0.62237 0.64771 0.67239 0.69632 0.71943 0.74163 0.76284 0.78299 0.80202 0.81985 0.83645 0.85175 0.8657 0.87828 0.88944 0.89916 0.90742 0.91421 0.9195 0.92332 0.92565 0.92651 0.92592 0.9239 0.92048 0.91569 0.90958 0.90219 0.89358 0.88379 0.87289 0.86095 0.84802 0.8342 0.81954 0.80413 0.78805 0.77137 0.75419 0.7366 0.71866 0.70048 0.68214 0.66372 0.6453 0.62698 0.60883 0.59093 0.57336 0.5562 0.53951 0.52336 0.50781 0.49293 0.47877 0.46538 0.45281 0.44109 0.43026 0.42035 0.41139 0.4034 0.39638 0.39035 0.38531 0.38126 0.37818 0.37607 0.3749 0.37465 0.37528 0.37678 0.37908 0.38216 0.38597 0.39045 0.39555 0.40121 0.40737 0.41397 0.42094 0.42821 0.43572 0.4434 0.45118 0.45898 0.46674 0.47439 0.48186 0.48908 0.49599 0.50253 0.50863 0.51423 0.51929 0.52374 0.52755 0.53067 0.53306 0.53468 0.53551 0.53552 0.53469 0.533 0.53045 0.52703 0.52275 0.5176 0.51161 0.50479 0.49715 0.48874 0.47958 0.46971 0.45917 0.44801 0.43629 0.42405 0.41136 0.39828 0.38488 0.37122 0.35739 0.34344 0.32947 0.31553 0.30172 0.28811 0.27478 0.26182 0.24929 0.23728 0.22586 0.21511 0.2051 0.19589 0.18756 0.18016 0.17377 0.16843 0.16418 0.1611 0.1592 0.15854 0.15914 0.16102 0.16421 0.16873 0.17457 0.18175 0.19026 0.20009 0.21122 0.22363 0.2373 0.25218 0.26824 0.28545 0.30373 0.32303 0.34331 0.36447 0.38647 0.40921 0.43263 0.45663 0.48114 0.50606 0.53129 0.55676 0.58235 0.60798 0.63354 0.65895 0.68408 0.70887 0.73319 0.75696 0.78009 0.80248 0.82404 0.84469 0.86435 0.88293 0.90036 0.91657 0.9315 0.94508 0.95727 0.968 0.97724 0.98494 0.99109 0.99564 0.99859 0.99992)) (quote 3dc) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "3DC") newbpf)))) (when newobj (setf (z-points newobj) (list 1.0 0.99919 0.99676 0.99271 0.98707 0.97986 0.97111 0.96085 0.94913 0.93598 0.92148 0.90567 0.88862 0.87039 0.85107 0.83073 0.80945 0.78731 0.76441 0.74083 0.71667 0.69202 0.66699 0.64166 0.61613 0.59051 0.5649 0.53938 0.51406 0.48903 0.46438 0.4402 0.41659 0.39362 0.37138 0.34994 0.32937 0.30975 0.29113 0.27358 0.25714 0.24188 0.22782 0.215 0.20346 0.19321 0.18428 0.17667 0.1704 0.16546 0.16185 0.15955 0.15854 0.15881 0.16031 0.16302 0.1669 0.1719 0.17796 0.18505 0.19309 0.20202 0.21179 0.22231 0.23353 0.24536 0.25773 0.27057 0.28379 0.29732 0.31107 0.32498 0.33895 0.35292 0.3668 0.38053 0.39402 0.40721 0.42003 0.43242 0.44432 0.45567 0.46641 0.4765 0.4859 0.49455 0.50244 0.50953 0.51579 0.52121 0.52578 0.52947 0.5323 0.53426 0.53537 0.53563 0.53506 0.53369 0.53154 0.52865 0.52506 0.52081 0.51594 0.51051 0.50456 0.49816 0.49137 0.48424 0.47684 0.46924 0.46151 0.45371 0.44592 0.4382 0.43063 0.42327 0.41619 0.40947 0.40316 0.39734 0.39205 0.38737 0.38334 0.38002 0.37746 0.3757 0.37479 0.37475 0.37562 0.37743 0.3802 0.38394 0.38866 0.39437 0.40107 0.40875 0.4174 0.42701 0.43755 0.44898 0.46128 0.47442 0.48834 0.50299 0.51833 0.53429 0.55082 0.56783 0.58528 0.60308 0.62116 0.63943 0.65783 0.67625 0.69463 0.71287 0.73089 0.7486 0.76593 0.78277 0.79905 0.81468 0.82959 0.84369 0.85691 0.86917 0.88041 0.89056 0.89956 0.90734 0.91387 0.91908 0.92294 0.92541 0.92646 0.92607 0.92421 0.92087 0.91605 0.90974 0.90195 0.89269 0.88199 0.86986 0.85634 0.84147 0.82528 0.80784 0.78918 0.76939 0.74851 0.72662 0.70379 0.68012 0.65566 0.63053 0.60479 0.57856 0.55192 0.52497 0.49782 0.47055 0.44327 0.41609 0.3891 0.36241 0.33611 0.31031 0.28509 0.26055 0.23679 0.21389 0.19193 0.171 0.15117 0.13251 0.1151 0.09899 0.08423 0.07089 0.05899 0.04859 0.03971 0.03238 0.02662 0.02244 0.01985 0.01884 0.01942 0.02156 0.02526 0.03047 0.03717 0.04532 0.05488 0.0658 0.07802 0.09148 0.10612 0.12187 0.13865 0.15639 0.17501 0.19442 0.21455 0.23529 0.25655 0.27826 0.30031 0.32262 0.34508 0.36762 0.39012 0.41251 0.4347 0.4566 0.47811 0.49917 0.5197 0.53961 0.55884 0.57731 0.59498 0.61177 0.62763 0.64253 0.65641 0.66923 0.68097 0.6916 0.7011 0.70945 0.71665 0.7227 0.72758 0.73133 0.73395 0.73546 0.73588 0.73525 0.7336 0.73098 0.72743 0.72299 0.71772 0.71168 0.70493 0.69753 0.68954 0.68104 0.6721 0.66278 0.65315 0.64331 0.6333 0.62321 0.61311 0.60308 0.59317 0.58347 0.57404 0.56494 0.55624 0.54799 0.54025 0.53306 0.52649 0.52057 0.51533 0.51083 0.50707 0.5041 0.50192 0.50055 0.50001 0.50029 0.50139 0.50331 0.50603 0.50954 0.51381 0.51881 0.52452 0.53089 0.53788 0.54545 0.55354 0.56211 0.57108 0.58042 0.59004 0.59988 0.60988 0.61997 0.63007 0.64011 0.65002 0.65972 0.66915 0.67822 0.68687 0.69503 0.70262 0.70959 0.71586 0.72138 0.72609 0.72993 0.73286 0.73482 0.73578 0.7357 0.73454 0.73228 0.7289 0.72438 0.7187 0.71187 0.70389 0.69476 0.68448 0.6731 0.66062 0.64707 0.6325 0.61694 0.60044 0.58305 0.56483 0.54583 0.52613 0.5058 0.4849 0.46352 0.44174 0.41963 0.3973 0.37482 0.35229 0.32979 0.30742 0.28528 0.26345 0.24203 0.22112 0.20079 0.18114 0.16225 0.14423 0.12713 0.11104 0.09604 0.08219 0.06957 0.05823 0.04823 0.03962 0.03245 0.02676 0.02258 0.01994 0.01886 0.01936 0.02144 0.02512 0.03037 0.0372 0.04559 0.0555 0.06693 0.07981 0.09412 0.10981 0.12681 0.14508 0.16454 0.18513 0.20676 0.22937 0.25287 0.27717 0.30218 0.32781 0.35396 0.38054 0.40745 0.43458 0.46183 0.48911 0.51632 0.54334 0.57009 0.59647 0.62237 0.64771 0.67239 0.69632 0.71943 0.74163 0.76284 0.78299 0.80202 0.81985 0.83645 0.85175 0.8657 0.87828 0.88944 0.89916 0.90742 0.91421 0.9195 0.92332 0.92565 0.92651 0.92592 0.9239 0.92048 0.91569 0.90958 0.90219 0.89358 0.88379 0.87289 0.86095 0.84802 0.8342 0.81954 0.80413 0.78805 0.77137 0.75419 0.7366 0.71866 0.70048 0.68214 0.66372 0.6453 0.62698 0.60883 0.59093 0.57336 0.5562 0.53951 0.52336 0.50781 0.49293 0.47877 0.46538 0.45281 0.44109 0.43026 0.42035 0.41139 0.4034 0.39638 0.39035 0.38531 0.38126 0.37818 0.37607 0.3749 0.37465 0.37528 0.37678 0.37908 0.38216 0.38597 0.39045 0.39555 0.40121 0.40737 0.41397 0.42094 0.42821 0.43572 0.4434 0.45118 0.45898 0.46674 0.47439 0.48186 0.48908 0.49599 0.50253 0.50863 0.51423 0.51929 0.52374 0.52755 0.53067 0.53306 0.53468 0.53551 0.53552 0.53469 0.533 0.53045 0.52703 0.52275 0.5176 0.51161 0.50479 0.49715 0.48874 0.47958 0.46971 0.45917 0.44801 0.43629 0.42405 0.41136 0.39828 0.38488 0.37122 0.35739 0.34344 0.32947 0.31553 0.30172 0.28811 0.27478 0.26182 0.24929 0.23728 0.22586 0.21511 0.2051 0.19589 0.18756 0.18016 0.17377 0.16843 0.16418 0.1611 0.1592 0.15854 0.15914 0.16102 0.16421 0.16873 0.17457 0.18175 0.19026 0.20009 0.21122 0.22363 0.2373 0.25218 0.26824 0.28545 0.30373 0.32303 0.34331 0.36447 0.38647 0.40921 0.43263 0.45663 0.48114 0.50606 0.53129 0.55676 0.58235 0.60798 0.63354 0.65895 0.68408 0.70887 0.73319 0.75696 0.78009 0.80248 0.82404 0.84469 0.86435 0.88293 0.90036 0.91657 0.9315 0.94508 0.95727 0.968 0.97724 0.98494 0.99109 0.99564 0.99859 0.99992))) newobj) nil nil (pairlis (quote (winsize winpos mode show-axes show-room room-size line-width bg-color picture)) (list (om-make-point 800 800) (om-make-point 600 200) 0 1 0 2 3.0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-SRR 2" (quote gen-srr) (quote ((om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil) (om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil))) (om-make-point 178 246) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU 2" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 203 188) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 4)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 70 189) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 7)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 118 327) (om-make-point 184 105) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.01 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.1 0.11 0.12 0.13 0.14 0.15 0.16 0.17 0.18 0.19 0.2 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.28 0.29 0.3 0.31 0.32 0.33 0.34 0.35 0.36 0.37 0.38 0.39 0.4 0.41 0.42 0.43 0.44 0.45 0.46 0.47 0.48 0.49 0.5 0.51 0.52 0.53 0.54 0.55 0.56 0.57 0.58 0.59 0.6 0.61 0.62 0.63 0.64 0.65 0.66 0.67 0.68 0.69 0.7 0.71 0.72 0.73 0.74 0.75 0.76 0.77 0.78 0.79 0.8 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.9 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.0 1.01 1.02 1.03 1.04 1.05 1.06 1.07 1.08 1.09 1.1 1.11 1.12 1.13 1.14 1.15 1.16 1.17 1.18 1.19 1.2 1.21 1.22 1.23 1.24 1.25 1.26 1.27 1.28 1.29 1.3 1.31 1.32 1.33 1.34 1.35 1.36 1.37 1.38 1.39 1.4 1.41 1.42 1.43 1.44 1.45 1.46 1.47 1.48 1.49 1.5 1.51 1.52 1.53 1.54 1.55 1.56 1.57 1.58 1.59 1.6 1.61 1.62 1.63 1.64 1.65 1.66 1.67 1.68 1.69 1.7 1.71 1.72 1.73 1.74 1.75 1.76 1.77 1.78 1.79 1.8 1.81 1.82 1.83 1.84 1.85 1.86 1.87 1.88 1.89 1.9 1.91 1.92 1.93 1.94 1.95 1.96 1.97 1.98 1.99 2.0 2.01 2.02 2.03 2.04 2.05 2.06 2.07 2.08 2.09 2.1 2.11 2.12 2.13 2.14 2.15 2.16 2.17 2.18 2.19 2.2 2.21 2.22 2.23 2.24 2.25 2.26 2.27 2.28 2.29 2.3 2.31 2.32 2.33 2.34 2.35 2.36 2.37 2.38 2.39 2.4 2.41 2.42 2.43 2.44 2.45 2.46 2.47 2.48 2.49 2.5 2.51 2.52 2.53 2.54 2.55 2.56 2.57 2.58 2.59 2.6 2.61 2.62 2.63 2.64 2.65 2.66 2.67 2.68 2.69 2.7 2.71 2.72 2.73 2.74 2.75 2.76 2.77 2.78 2.79 2.8 2.81 2.82 2.83 2.84 2.85 2.86 2.87 2.88 2.89 2.9 2.91 2.92 2.93 2.94 2.95 2.96 2.97 2.98 2.99 3.0 3.01 3.02 3.03 3.04 3.05 3.06 3.07 3.08 3.09 3.1 3.11 3.12 3.13 3.14 3.15 3.16 3.17 3.18 3.19 3.2 3.21 3.22 3.23 3.24 3.25 3.26 3.27 3.28 3.29 3.3 3.31 3.32 3.33 3.34 3.35 3.36 3.37 3.38 3.39 3.4 3.41 3.42 3.43 3.44 3.45 3.46 3.47 3.48 3.49 3.5 3.51 3.52 3.53 3.54 3.55 3.56 3.57 3.58 3.59 3.6 3.61 3.62 3.63 3.64 3.65 3.66 3.67 3.68 3.69 3.7 3.71 3.72 3.73 3.74 3.75 3.76 3.77 3.78 3.79 3.8 3.81 3.82 3.83 3.84 3.85 3.86 3.87 3.88 3.89 3.9 3.91 3.92 3.93 3.94 3.95 3.96 3.97 3.98 3.99 4.0 4.01 4.02 4.03 4.04 4.05 4.06 4.07 4.08 4.09 4.1 4.11 4.12 4.13 4.14 4.15 4.16 4.17 4.18 4.19 4.2 4.21 4.22 4.23 4.24 4.25 4.26 4.27 4.28 4.29 4.3 4.31 4.32 4.33 4.34 4.35 4.36001 4.37001 4.38001 4.39001 4.40001 4.41001 4.42001 4.43001 4.44001 4.45001 4.46001 4.47001 4.48001 4.49001 4.50001 4.51001 4.52001 4.53001 4.54001 4.55001 4.56001 4.57001 4.58001 4.59001 4.60001 4.61001 4.62001 4.63001 4.64001 4.65001 4.66001 4.67001 4.68001 4.69001 4.70001 4.71001 4.72001 4.73001 4.74001 4.75001 4.76001 4.77001 4.78001 4.79001 4.80002 4.81002 4.82002 4.83002 4.84002 4.85002 4.86002 4.87002 4.88002 4.89002 4.90002 4.91002 4.92002 4.93002 4.94002 4.95002 4.96002 4.97002 4.98002 4.99002 5.00002 5.01002 5.02002 5.03002 5.04002 5.05002 5.06002 5.07002 5.08002 5.09002 5.10002 5.11002 5.12002 5.13002 5.14002 5.15002 5.16002 5.17002 5.18002 5.19002 5.20002 5.21002 5.22002 5.23002 5.24003 5.25003 5.26003 5.27003 5.28003 5.29003 5.30003 5.31003 5.32003 5.33003 5.34003 5.35003 5.36003 5.37003 5.38003 5.39003 5.40003 5.41003 5.42003 5.43003 5.44003 5.45003 5.46003 5.47003 5.48003 5.49003 5.50003 5.51003 5.52003 5.53003 5.54003 5.55003 5.56003 5.57003 5.58003 5.59003 5.60003 5.61003 5.62003 5.63003 5.64003 5.65003 5.66003 5.67004 5.68004 5.69004 5.70004 5.71004 5.72004 5.73004 5.74004 5.75004 5.76004 5.77004 5.78004 5.79004 5.80004 5.81004 5.82004 5.83004 5.84004 5.85004 5.86004 5.87004 5.88004 5.89004 5.90004 5.91004 5.92004 5.93004 5.94004 5.95004 5.96004 5.97004 5.98004 5.99004 6.00004 6.01004 6.02004 6.03004 6.04004 6.05004 6.06004 6.07004 6.08004 6.09004 6.10005 6.11005 6.12005 6.13005 6.14005 6.15005 6.16005 6.17005 6.18005 6.19005 6.20005 6.21005 6.22005 6.23005 6.24005 6.25005 6.26005 6.27005 6.28005)) (quote (1.0 0.99889 0.99556 0.99003 0.98233 0.97249 0.96059 0.94666 0.93079 0.91307 0.89357 0.87242 0.84972 0.82558 0.80013 0.77351 0.74586 0.71731 0.68801 0.65811 0.62778 0.59715 0.56638 0.53563 0.50505 0.47479 0.44501 0.41583 0.3874 0.35986 0.33334 0.30795 0.2838 0.26102 0.23968 0.21988 0.20171 0.18521 0.17047 0.15751 0.14639 0.13712 0.12973 0.12421 0.12056 0.11877 0.1188 0.12062 0.12419 0.12944 0.13631 0.14472 0.1546 0.16585 0.17838 0.19209 0.20687 0.2226 0.23918 0.25648 0.27438 0.29276 0.31149 0.33046 0.34953 0.3686 0.38754 0.40623 0.42457 0.44246 0.45978 0.47644 0.49237 0.50747 0.52167 0.5349 0.54711 0.55826 0.56829 0.57717 0.58489 0.59143 0.59678 0.60095 0.60396 0.60583 0.60658 0.60627 0.60492 0.60261 0.59939 0.59533 0.5905 0.58498 0.57885 0.57222 0.56515 0.55776 0.55013 0.54235 0.53454 0.52679 0.51918 0.51182 0.5048 0.4982 0.49212 0.48662 0.48179 0.47769 0.4744 0.47195 0.47041 0.46982 0.4702 0.47159 0.474 0.47744 0.4819 0.48739 0.49387 0.50133 0.50973 0.51903 0.52917 0.54009 0.55174 0.56402 0.57687 0.59019 0.6039 0.61789 0.63207 0.64633 0.66057 0.67467 0.68852 0.70201 0.71503 0.72747 0.73923 0.75018 0.76024 0.7693 0.77726 0.78405 0.78957 0.79376 0.79653 0.79784 0.79762 0.79584 0.79245 0.78744 0.78079 0.77249 0.76255 0.75099 0.73782 0.72309 0.70683 0.68911 0.66999 0.64955 0.62786 0.60503 0.58115 0.55633 0.53069 0.50435 0.47742 0.45006 0.42239 0.39456 0.3667 0.33897 0.31151 0.28447 0.25798 0.2322 0.20726 0.18332 0.16048 0.1389 0.11869 0.09997 0.08285 0.06743 0.05381 0.04206 0.03228 0.02451 0.01881 0.01524 0.01381 0.01456 0.01749 0.0226 0.02988 0.0393 0.05082 0.0644 0.07997 0.09747 0.11681 0.13792 0.16067 0.18498 0.2107 0.23774 0.26595 0.29519 0.32532 0.35619 0.38766 0.41956 0.45173 0.48403 0.51628 0.54834 0.58005 0.61124 0.64178 0.67152 0.7003 0.72801 0.7545 0.77965 0.80335 0.8255 0.84599 0.86474 0.88167 0.89671 0.90981 0.92092 0.93 0.93703 0.942 0.94492 0.94578 0.94461 0.94144 0.93632 0.9293 0.92045 0.90983 0.89753 0.88363 0.86825 0.85148 0.83343 0.81422 0.79397 0.77282 0.75089 0.72831 0.70522 0.68175 0.65803 0.63421 0.61042 0.58678 0.56343 0.54048 0.51806 0.49628 0.47525 0.45507 0.43582 0.41761 0.4005 0.38457 0.36987 0.35647 0.34439 0.33368 0.32436 0.31643 0.30991 0.30478 0.30103 0.29865 0.29759 0.29781 0.29926 0.30188 0.30562 0.31039 0.31613 0.32273 0.33013 0.33822 0.34692 0.35611 0.3657 0.3756 0.38568 0.39587 0.40605 0.41611 0.42598 0.43555 0.44473 0.45344 0.46159 0.46912 0.47595 0.48202 0.48728 0.49167 0.49517 0.49773 0.49935 0.49999 0.49966 0.49836 0.49609 0.49289 0.48878 0.48379 0.47798 0.47138 0.46407 0.45611 0.44758 0.43854 0.42908 0.4193 0.40929 0.39914 0.38895 0.37882 0.36885 0.35915 0.34982 0.34096 0.33266 0.32503 0.31816 0.31214 0.30706 0.30298 0.29999 0.29816 0.29754 0.29819 0.30015 0.30346 0.30814 0.31422 0.32169 0.33057 0.34085 0.35249 0.36547 0.37976 0.3953 0.41204 0.42991 0.44883 0.46872 0.4895 0.51105 0.53328 0.55607 0.5793 0.60287 0.62662 0.65045 0.67421 0.69777 0.72099 0.74375 0.76591 0.78732 0.80787 0.82742 0.84585 0.86304 0.87888 0.89326 0.90608 0.91724 0.92667 0.93428 0.94001 0.9438 0.94562 0.9454 0.94315 0.93883 0.93246 0.92403 0.91356 0.9011 0.88667 0.87034 0.85216 0.83222 0.81059 0.78737 0.76266 0.73659 0.70926 0.6808 0.65136 0.62106 0.59005 0.55849 0.52653 0.49432 0.46202 0.42979 0.39778 0.36617 0.33509 0.3047 0.27516 0.24661 0.21919 0.19303 0.16826 0.14499 0.12335 0.10344 0.08534 0.06915 0.05492 0.04274 0.03265 0.02469 0.01889 0.01526 0.01382 0.01455 0.01744 0.02247 0.02958 0.03874 0.04987 0.0629 0.07775 0.09434 0.11257 0.13232 0.15347 0.17592 0.19953 0.22417 0.24969 0.27597 0.30285 0.3302 0.35786 0.38569 0.41355 0.44128 0.46876 0.49583 0.52237 0.54825 0.57335 0.59754 0.62071 0.64277 0.66362 0.68316 0.70133 0.71806 0.73328 0.74695 0.75903 0.76949 0.77831 0.78548 0.79101 0.79491 0.79719 0.7979 0.79708 0.79476 0.79102 0.78591 0.77952 0.77192 0.76319 0.75344 0.74276 0.73125 0.71902 0.70617 0.69282 0.67907 0.66504 0.65083 0.63657 0.62236 0.6083 0.59449 0.58104 0.56803 0.55556 0.54371 0.53255 0.52216 0.51259 0.5039 0.49614 0.48935 0.48354 0.47876 0.475 0.47227 0.47056 0.46986 0.47016 0.4714 0.47357 0.4766 0.48045 0.48506 0.49036 0.49627 0.50272 0.50961 0.51688 0.52442 0.53214 0.53995 0.54774 0.55543 0.56291 0.57009 0.57687 0.58317 0.58889 0.59395 0.59826 0.60176 0.60436 0.60601 0.60666 0.60625 0.60474 0.60209 0.59828 0.5933 0.58713 0.57978 0.57126 0.56159 0.55079 0.53891 0.52599 0.51208 0.49726 0.48158 0.46513 0.44801 0.43028 0.41207 0.39347 0.3746 0.35555 0.33646 0.31744 0.29862 0.28011 0.26204 0.24454 0.22772 0.2117 0.19661 0.18254 0.16962 0.15795 0.14763 0.13874 0.13137 0.1256 0.1215 0.11912 0.11851 0.11973 0.12279 0.12771 0.13451 0.14319 0.15373 0.16611 0.1803 0.19624 0.2139 0.23319 0.25406 0.2764 0.30012 0.32513 0.35132 0.37855 0.40671 0.43567 0.46528 0.49541 0.52591 0.55662 0.5874 0.61809 0.64855 0.6786 0.7081 0.73691 0.76486 0.79183 0.81766 0.84223 0.8654 0.88706 0.90708 0.92538 0.94185 0.95639 0.96895 0.97945 0.98783 0.99405 0.99808 0.99989)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 783 402) (om-make-point 261 176) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPC" (quote bpc) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 0))) (om-make-point 364 440) (om-make-point 177 167) (let ((newobj (when (find-class (quote bpc) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.00999 0.01991 0.0297 0.03928 0.0486 0.0576 0.06621 0.07438 0.08207 0.08921 0.09577 0.10172 0.10702 0.11165 0.11559 0.11883 0.12136 0.12317 0.12429 0.12472 0.12448 0.1236 0.12211 0.12005 0.11746 0.1144 0.11091 0.10706 0.1029 0.09851 0.09394 0.08927 0.08458 0.07993 0.0754 0.07106 0.06697 0.06323 0.05988 0.05701 0.05466 0.0529 0.05178 0.05135 0.05166 0.05274 0.05463 0.05735 0.06092 0.06535 0.07065 0.07682 0.08384 0.09171 0.1004 0.10989 0.12012 0.13108 0.1427 0.15493 0.16771 0.18099 0.19469 0.20874 0.22307 0.23761 0.25226 0.26697 0.28164 0.2962 0.31056 0.32466 0.33842 0.35176 0.36461 0.37692 0.38862 0.39967 0.40999 0.41957 0.42837 0.43633 0.44346 0.44973 0.45515 0.45969 0.46339 0.46624 0.46827 0.46952 0.47002 0.4698 0.46893 0.46745 0.46545 0.46297 0.46009 0.45688 0.45342 0.4498 0.4461 0.4424 0.43878 0.43534 0.43215 0.4293 0.42686 0.42492 0.42353 0.42279 0.42272 0.42342 0.42491 0.42724 0.43045 0.43456 0.4396 0.44557 0.45248 0.46031 0.46905 0.47869 0.48918 0.50048 0.51254 0.52531 0.5387 0.55265 0.56708 0.58189 0.597 0.6123 0.62768 0.64305 0.65829 0.67328 0.68791 0.70205 0.71561 0.72847 0.7405 0.75161 0.76169 0.77062 0.77834 0.78473 0.78973 0.79325 0.79524 0.79562 0.79437 0.79143 0.78678 0.78042 0.77232 0.76251 0.75099 0.73779 0.72296 0.70653 0.68858 0.66918 0.64841 0.62636 0.60313 0.57884 0.55359 0.52753 0.50077 0.47344 0.44571 0.4177 0.38957 0.36146 0.33354 0.30595 0.27884 0.25236 0.22664 0.20184 0.1781 0.15552 0.13426 0.11442 0.0961 0.07941 0.06443 0.05126 0.03994 0.03055 0.02311 0.01767 0.01427 0.01288 0.01353 0.01618 0.02082 0.02741 0.0359 0.04621 0.05829 0.07204 0.08737 0.10419 0.12239 0.14182 0.16241 0.18397 0.20641 0.22957 0.25331 0.27748 0.30193 0.32654 0.35113 0.37556 0.3997 0.4234 0.44654 0.46897 0.49056 0.51122 0.53082 0.54926 0.56645 0.58229 0.59671 0.60965 0.62105 0.63086 0.63905 0.64559 0.65046 0.65367 0.65521 0.6551 0.65337 0.65005 0.64519 0.63884 0.63105 0.6219 0.61146 0.5998 0.58703 0.57322 0.55847 0.54288 0.52655 0.50959 0.49208 0.47415 0.45588 0.43738 0.41876 0.4001 0.3815 0.36306 0.34484 0.32694 0.30943 0.29237 0.27584 0.25987 0.24454 0.22987 0.21591 0.20268 0.19019 0.17848 0.16754 0.15737 0.14797 0.13934 0.13144 0.12426 0.11778 0.11194 0.10673 0.1021 0.098 0.0944 0.09123 0.08846 0.08603 0.08389 0.08199 0.08027 0.0787 0.07721 0.07577 0.07434 0.07286 0.0713 0.06964 0.06783 0.06586 0.06369 0.06132 0.05872 0.05589 0.05283 0.04953 0.04599 0.04222 0.03823 0.03405 0.02967 0.02513 0.02044 0.01564 0.01075 0.00579 8.0E-4 -0.0042 -0.00917 -0.01409 -0.01893 -0.02365 -0.02824 -0.03267 -0.03692 -0.04097 -0.04481 -0.04843 -0.05181 -0.05495 -0.05785 -0.06052 -0.06296 -0.06519 -0.06723 -0.06908 -0.07079 -0.07238 -0.07388 -0.07532 -0.07676 -0.07822 -0.07976 -0.08143 -0.08327 -0.08532 -0.08766 -0.09032 -0.09335 -0.09681 -0.10074 -0.1052 -0.11022 -0.11585 -0.12213 -0.12908 -0.13675 -0.14515 -0.1543 -0.16422 -0.17491 -0.18638 -0.19862 -0.21161 -0.22535 -0.23979 -0.25492 -0.27069 -0.28704 -0.30394 -0.32131 -0.3391 -0.35722 -0.3756 -0.39416 -0.41281 -0.43146 -0.45 -0.46835 -0.4864 -0.50406 -0.52121 -0.53775 -0.55359 -0.56861 -0.58273 -0.59585 -0.60787 -0.6187 -0.62827 -0.63651 -0.64332 -0.64867 -0.65248 -0.65472 -0.65535 -0.65433 -0.65166 -0.64732 -0.64131 -0.63365 -0.62436 -0.61346 -0.601 -0.58704 -0.57164 -0.55488 -0.53683 -0.51759 -0.49726 -0.47594 -0.45377 -0.43085 -0.40731 -0.3833 -0.35894 -0.33438 -0.30977 -0.28525 -0.26097 -0.23708 -0.21372 -0.19104 -0.16918 -0.14827 -0.12845 -0.10984 -0.09258 -0.07676 -0.06249 -0.04987 -0.03898 -0.02991 -0.02272 -0.01745 -0.01416 -0.01287 -0.01361 -0.01637 -0.02117 -0.02796 -0.03674 -0.04746 -0.06005 -0.07445 -0.0906 -0.10842 -0.12779 -0.14861 -0.17078 -0.19417 -0.21865 -0.24408 -0.27034 -0.29726 -0.32472 -0.35256 -0.38062 -0.40876 -0.43681 -0.46466 -0.49212 -0.51907 -0.54538 -0.57091 -0.59551 -0.61908 -0.64152 -0.66271 -0.68255 -0.70096 -0.71788 -0.73322 -0.74695 -0.75901 -0.76937 -0.77801 -0.78492 -0.79011 -0.79359 -0.79537 -0.7955 -0.79402 -0.79098 -0.78644 -0.78048 -0.77318 -0.76462 -0.75489 -0.7441 -0.73235 -0.71974 -0.7064 -0.69242 -0.67794 -0.66305 -0.64788 -0.63254 -0.61715 -0.60182 -0.58664 -0.57173 -0.55717 -0.54306 -0.52948 -0.51651 -0.50422 -0.49268 -0.48193 -0.47202 -0.46299 -0.45487 -0.44766 -0.44141 -0.43608 -0.43168 -0.42819 -0.42558 -0.42384 -0.42289 -0.42273 -0.42326 -0.42445 -0.42623 -0.42852 -0.43126 -0.43435 -0.43771 -0.44129 -0.44497 -0.44869 -0.45234 -0.45586 -0.45915 -0.46215 -0.46476 -0.46693 -0.46858 -0.46965 -0.47007 -0.4698 -0.4688 -0.46702 -0.46442 -0.461 -0.45672 -0.45159 -0.44558 -0.43872 -0.43101 -0.42247 -0.41313 -0.40303 -0.39221 -0.38071 -0.36858 -0.35589 -0.34269 -0.32906 -0.31506 -0.30077 -0.28626 -0.27161 -0.25691 -0.24222 -0.22764 -0.21323 -0.19908 -0.18526 -0.17184 -0.15889 -0.14647 -0.13466 -0.12349 -0.11302 -0.10329 -0.09434 -0.08621 -0.07891 -0.07247 -0.0669 -0.06219 -0.05835 -0.05537 -0.05322 -0.05188 -0.05134 -0.05154 -0.05244 -0.054 -0.05618 -0.05889 -0.0621 -0.06573 -0.06971 -0.07398 -0.07846 -0.08308 -0.08777 -0.09245 -0.09706 -0.10152 -0.10576 -0.10971 -0.11333 -0.11653 -0.11927 -0.12151 -0.12318 -0.12426 -0.1247 -0.12449 -0.12358 -0.12199 -0.11968 -0.11667 -0.11295 -0.10854 -0.10345 -0.0977 -0.09133 -0.08436 -0.07684 -0.06882 -0.06034 -0.05146 -0.04224 -0.03273 -0.023 -0.01311 -0.00314)) (quote (1.0 0.99884 0.99536 0.98958 0.98154 0.97127 0.95886 0.94434 0.92781 0.90937 0.88911 0.86715 0.84361 0.81861 0.7923 0.76482 0.73633 0.70697 0.67689 0.64627 0.61527 0.58403 0.55273 0.52152 0.49057 0.46003 0.43005 0.40076 0.37231 0.34483 0.31845 0.29327 0.26939 0.24694 0.22596 0.20655 0.18878 0.17268 0.15831 0.14568 0.13483 0.12576 0.11846 0.1129 0.10908 0.10695 0.10645 0.10754 0.11016 0.11421 0.11962 0.1263 0.13416 0.1431 0.153 0.16376 0.17527 0.18741 0.20007 0.21312 0.22646 0.23996 0.25351 0.26702 0.28036 0.29344 0.30615 0.31841 0.33013 0.34125 0.35166 0.36131 0.37017 0.37815 0.38524 0.39138 0.39657 0.40078 0.40401 0.40624 0.4075 0.40779 0.40714 0.40557 0.40312 0.39984 0.39576 0.39094 0.38543 0.37929 0.37259 0.36538 0.35774 0.34972 0.3414 0.33285 0.32412 0.3153 0.30643 0.29758 0.28881 0.28018 0.27172 0.26349 0.25554 0.24789 0.24058 0.23364 0.22708 0.22092 0.21519 0.20986 0.20495 0.20045 0.19635 0.19264 0.18929 0.18627 0.18357 0.18114 0.17896 0.17698 0.17517 0.17348 0.17187 0.1703 0.16873 0.16711 0.1654 0.16355 0.16154 0.15932 0.15686 0.15413 0.15111 0.14776 0.14406 0.14002 0.1356 0.13081 0.12564 0.12011 0.11421 0.10796 0.10137 0.09448 0.0873 0.07987 0.07222 0.06439 0.05642 0.04835 0.04024 0.03212 0.02404 0.01606 0.00823 6.0E-4 -0.00679 -0.01389 -0.02064 -0.02701 -0.03295 -0.03843 -0.04342 -0.04787 -0.05177 -0.0551 -0.05784 -0.05998 -0.06151 -0.06245 -0.06279 -0.06255 -0.06175 -0.06042 -0.05859 -0.05629 -0.05358 -0.05049 -0.04709 -0.04343 -0.03958 -0.0356 -0.03157 -0.02755 -0.02363 -0.01988 -0.01637 -0.0132 -0.01044 -0.00816 -0.00644 -0.00536 -0.00498 -0.00539 -0.00664 -0.00878 -0.01189 -0.016 -0.02115 -0.02738 -0.03473 -0.0432 -0.05282 -0.06359 -0.0755 -0.08855 -0.10271 -0.11796 -0.13426 -0.15157 -0.16982 -0.18896 -0.20893 -0.22965 -0.25103 -0.27299 -0.29542 -0.31825 -0.34136 -0.36464 -0.38799 -0.4113 -0.43444 -0.45732 -0.4798 -0.50179 -0.52317 -0.54383 -0.56366 -0.58257 -0.60047 -0.61724 -0.63283 -0.64714 -0.66011 -0.67166 -0.68176 -0.69036 -0.69741 -0.7029 -0.70679 -0.7091 -0.70981 -0.70896 -0.70655 -0.70261 -0.6972 -0.69036 -0.68216 -0.67265 -0.66192 -0.65005 -0.63714 -0.62328 -0.60857 -0.59312 -0.57704 -0.56044 -0.54345 -0.52618 -0.50875 -0.49129 -0.4739 -0.45671 -0.43983 -0.42337 -0.40744 -0.39213 -0.37755 -0.36377 -0.3509 -0.33898 -0.32811 -0.31832 -0.30968 -0.30222 -0.29597 -0.29095 -0.28717 -0.28463 -0.28334 -0.28326 -0.28437 -0.28663 -0.28999 -0.29442 -0.29983 -0.30618 -0.31336 -0.32132 -0.32995 -0.33918 -0.3489 -0.35901 -0.36942 -0.38002 -0.39071 -0.40139 -0.41195 -0.4223 -0.43233 -0.44196 -0.4511 -0.45966 -0.46756 -0.47473 -0.48111 -0.48663 -0.49124 -0.49492 -0.49761 -0.49932 -0.49999 -0.49964 -0.49828 -0.49589 -0.49253 -0.48821 -0.48297 -0.47686 -0.46993 -0.46226 -0.4539 -0.44495 -0.43547 -0.42555 -0.41529 -0.40479 -0.39414 -0.38345 -0.37281 -0.36232 -0.3521 -0.34225 -0.33286 -0.32402 -0.31584 -0.30839 -0.30178 -0.29607 -0.29131 -0.2876 -0.28498 -0.2835 -0.2832 -0.28411 -0.28625 -0.28963 -0.29425 -0.30011 -0.30718 -0.31546 -0.32488 -0.33541 -0.347 -0.35958 -0.37307 -0.38741 -0.40249 -0.41823 -0.43454 -0.4513 -0.4684 -0.48574 -0.50319 -0.52065 -0.53797 -0.55507 -0.5718 -0.58805 -0.60371 -0.61867 -0.63282 -0.64604 -0.65825 -0.66935 -0.67926 -0.68788 -0.69517 -0.70104 -0.70545 -0.70835 -0.70971 -0.70949 -0.70769 -0.7043 -0.69933 -0.69276 -0.68466 -0.67504 -0.66394 -0.65142 -0.63753 -0.62235 -0.60594 -0.58839 -0.5698 -0.55025 -0.52984 -0.50867 -0.48687 -0.46453 -0.44177 -0.41869 -0.39543 -0.37208 -0.34876 -0.32559 -0.30266 -0.28009 -0.25797 -0.23639 -0.21545 -0.19525 -0.17583 -0.15728 -0.13967 -0.12305 -0.10746 -0.09295 -0.07954 -0.06726 -0.05613 -0.04614 -0.0373 -0.0296 -0.02301 -0.01752 -0.01309 -0.00967 -0.00722 -0.00569 -0.00503 -0.00516 -0.00602 -0.00754 -0.00965 -0.01227 -0.01533 -0.01873 -0.02241 -0.02629 -0.03028 -0.03432 -0.03832 -0.04222 -0.04595 -0.04944 -0.05263 -0.05547 -0.0579 -0.05989 -0.06138 -0.06235 -0.06277 -0.06262 -0.06187 -0.06053 -0.05858 -0.05603 -0.05289 -0.04917 -0.04489 -0.04007 -0.03474 -0.02894 -0.0227 -0.01607 -0.00908 -0.00178 0.00578 0.01356 0.02149 0.02954 0.03765 0.04578 0.05387 0.06187 0.06976 0.07747 0.08497 0.09223 0.09922 0.1059 0.11226 0.11827 0.12393 0.12921 0.13412 0.13865 0.14282 0.14662 0.15008 0.15321 0.15603 0.15857 0.16086 0.16294 0.16483 0.16658 0.16822 0.16981 0.17138 0.17297 0.17462 0.17639 0.17832 0.18043 0.18278 0.18539 0.18831 0.19155 0.19515 0.19912 0.2035 0.20828 0.21347 0.21908 0.22511 0.23154 0.23837 0.24557 0.25312 0.26098 0.26913 0.27752 0.2861 0.29484 0.30367 0.31254 0.32138 0.33015 0.33876 0.34716 0.35528 0.36305 0.3704 0.37728 0.3836 0.38931 0.39436 0.39868 0.40222 0.40493 0.40678 0.40772 0.40773 0.40677 0.40485 0.40194 0.39803 0.39315 0.38731 0.38051 0.37281 0.36422 0.3548 0.34462 0.33372 0.32218 0.31008 0.2975 0.28451 0.27124 0.25777 0.24422 0.23069 0.21728 0.20413 0.19133 0.17901 0.16729 0.15627 0.14608 0.13682 0.12862 0.12155 0.11572 0.11122 0.10815 0.10657 0.10655 0.10816 0.11145 0.11645 0.12319 0.13171 0.142 0.15407 0.16789 0.18344 0.2007 0.2196 0.24009 0.26209 0.28552 0.3103 0.33633 0.36348 0.39163 0.42067 0.45045 0.48084 0.51168 0.54282 0.57411 0.60538 0.63649 0.66725 0.69751 0.72713 0.75591 0.78373 0.81042 0.83585 0.85987 0.88235 0.90315 0.92218 0.93933 0.95448 0.96758 0.97854 0.98729 0.99378 0.99799 0.99989)) (quote bpc) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPC") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (picture winpos winsize)) (list nil (om-make-point 10 40) (om-make-point 463 631))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((15 0 6 0 nil 0) (7 1 9 0 nil 0) (8 1 9 1 nil 0) (16 0 10 0 nil 0) (10 1 11 1 nil 0) (10 2 11 2 nil 0) (9 1 11 3 nil 0) (14 1 12 0 nil 0) (13 1 12 1 nil 0) (12 0 15 1 nil 0) (12 1 15 2 nil 0) (6 0 16 0 nil 0))) (list (let ((newpict (make-instance (quote patch-picture) :name "Logo OM-SRR" :source (quote om-srr) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo OM-SRR" (quote om-srr)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 69 20)) (setf (pict-size newpict) (om-make-point 168 112)) newpict)) 7.05))
| 
