%%%%%%%%%%%%%
% smith76.m %
%%%%%%%%%%%%%

dispersion;

a = [
0.10526315789473685 0.9433361629881154
0.10121457489878542 1.1047897348831135
0.20242914979757085 1.9474826955726785
0.29959514170040485 2.8911453571894996
0.4008097165991903 3.7539996082016454
0.4939271255060728 4.496212615907013
0.5991902834008097 5.116968133733838
0.6963562753036437 5.657404988899046
0.7935222672064777 5.996228940838448
0.8947368421052632 6.294567062818336
0.8947368421052632 7.927631578947368
0.7935222672064777 7.810745069870706
0.6923076923076923 7.593052109181141
0.5951417004048583 7.133260415306255
0.4979757085020243 6.6129848504636275
0.4008097165991903 5.911257672717774
0.29959514170040485 4.887113099124983
0.20647773279352225 3.4594162204518737
0.11740890688259109 1.9912335118192503
    
    9.048728364875531E-4 12.997622302227528
0.19697348915115226 13.163271789145377
0.40133998190254333 13.477330047553956
0.5975048612849194 13.74910956662367
0.7977320421247185 13.99957644250207
0.9023507441135133 16.841695385148533
0.8048170039082806 17.310746808879305
0.7030091834966596 17.56762480506729
0.6014901522881732 18.142892897710865
0.5034558441308408 18.06006815425194
0.4011474557671204 17.765069983250225
0.2982807416106736 16.8545176257677
0.19862921391578908 14.988708342157448
0.14462563292967018 13.949760304961398

    ];

plot(a(:,1)*len(1),a(:,2),'ro');

a = [
    0 6.308016877637131
0.10167747247092726 6.708860759493671
0.19998456313677057 7.320675105485233
0.2983945662241433 8.016877637130802
0.29872903159411346 8.291139240506329
0.40081815375115776 8.670886075949367
0.5022383451682617 8.50210970464135
0.6029638777400432 7.763713080168777
0.602783781002367 7.616033755274262
0.6990840794483895 6.582278481012659
0.7985489348564372 4.810126582278481
0.909539981475764 2.489451476793249
0.8960584542554286 1.4345991561181435
0.7960790367397346 2.7848101265822787
0.6999845631367706 3.9873417721518987
0.6037614490068952 5.084388185654008
0.499279613049295 6.075949367088608
0.39863126479366057 6.877637130801688
0.2976227230626737 7.383966244725738
0.2005248533497993 7.763713080168777
0.10311824637233716 7.890295358649789
0.0015694144283214982 7.953586497890296
    
    -0.0022718083979900274 13.995331241215995
-0.002040777035482567 14.25004331838047
0.10498450164609846 15.24541306482355
0.19628039506362988 16.899135557651952
0.19651142642613734 17.153847634816426
0.29543135480641497 18.213068674072506
0.39795152191910055 18.74155291580832
0.5004139311911593 19.206359138253017
0.5980439344641034 18.843437746674113
0.6988506189715255 17.482807416106738
0.799503282570609 15.952369034096378
0.8953620453976627 13.636655050923164
0.7970774532642806 13.27789222386939
0.6994859552184209 13.683265628309043
0.5983712288943224 14.70427985599045
0.49278989622841307 15.30086059182534
0.399453225775399 15.897181417377409
0.2977801736585741 16.302641458578
0.30211201170558905 16.57849290541191
0.09824608690629752 16.816310814193027
-0.00377351225428852 16.839702739646906

];

plot(a(:,1)*len(2)+len(1),a(:,2),'ro');

a = [
    0.09539309394643933 0.9282700421940928
0.19857056746749333 1.6244725738396624
0.19071729957805908 1.8143459915611815
0.29804529406699387 2.5527426160337554
0.397416688194265 3.4177215189873418
0.49647808490484807 4.0928270042194095
0.5954017049857917 4.6835443037974684
0.6941186601222767 5.147679324894515
0.7966416946525445 5.443037974683544
0.8989580642383534 5.6118143459915615
0.9969861362266426 5.654008438818566
0.9918711788512874 10.021097046413502
0.8936708860759495 9.873417721518987
0.7950917075691035 9.49367088607595
0.69613364333075 8.881856540084389
0.5927839490226471 8.080168776371307
0.49306811332127787 7.0042194092827
0.39733057780074055 5.864978902953586
0.3969861362266425 5.654008438818566
0.2972014122104538 4.5358649789029535
0.19690002583311805 3.1012658227848102
0.09217256522862308 1.4556962025316456
    
    -0.00273224043715847 13.0
0.09612254389024531 13.361702127659575
0.19980234856412046 14.25531914893617
0.29615742355540053 15.787234042553191
0.33347866527148007 16.106382978723403
0.3966108592024183 17.319148936170212
0.5956284153005464 19.0
0.7975526101616092 19.80851063829787
0.9947389838390884 20.148936170212764
0.9971514940123242 15.914893617021276
0.7958958260667365 15.595744680851064
0.5983025229624462 14.957446808510639
0.3960585978374608 13.914893617021276
0.19410533658876875 13.085106382978724

];

plot(a(:,1)*len(3)+len(1)+len(2),a(:,2),'ro');

