2d gas simulation interactive: resize - File Exchange

Code covered by the BSD License

Highlights from
2d gas simulation interactive

gas inital properties window;
initial_props(varargin) INITIAL_PROPS M-file for initial_props.fig
nes_warn(varargin) NES_WARN M-file for nes_warn.fig
acc set velocities to zeros;
ar
au
balls
bdf(hfl) Button Down Function
buf clear hystory
dec
fin
h=plot_ball(x,y,nc,c)
m_new
move(hfl,xp,yp,x1,y1) makes move
out=set_random(v_mean)
resize calculate kk, kk is scale coefficient between pixels and units of axes:
rnd_v
stp set velocities to zeros;
run_me.m
View all files

from 2d gas simulation interactive by Maxim Vedenyov
It is possible to move balls with mouse. Clicked ball will get velocity of pointer.

resize

function resize
global ha kkx kky
drawnow;
% calculate kk, kk is scale coefficient between pixels and units of axes:
set(ha,'units','pixels');
ap=get(ha,'position');
set(ha,'units','normalized');

xlm=get(ha,'Xlim');
xun=xlm(2)-xlm(1);
ylm=get(ha,'Ylim');
yun=ylm(2)-ylm(1);

aba=get(ha,'PlotBoxAspectRatio');

if (aba(1)/aba(2))>(ap(3)/ap(4))
    kkx=xun/ap(3);
    ap4s=aba(2)*ap(3)/aba(1);
    kky=yun/ap4s;
else
    ap3s=aba(1)*ap(4)/aba(2);
    kkx=xun/ap3s;
    kky=yun/ap(4);
end

Highlights from 2d gas simulation interactive

Highlights from
2d gas simulation interactive