|
Revision 495
(checked in by cbc, 12 years ago)
|
Initial import of Stark code.
|
| Line | |
|---|
| 1 |
function [smin,smax,ibw]=contour_fd(scalar,smin,smax,ibw) |
|---|
| 2 |
fprintf(1,'Scalar Range: %f to %f\n',min(min(scalar)),max(max(scalar))) |
|---|
| 3 |
if nargin == 1 |
|---|
| 4 |
smin=input('Enter min contour level desired: '); |
|---|
| 5 |
smax=input('Enter max contour level desired: '); |
|---|
| 6 |
ibw =input('Enter the contour interval: '); |
|---|
| 7 |
end |
|---|
| 8 |
cval=smin:ibw:smax; |
|---|
| 9 |
colormap(jet) |
|---|
| 10 |
caxis([min(cval) max(cval)]); |
|---|
| 11 |
[c,h]=contour(scalar,cval); |
|---|
| 12 |
clabel(c,h); |
|---|
| 13 |
size(scalar); |
|---|
| 14 |
axis([1 ans(2) 1 ans(1)]); |
|---|
| 15 |
set(gca,'XTick',[]); |
|---|
| 16 |
set(gca,'YTick',[]); |
|---|
| 17 |
drawnow; |
|---|
