Здравствуйте, Shtole, Вы писали:
S>Здравствуйте, sambl74, Вы писали:
S>>>Есть какие-нибудь инструменты, чтобы понастраивать цветы и коэффициенты и сгенерировать уникальное видео подобного типа?
S>>>https://lpc-ext.s3.yandex.net/360_potok/1920.mp4
S>>Пишешь какую-нибудь красивую формулу, добавляешь в неё время — ну и потом генеришь в нужном разрешении сколько тебе надо по времени...
S>Какую, например?
clear;close all;clc;
load wind
speed=sqrt(u.*u+v.*v+w.*w);
%%
figure(1)
scatter3(x(
,y(
,z(
,[],speed(
%%
figure(2)
slice(x,y,z,speed,[],[],[5 10 15])
zlim([0 20])
%%
figure(3)
[xs, ys]=meshgrid(60:140, 20:60);
zs=20*ys./xs;
slice(x,y,z,speed,xs,ys,zs)
%%
figure(4)
contourslice(x,y,z,speed,[],[],[5 10 15],20)
zlim([0 20])
view(3)
%%
figure(5)
fv1=isosurface(x,y,z,speed, 10);
fv2=isosurface(x,y,z,speed, 20);
fv3=isosurface(x,y,z,speed, 30);
h1=patch(fv1);
h=patch(fv2);
h3=patch(fv3);
set(h1,'FaceColor',[1, 0.6, 0])
set(h1,'EdgeColor','none')
set(h,'FaceColor',[0, 0.5, 0.5])
set(h,'EdgeColor','none')
set(h3,'FaceColor',[1, 0.4, 1])
set(h3,'EdgeColor','none')
camlight;
lighting gouraud
view(3)
%%
figure(6)
quiver3(x,y,z,u,v,w);
%%
figure(7)
[cx,cy,cz]=meshgrid([70 80 90 100 110 120], [20 30 40 50 60],[0 5 10 15]);
coneplot(x,y,z,u.*100,v.*100,w.*100,cx,cy,cz,speed);
% set(h, 'edgecolor','none')
shading interp;
view(3)
%%
figure(8)
streamline(x,y,z,u,v,w,80,40,10)
hold on
plot3(80,40,10, 'bo')
view(3)
%%
figure(9)
[sx,sy,sz]=meshgrid(100,[20 30 40], [5 10]);
streamline(x,y,z,u,v,w,sx,sy,sz)
hold on
plot3(sx(
,sy(
,sz(
,'bo')
view(3)
%%
figure(10)
streamslice(x,y,z,u,v,w,[],[],1)
view(3)
%%
figure(11)
streamtube(x,y,z,u,v,w,sx,sy,sz)
shading interp;
view(3)
%%
figure(12)
h=streamribbon(x,y,z,u,v,w,sx,sy,sz);
shading interp;
view(3)
