Documentation of cartoon

Global Index (short | long) | Local contents | Local Index (short | long)

Help text

h = plot3(par2, lat, -100*ones(size(lat)), 'r');
set(h, 'linewidth', 2);

Cross-Reference Information

Listing of script cartoon

lims = [100 300 -30 30];
[lat, lon] = getll('temp', lims);
nlat = length(lat); nlon = length(lon);
fc = [1 .7 .7];
hold off;
figure(1); clf; subplot(2,1,1); view([-5 20]);
par = 150*lat.^2/(max(lat).^2) + 150;
h = patch(par, lat, 100*ones(size(lat)), 'r');
set(h, 'facecolor', fc, 'edgecolor', [1 0 0], 'linewidth', 2);
axis([min(lon) max(lon) min(lat) max(lat) -100 100])
hold on;
par2 = 100*(lat/max(lat)).^4 + 200;
h = patch(par2, lat, -100*ones(size(lat)), 'r');
set(h, 'facecolor', fc, 'edgecolor', [1 0 0], 'linewidth', 2);

par3 = 50*atan(2*(lon-180)/100)-20;
h = patch([lon(1); lon; lon(nlon)], lat(nlat)*ones(nlon+2,1), ...
          [100; par3; 100], [1 .8 .8]);
set(h, 'edgecolor', get(h, 'facecolor'));
h = patch([lon(1); lon; lon(nlon)], lat(nlat)*ones(nlon+2,1), ...
          [-100; par3; -100], [.8 .8 1]);
set(h, 'edgecolor', get(h, 'facecolor'));

par4 = 30*atan(2*(lon-180)/100)-15;
h = plot3(lon, lat(nlat)*ones(size(lon))-0.1, par4, '--k');
set(h, 'linewidth', 2);

x = [100 300 NaN 100 300 NaN 180 180 NaN 180 180 NaN];
y = [0 0 NaN 0 0 NaN -30 30 NaN -30 30 NaN];
z = [-100 -100 NaN 100 100 NaN -100 -100 NaN 100 100 NaN]+.1;
h = line(x, y, z); set(h, 'LineStyle', ':', 'color', 0*[1 1 1]);

x = [lon lon repmat(NaN, size(lon))];
y = [repmat(lat(nlat)-0.1, size(lon)) repmat(lat(nlat)-0.1, size(lon)) ...
     repmat(NaN, size(lon))];
z = [par3 par4 repmat(NaN, size(lon))];
h = line(x', y', z');
set(h, 'color', [0 0 0]);

dz = (par3-par4)/3;
dx = dz*tan(pi/10);
x = [lon lon+dx repmat(NaN, size(lon))];
z = [par4 par4+dz repmat(NaN, size(lon))];
h = line(x', y', z');
set(h, 'color', [0 0 0]);

x = [lon lon-dx repmat(NaN, size(lon))];
h = line(x', y', z');
set(h, 'color', [0 0 0]);


hold off