|
Revision 495
(checked in by cbc, 12 years ago)
|
Initial import of Stark code.
|
| Line | |
|---|
| 1 |
% |
|---|
| 2 |
% Notify user if this script file cannot be used with their version of matlab |
|---|
| 3 |
% |
|---|
| 4 |
thisversion=version; |
|---|
| 5 |
if thisversion(1) < '5' |
|---|
| 6 |
fprintf(1,'\n\nSORRY: This matlab script file fails for earlier releases of matlab than Version 5.1 \n\n') |
|---|
| 7 |
fprintf(1,'You are currently using matlab version: %c%c%c%c%c%c%c%c%c%c%c',version) |
|---|
| 8 |
fprintf(1,'\n\n') |
|---|
| 9 |
break |
|---|
| 10 |
end |
|---|
| 11 |
% |
|---|
| 12 |
% Load data from files and set data arrays |
|---|
| 13 |
% |
|---|
| 14 |
ls *.s2r |
|---|
| 15 |
filename=input('Enter the name of your .s2r file: ','s'); |
|---|
| 16 |
[s2r,gridname]=read_s2r(filename); |
|---|
| 17 |
scalar=s2r(:,2); |
|---|
| 18 |
[in,x,y,z,bnd]=loadgrid(gridname(1:length(gridname)-1)); |
|---|
| 19 |
% |
|---|
| 20 |
% Make plot |
|---|
| 21 |
% |
|---|
| 22 |
figure |
|---|
| 23 |
whitebg('w') |
|---|
| 24 |
axis([min(x) max(x) min(y) max(y)]) |
|---|
| 25 |
axis('equal') |
|---|
| 26 |
[smina,smaxa,ibw]=grayband_fe(in,x,y,bnd,scalar) |
|---|