text(len(1)*.4, nu_max*0.97, '[\xi00]');
text(len(1)+len(2)*.4, nu_max*0.97, '[0\xi\xi]');
text(len(1)+len(2)+len(3)*.4, nu_max*0.97, '[\xi\xi\xi]');

J = [
0.0 5.46820809248555
0.07772020725388602 5.510597302504817
0.1606217616580311 5.637764932562621
0.23316062176165803 5.84971098265896
0.2901554404145078 6.061657032755299
0.3471502590673575 6.273603082851638
0.39378238341968913 6.485549132947978
0.4404145077720208 6.655105973025049
0.4922279792746114 6.909441233140656
0.538860103626943 7.078998073217727
0.6010362694300518 7.290944123314066
0.6476683937823834 7.163776493256263
0.694300518134715 7.03660886319846
0.7409326424870467 6.951830443159924
0.7772020725388602 6.909441233140656
0.8186528497409327 6.867052023121388
0.8601036269430052 6.82466281310212
0.9015544041450778 6.782273603082852
0.9378238341968912 6.739884393063584
0.9948186528497409 6.782273603082852
0.9274611398963731 6.909441233140656
0.844559585492228 7.121387283236995
0.8082901554404146 7.248554913294798
0.766839378238342 7.375722543352602
0.7150259067357514 7.502890173410406
0.7616580310880829 7.630057803468209
0.8134715025906736 7.714836223506745
0.8601036269430052 7.79961464354528
0.8963730569948187 7.842003853564548
0.9378238341968912 7.9267822736030835
0.9948186528497409 7.969171483622351
0.6787564766839379 7.460500963391137
0.6424870466321244 7.375722543352602
0.6373056994818653 7.630057803468209
0.6010362694300518 7.672447013487477
0.5595854922279793 7.714836223506745
0.5077720207253886 7.969171483622351
0.455958549222798 8.223506743737959
0.40932642487046633 8.435452793834298
0.3678756476683938 8.647398843930636
0.3264248704663213 8.816955684007707
0.26424870466321243 9.113680154142584
0.20207253886010365 9.36801541425819
0.15544041450777205 9.537572254335261
0.1139896373056995 9.622350674373797
0.06217616580310881 9.707129094412332
0.0 9.7495183044316
0.47150259067357514 7.078998073217727
0.4352331606217617 6.994219653179192
0.383419689119171 6.782273603082852
0.3367875647668394 6.570327552986513
0.29533678756476683 6.3583815028901745
0.24870466321243523 6.146435452793835
0.19689119170984457 5.934489402697496
0.0 16.404624277456648
0.04663212435233161 16.404624277456648
0.1139896373056995 16.447013487475918
0.17616580310880828 16.404624277456648
0.23834196891191714 16.404624277456648
0.27979274611398963 16.362235067437382
0.3471502590673575 16.277456647398846
0.3886010362694301 16.235067437379577
0.4507772020725389 16.15028901734104
0.4922279792746114 16.107899807321775
0.5492227979274612 16.065510597302506
0.5958549222797929 16.065510597302506
0.3212435233160622 16.531791907514453
0.4196891191709845 16.404624277456648
0.3730569948186529 16.489402697495184
0.6321243523316062 15.895953757225435
0.683937823834197 15.684007707129096
0.7305699481865285 15.472061657032757
0.7875647668393783 15.21772639691715
0.8341968911917099 15.04816955684008
0.8860103626943006 14.836223506743739
0.9326424870466321 14.709055876685936
0.9948186528497409 14.6242774566474
0.9481865284974093 14.963391136801542
0.911917098445596 15.344894026974954
0.8860103626943006 15.684007707129096
0.8601036269430052 16.065510597302506
0.8290155440414508 16.57418111753372
0.8031088082901555 16.9980732177264
0.766839378238342 17.421965317919078
0.7357512953367876 17.845857418111756
0.694300518134715 18.312138728323703
0.6476683937823834 18.608863198458575
0.6010362694300518 18.73603082851638
0.5440414507772021 18.73603082851638
0.4870466321243524 18.820809248554916
0.4404145077720208 18.90558766859345
0.39378238341968913 19.075144508670522
0.3575129533678757 19.202312138728328
0.305699481865285 19.456647398843934
0.2590673575129534 19.71098265895954
0.2227979274611399 19.922928709055878
0.18134715025906736 20.13487475915222
0.13989637305699482 20.30443159922929
0.09326424870466322 20.431599229287094
0.05181347150259068 20.558766859344896
0.0 20.601156069364166
0.6424870466321244 16.15028901734104
0.683937823834197 16.277456647398846
0.7305699481865285 16.404624277456648
0.7616580310880829 16.489402697495184
0.8601036269430052 16.57418111753372
0.8963730569948187 16.61657032755299
0.9326424870466321 16.61657032755299
0.9689119170984457 16.61657032755299
0.9948186528497409 16.658959537572255
];

plot(J(:,1)*(len(4)+len(5))+len(1)+len(2)+len(3),J(:,2),'g.');
x=repmat(' ',23,2); x(1,:)=' 0'; x(6,:)=' 5'; x(11,:)='10';
x(16,:)='15'; x(21,:)='20';
set(gca,'YTick',0:1:22,'YTickLabel',x);

print -depsc smith76.eps;
