akkrfig1.eps

fortan的mie散射程序,可以计算粒子对电磁场的散射

%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 468 360
%%%%DocumentFonts: /Helvetica
%%Title: Axum PostScript file
%%Creator: TriMetrix, Inc.
%%Pages: 1
%%EndComments
% Copyright 1988-1991 by TriMetrix, Inc. All rights reserved.
/downdict 4 dict def
/sdown
 {downdict begin
  /thestring exch def
  /lineskip exch def
  thestring
   {
    /charcode exch def
    /thechar ( ) dup 0 charcode put def
    0 lineskip neg rmoveto
    gsave
     thechar stringwidth pop 2 div neg 0 rmoveto
     thechar show
    grestore
   } forall
   end
  } def

/updict 4 dict def
/sup
 {updict begin
  /thestring exch def
  /lineskip exch def
  thestring 
   {
    /charcode exch def
    /thechar ( ) dup 0 charcode put def
    0 lineskip rmoveto
    gsave
     thechar stringwidth pop 2 div neg 0 rmoveto
     thechar show
    grestore
   } forall
   end
  } def

/leftdict 4 dict def
/sleft
 {leftdict begin
  /thestring exch def
  thestring
   {
    /charcode exch def
    /thechar ( ) dup 0 charcode put def
    gsave
     thechar stringwidth pop neg 0 rmoveto
     thechar show
    grestore
   } forall

   thechar stringwidth pop neg 0 rmoveto
   end
  } def

/path{newpath moveto{lineto}repeat} bind def 
/cnp{newpath moveto{lineto}repeat closepath} bind def
/clp{moveto{lineto}repeat closepath} bind def
/rps{ 3 1 roll path stroke} bind def
/rcs{ 3 1 roll clp stroke} bind def
/setF { currentscreen 4 -2 roll pop 3 1 roll setscreen} bind def
% required due to WinWord 2.0 bug:
/II { } def
    
/MainFont /Helvetica findfont 0 scalefont def
MainFont setfont
1 setlinejoin 1 setlinecap 0 setgray
 gsave 72 630 div dup scale
 [] 0 setdash

1 setlinewidth
 1830 1104 1820 1100 1813 1094 1805 1081 1803 1071 1799 1056 1794 1035 1792 1008 7 rps
 1830 1104 1824 1100 1815 1094 1809 1081 1805 1071 1803 1056 1799 1035 1794 1008 7 rps
 1830 1104 1836 1104 1845 1100 1847 1098 1847 1088 1845 1081 1841 1077 1830 1073 1815 1073
 8 rps
 1836 1104 1845 1098 1845 1088 1841 1081 1836 1077 1830 1073 5 rps
 1815 1073 1830 1071 1836 1062 1841 1056 1841 1046 1836 1039 1834 1035 1824 1033 1815 1033
 1809 1035 1805 1039 1803 1050 11 rps
 1815 1073 1826 1071 1834 1062 1836 1056 1836 1046 1834 1039 1830 1035 1824 1033 7 rps
 1927 2079 1916 2075 1910 2069 1906 2060 1901 2050 1901 2039 1906 2033 1916 2031 1922 2031
 1931 2033 1941 2044 1948 2054 1954 2069 1958 2079 13 rps
 1927 2079 1920 2075 1912 2069 1910 2060 1906 2050 1906 2039 1910 2033 1916 2031 7 rps
 1927 2079 1933 2079 1941 2075 1943 2069 1952 2039 1954 2033 1958 2031 6 rps
 1933 2079 1937 2075 1941 2069 1948 2039 1952 2033 1958 2031 1960 2031 6 rps
 2455 2895
 2471 2895 2471 2851 2490 2875 2507 2875
 2488 2851 2508 2815 2491 2815 2477 2840
 2471 2834 2471 2815 2455 2815 2455 2895
 12 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray 1118 783 1125 793 1132 797 1142 797 1145 790 1145 780 5 rps
 1139 797 1142 790 1142 780 1139 766 1135 759 1128 752 1122 749 1118 749 1115 752
 1115 756 1118 759 1122 756 1118 752 12 rps
 1139 766 1139 756 1142 749 1152 749 1159 752 1166 763 5 rps
 1166 793 1162 790 1166 786 1169 790 1169 793 1166 797 1162 797 1156 793 1149 786
 1145 780 1142 766 1142 756 1145 749 12 rps
 2897 1460 2901 1467 2908 1474 2918 1474 2921 1470 2921 1460 2914 1440 2914 1433 2921 1426
 8 rps
 2914 1474 2918 1470 2918 1460 2911 1440 2911 1433 2914 1429 2921 1426 2928 1426 2935 1429
 2942 1436 2948 1450 10 rps
 2959 1474 2945 1426 2942 1416 2935 1406 2925 1402 2914 1402 2908 1406 2904 1409 2904 1412
 2908 1416 2911 1412 2908 1409 11 rps
 2955 1474 2942 1426 2938 1416 2931 1406 2925 1402 4 rps
 1844 2722 1840 2715 1834 2708 1806 2688 1800 2681 1796 2674 5 rps
 1800 2708 1803 2715 1810 2722 1820 2722 1834 2715 4 rps
 1803 2715 1810 2718 1820 2718 1834 2715 1840 2715 4 rps
 1800 2681 1806 2681 1820 2677 1830 2677 1837 2681 4 rps
 1806 2681 1820 2674 1830 2674 1837 2681 1840 2688 4 rps
 2557 2320
 2554 2325 2554 2331 2554 2337 2556 2343
 2559 2352 2565 2363 2571 2370 2575 2373
 2578 2375 2582 2377 2593 2380 2599 2378
 2603 2376 2607 2372 2610 2361 2610 2356
 2610 2352 2609 2348 2606 2339 2600 2328
 2594 2321 2590 2317 2584 2313 2579 2311
 2574 2310 2567 2311 2560 2315 2557 2320
 28 3 1 roll cnp
 0.00 setgray 2563 2318
 2561 2323 2562 2329 2564 2335 2570 2349
 2592 2336 2583 2324 2579 2320 2573 2316
 2569 2315 2566 2315 2564 2316 2563 2318
 12 3 1 roll clp
 2595 2342
 2601 2354 2603 2360 2604 2365 2602 2371
 2600 2374 2599 2375 2595 2375 2589 2373
 2585 2370 2581 2366 2573 2355 2595 2342
 12 3 1 roll clp

gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2615 2334
 2624 2329 2609 2303 2628 2311 2638 2305
 2619 2298 2619 2270 2609 2276 2609 2295
 2603 2293 2597 2282 2588 2288 2615 2334
 12 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2619 2418
 2626 2413 2618 2380 2612 2384 2617 2407
 2598 2394 2591 2399 2619 2418 7 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2616 2575
 2608 2596 2611 2597 2614 2600 2619 2605
 2622 2609 2624 2615 2624 2622 2624 2628
 2621 2635 2618 2640 2613 2645 2610 2647
 2604 2650 2601 2650 2596 2650 2592 2649
 2587 2644 2586 2637 2587 2631 2601 2598
 2596 2598 2592 2599 2588 2600 2586 2603
 2583 2606 2579 2612 2576 2622 2575 2628
 2576 2635 2578 2639 2580 2641 2580 2642
 2575 2641 2572 2638 2568 2633 2566 2630
 2566 2623 2566 2618 2570 2607 2576 2599
 2582 2595 2588 2594 2591 2593 2596 2593
 2602 2594 2610 2573 2616 2575 47 3 1 roll cnp
 0.00 setgray 2594 2628
 2594 2630 2593 2636 2594 2639 2596 2642
 2601 2642 2605 2639 2610 2634 2614 2629
 2617 2620 2617 2616 2617 2612 2613 2604
 2606 2600 2594 2628 14 3 1 roll clp

gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2626 2650
 2636 2653 2646 2626 2653 2645 2663 2649
 2657 2630 2678 2612 2667 2608 2653 2620
 2650 2615 2654 2603 2645 2599 2626 2650
 12 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2567 2685
 2575 2688 2600 2665 2592 2662 2575 2678
 2577 2654 2569 2651 2567 2685 7 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray 2904 2602
 2954 2602 2954 2590 2918 2590 2918 2574
 2953 2574 2953 2562 2918 2562 2918 2544
 2954 2544 2954 2531 2904 2531 2904 2602
 12 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray
3 setlinewidth
 1786 1426 2858 1426 1 rps
 2858 1426 2814 1439 1 rps
 2858 1426 2814 1412 1 rps
 2814 1439 2814 1412 1 rps

1 setlinewidth
 2814 1439
 2858 1426 2814 1412 2814 1439 3 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray
3 setlinewidth
 1786 1426 1786 2638 1 rps
 1786 2638 1772 2594 1 rps
 1786 2638 1799 2594 1 rps
 1772 2594 1799 2594 1 rps

1 setlinewidth
 1772 2594
 1786 2638 1799 2594 1772 2594 3 3 1 roll cnp
 0.00 setgray
gsave eofill grestore  0.0 setgray stroke 0.0 setgray
3 setlinewidth
 1786 1426 1179 820 1 rps
 1179 820 1219 841 1 rps
 1179 820 1200 860 1 rps
 1219 841 1200 860 1 rps

1 setlinewidth
 1219 841
 1179 820 1200 860 1219 841 3 3 1 roll cnp