Parent Directory
| 
Revision Log
| 
Revision Graph
Checking in work done with Dimitri on high-resolution cube gridding and parallel
communications.
o code is in a contrib experiment for now so we can continue collaborating
on it. However most code is general and will be moved into main branch once
it is fully hardened.
o There are README files in the contrib root and in the subdirectories that
explain the contents
| 1 | function [] = displaytiles(A) |
| 2 | % Display tiled field. |
| 3 | % |
| 4 | % Dimensions of A must be (n,n,6) |
| 5 | |
| 6 | global cmin cmax |
| 7 | clf |
| 8 | |
| 9 | cmin=min(min(min(A))); |
| 10 | cmax=max(max(max(A))); |
| 11 | if isnan(cmin) |
| 12 | cmin = 0; |
| 13 | end |
| 14 | if isnan(cmax) |
| 15 | cmax = 1; |
| 16 | end |
| 17 | if cmin==cmax |
| 18 | cmax = cmin+1; |
| 19 | end |
| 20 | |
| 21 | subplot(3,4,9) |
| 22 | myplot(A(:,:,1)') |
| 23 | subplot(3,4,10) |
| 24 | myplot(A(:,:,2)') |
| 25 | subplot(3,4,6) |
| 26 | myplot(A(:,:,3)') |
| 27 | subplot(3,4,7) |
| 28 | myplot(A(:,:,4)') |
| 29 | subplot(3,4,3) |
| 30 | myplot(A(:,:,5)') |
| 31 | subplot(3,4,4) |
| 32 | myplot(A(:,:,6)') |
| 33 | |
| 34 | |
| 35 | %Colorbar |
| 36 | subplot(3,10,30) |
| 37 | x=0:1; |
| 38 | y=(0:63)'/63*(cmax-cmin)+cmin; |
| 39 | pcol(x,y,[y y]); |
| 40 | set(gca,'XTickLabel',[]); |
| 41 | |
| 42 | function [] = myplot( Q ) |
| 43 | global cmin cmax |
| 44 | pcol( Q ); |
| 45 | caxis([cmin cmax]) |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |