fig502.m

这是一个matlab应用的论文和源代码

% fig502 X defraction graphics
x1=[ 99 102 104 108 110 114 117 118 120 122 124 126 131 133 138 142 145];
y1=[429 474 428 479 433 462 503 453 495 527 493 464 534 469 534 504 527];
x2=[146 147 149 153 154 156 158 161 163 165 166 167 168 173 174 176 178];
y2=[504 527 458 533 492 551 528 568 493 493 498 527 516 568 536 550 534];
x3=[179 180 182 184 185 189 190 193 197 199 204 205 210 211 214 216];
y3=[543 557 511 527 515 550 500 500 549 500 557 500 550 516 534 492];
x4=[219 220 222 224 226 228 230 232 233 236 238 241 242 245 246 250];
y4=[515 480 512 532 498 533 514 527 510 539 487 545 510 561 464 538];
x5=[254 258 260 263 265 268 269 270 270 273 275 279 281 285 286 293];
y5=[494 533 464 492 340 346 257 265 245 268 205 385 357 456 422 521];
x6=[294 297 298 301 302 304 305 309 310 314 316 320 321 324 327 329 330];
y6=[494 533 505 528 504 516 499 526 505 550 541 557 516 546 533 504 533];
x7=[333 334 336 338 340 343 344 346 348 351 355 357 361 363 365 366];
y7=[518 537 557 557 499 538 528 551 536 493 522 499 539 505 516 511];
x8=[368 370 373 374 378 379 381 384 385 388 389 391 393 395 400 402];
y8=[539 535 557 535 557 535 557 540 569 569 586 574 580 534 591 552];
x9=[405 407 408 410 411 413 414 418 420 423 426 429 434 436 438 441 444];
y9=[569 539 559 546 562 562 539 574 539 585 539 580 539 569 558 586 528];
x10=[446 447 449 451 454 456 458 460 465 468 469 475 476 478 481 482 486 487];
y10=[557 550 562 540 540 558 487 522 361 415 414 545 523 545 545 522 562 543];
x11=[489 491 492 496 499 502 503 506 508 511 519 530 531 532 533 535 537 539];
y11=[393 444 434 550 481 551 515 550 469 480 194 533 524 530 510 562 539 574];
x12=[542 543 545 547 548 550 554 556 558 560 562 565 566 569 572 576 578 579];
y12=[558 573 564 580 580 552 585 570 580 581 539 580 557 563 477 545 526 533];
x13=[580 583 584 587 588 590 592 597 599 602 604 608 609 614 615 616 618 620 622];
y13=[500 540 521 533 510 539 415 510 498 579 552 581 552 580 580 562 581 580 546];
x14=[625 629 631 633 635 636 640 642 645 649 651 656 658 660 662 664 666 668];
y14=[591 552 564 585 591 591 540 557 591 574 591 552 591 574 586 563 573 563];
x15=[671 674 676 678 680 682 684 686 688 690 692 694 696 697 698 701 704 706 709];
y15=[586 569 581 569 581 591 586 591 579 567 552 545 585 571 552 552 585 563 579];
x16=[710 711 712 715 716 719 721 722 724 726 728 731 734 739 744 746];
y16=[558 578 585 581 591 568 585 574 581 575 590 571 591 511 580 566];
x17=[747 749 750 752 754 756 759 760 762 764 765 768 770 772 775 776 778 782 784];
y17=[551 562 534 539 522 562 562 539 562 574 562 562 580 528 543 562 557 469 387];
x18=[788 790 794 795 798 799 801 804 808 811 813 818 820 821 822 827 830 832 836];
y18=[457 445 545 500 510 481 515 507 574 557 586 551 562 562 581 546 591 580 591];
x19=[839 841 842 845 848 850 852 854 858 861 863 867 869 871 874 876 878 880 882];
y19=[570 569 551 580 558 569 546 569 540 574 567 580 551 570 493 505 441 480 480];
x20=[884 886 889 890 892 895 898 900 902 903 908 909 910 916 919 922 924 928 931 932];
y20=[528 532 580 568 563 585 575 586 586 551 586 563 563 475 562 511 561 574 568 585];
x21=[936 937 938 942 943 946 947 949 952 953 955 956 960 967 969 973];
y21=[562 569 540 585 550 563 534 552 522 550 548 562 475 561 556 591];
x22=[978 981 983 988 991 993 995 998 1000 1003 1005 1007 1009 1013 1015 1018];
y22=[557 586 534 590 558 581 569 591  584  557  586  580  586  551  580  580];
x23=[1019 1020 1025 1028 1029 1033 1034 1036 1037 1039 1040 1043 1046 1047 1049];
y23=[ 562  590  557  557  574  568  545  558  539  551  537  499  568  568  523];
x24=[1050 1052 1055];
y24=[ 586  579  591];

x=[x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24];
y=[y1 y2 y3 y4 y5 y6 y7 y8 y9 y10 y11 y12 y13 y14 y15 y16 y17 y18 y19 y20 y21 y22 y23 y24];

xx=4.06868+0.06243*x;
yy=0.100853-0.000171*y;

fh=figure('Color','w','position',[200 100 500 350]);
h1=axes('position',[0 0 1 1],'visible','off');
h2=axes('position',[0.07 0.12 0.9 0.8]);
plot(xx,yy)
text(55,0.085,'Geothite')
text(55,0.08,'(\alpha-FeOOH)')
text(21.34, 0.066,'21.34','rotation',90,'color','r')
text(32.72, 0.018,'32.72','rotation',90,'color','r')
text(33.26, 0.040,'33.26','rotation',90,'color','r')
text(34.64, 0.033,'34.64','rotation',90,'color','r')
text(35.24, 0.019,'35.24','rotation',90,'color','r')
text(36.62, 0.068,'36.62','rotation',90,'color','r')
text(39.86, 0.020,'39.86','rotation',90,'color','r')
text(40.30, 0.016,'40.30','rotation',90,'color','r')
text(41.16, 0.030,'41.16','rotation',90,'color','r')
text(50.24, 0.014,'50.24','rotation',90,'color','r')
text(51.14, 0.012,'51.14','rotation',90,'color','r')
text(52.36, 0.011,'52.36','rotation',90,'color','r')
text(53.12, 0.035,'53.12','rotation',90,'color','r')
text(54.30, 0.014,'54.30','rotation',90,'color','r')
text(58.96, 0.026,'58.96','rotation',90,'color','r')
text(61.32, 0.020,'61.32','rotation',90,'color','r')
text(61.64, 0.014,'61.64','rotation',90,'color','r')
text(64.06, 0.020,'64.06','rotation',90,'color','r')
text(65.42, 0.010,'65.42','rotation',90,'color','r')
text(69.14, 0.016,'69.14','rotation',90,'color','r')


set(h2,'Ylim',[0 0.1])

str={'图5.2  人工合成针铁矿X衍射图'}; %the note of this picture! 
set(gcf,'currentAxes',h1)
   text(0.5,0.03,str,'Fontsize',12,'horizontalAlignment','center')

 [X,map]=capture(fh);
  imwrite(X,map,'fig502.jpeg') % succeed in 2000.10.08
 imwrite(X,map,'fig502.bmp')

S=[xx yy];
soundsc(S)