function [HOL0,DOL0,HOD,LOL0,PSI]=wave(dol0,hohb) % ***************************************************************** % [HOL0,DOL0,HOD,LOL0,PSI]=wave(dol0,hohb) % ***************************************************************** % Read in basic HOL0,DOL0,HOD,LOL0, and PSI Tables. % (Note arguments dol0 and hohb just indicate meaning of rows % and columns of table and do not affect what is read in. % ***************************************************************** HOL0=[0.000000 0.000390 0.000779 0.001169 0.001564 0.000000 0.000974 0.001946 0.002925 0.003884 0.000000 0.001948 0.003886 0.005821 0.007753 0.000000 0.003902 0.007772 0.011678 0.015553 0.000000 0.009752 0.019505 0.029163 0.038997 0.000000 0.018312 0.036631 0.054927 0.073041 0.000000 0.031267 0.062490 0.093785 0.124492 0.000000 0.041995 0.083974 0.125988 0.168087 0.000000 0.042615 0.085197 0.128025 0.169650 0.000000 0.042602 0.085218 0.127534 0.170401]; DOL0=[0.002000 0.002000 0.002000 0.002000 0.002000 0.005000 0.005000 0.005000 0.005000 0.005000 0.010000 0.010000 0.010000 0.010000 0.010000 0.020000 0.020000 0.020000 0.020000 0.020000 0.050000 0.050000 0.050000 0.050000 0.050000 0.100000 0.100000 0.100002 0.100002 0.100002 0.199999 0.199999 0.199999 0.199999 0.199999 0.499998 0.499998 0.499998 0.499998 0.499998 0.999996 0.999996 0.999996 0.999996 0.999996 1.999993 1.999993 1.999993 1.999993 1.999993]; HOD=[0.000000 0.194829 0.389717 0.584426 0.782113 0.000000 0.194887 0.389164 0.585097 0.776719 0.000000 0.194817 0.388630 0.582125 0.775326 0.000000 0.195117 0.388580 0.583909 0.777657 0.000000 0.195032 0.390096 0.583254 0.779945 0.000000 0.183115 0.366304 0.549254 0.730398 0.000000 0.156335 0.312451 0.468925 0.622465 0.000000 0.083990 0.167949 0.251977 0.336176 0.000000 0.042615 0.085197 0.128025 0.169650 0.000000 0.021301 0.042609 0.063767 0.085201]; LOL0=[0.111865 0.119648 0.128262 0.137070 0.146465 0.176317 0.186504 0.199023 0.210547 0.222852 0.248035 0.259570 0.276172 0.291992 0.308203 0.347052 0.358594 0.379687 0.401172 0.422461 0.531040 0.541016 0.566016 0.597070 0.627344 0.709317 0.718164 0.743750 0.783203 0.824414 0.888432 0.899219 0.931055 0.981055 1.035156 0.996357 1.013086 1.059180 1.125195 1.193750 0.999993 1.017578 1.065234 1.132813 1.210937 1.000000 1.017773 1.065234 1.134375 1.222070]; PSI=[0.000000 -0.000178 -0.000246 -0.000286 -0.000312 0.000000 -0.000405 -0.000574 -0.000638 -0.000632 0.000000 -0.000724 -0.001075 -0.001219 -0.001185 0.000000 -0.001206 -0.001938 -0.002233 -0.002296 0.000000 -0.002188 -0.003854 -0.004620 -0.004386 0.000000 -0.003155 -0.005873 -0.007567 -0.007316 0.000000 -0.004328 -0.008220 -0.010950 -0.010896 0.000000 -0.005178 -0.009830 -0.013381 -0.013882 0.000000 -0.005255 -0.009933 -0.013501 -0.015022 0.000000 -0.005282 -0.009930 -0.013600 -0.015407];