updatefigpartdata.m
ddfe457d9de0geom_testpardiso

updatefigpartdata.m
View Options

			function updatefigpartdata(control, event, Othercontrol, fig, M)


			if strcmp(event.EventName,'ValueChanged')
			fieldstep=floor(control.Value);
			control.Value=fieldstep;
			else
			fieldstep=floor(event.Value);
			end
			Othercontrol.Value=fieldstep;

			sgtitle(fig,sprintf('step=%d t=%0.5e s',(fieldstep-1)M.it2,double((fieldstep-1)M.it2)*M.dt))
			%data.pos=[M.Z(:,fieldstep),M.R(:,fieldstep)];
			data.pot=M.pot(:,:,fieldstep)';
			data.Ez=M.Ez(:,:,fieldstep)';
			data.Er=M.Er(:,:,fieldstep)';

			%% update Position plot
			ax1=fig.Children(end);
			ax1.Children.XData=M.Z(:,fieldstep);
			ax1.Children.YData=M.R(:,fieldstep);


			view(ax1,2)
			%% update VZ VPERP
			fig.Children(end-1).Children(1).XData=M.VZ(:,fieldstep);
			fig.Children(end-1).Children(1).YData=M.VR(:,fieldstep);
			axis(fig.Children(end-1),'equal')

			%% update Z VZ
			fig.Children(end-2).Children(1).XData=M.Z(:,fieldstep);
			fig.Children(end-2).Children(1).YData=M.VZ(:,fieldstep);
			%% update VZ VR
			fig.Children(end-3).Children(1).XData=M.VZ(:,fieldstep);
			fig.Children(end-3).Children(1).YData=M.R(:,fieldstep);

			%% update R VR
			fig.Children(end-4).Children(1).XData=M.Z(:,fieldstep);
			fig.Children(end-4).Children(1).YData=M.VR(:,fieldstep);

			%% update Z VR
			fig.Children(end-5).Children(1).XData=M.VR(:,fieldstep);
			fig.Children(end-5).Children(1).YData=M.R(:,fieldstep);
			drawnow limitrate



			end