Как-то раз решил я построить один график... Получилось красиво. В общем, скидываем сюды разные картинки с "рецептами". Для затравки совсем простые штуки:

Нажмите для просмотра прикрепленного файла

Нажмите для просмотра прикрепленного файла

Нажмите для просмотра прикрепленного файла

Да-да! У нас тут, насколько я помню, осенью выставка намечается.
Это отлично вписывается в ее формат.

Есличо, я могу с палитрой поиграться.

Ну это точно резонирует с темой о выставке физического искусства.

Цитата(SnowGuitar @ 6 июля 2005г. - 13:29)

Как-то раз решил я построить один график...

чем рисовал?

ваще супер!! я конечно в этом семестре сдавал по матану функции нескольких переменных, но то как они могут выглядеть даже и не подразумевал. Чем рисовал то?

И еще вопрос: почему на одном графике несколько цветов?

Рисовалося оно в ЛабВью. Цвета "два" потому, что цвет задается как угодно одномерным массивом. Можно вообще напихать в этот массив рандомов. Тока смысл? А так плавный переход от черного к белому через оттенки синего.

Вот еще один штука. Повеселей чуть-чуть.

Нажмите для просмотра прикрепленного файла

красотышша!

Никогда не думал, что LV можно для такого юзать
как тест?

Поменял палитру. Вроде так круче. Еще две штуки:

Нажмите для просмотра прикрепленного файла где

Нажмите для просмотра прикрепленного файла

резалт - через 2 недели

красавец! формулы сам придумываешь?

Ага. Выше, кстати, продемонтрирована изрядная похабность простого генератора случайных чисел в LabView. Можно было заюзать хороший белый шум, но прога и так считалась минуты две.

ну у тя и воображение..

Не удержался...

Нажмите для просмотра прикрепленного файла

Последний график супер=))
А уж формула как впечатляет...

Ребят, вы меня вдохновили =) Респект!!!
После этого сам написал прогу для рисования подобных штук
Результаты ниже

Картинка1
Картинка1
Картинка1

я еще буду экспериментировать =))
КОнтакт: ICQ#700-929-73


Админ, потри плиз предыдущий пост.... сламерил =)

ЖЖОЦЦАнимогу
Ну вы, блин, даете !

Самому теперь еще меньше захотелось зато

А последнее вообще фрактальщиной отдает

Это, я так понимаю, картинки просто сложены. Нет, Бот, что самое смешное, в последней картинке никаких фракталов нет. Я с ужасом понимаю, что доботался до того, что знаю, как это сделать.

Гест, решпект.

Гест вот даже зарегился =)
И вам респект, ребята! я еще буду экспериментировать.... =) проникся... И никакой ЛабВью не нужен =-)))

2 MARSIK
и как же рисуешь?

Говорю же прогу написал, цвета по формулам считает... и поскольку ваш лабвью - парсер, а моя прога компилируется уже с формулой, то скорость раз в 5 больше (учитывая как было скзаано выше - несколько минут на рендер) - у меня рендерится за 10секунд =)) Проц 3GHz

Искусству все равно, чем оно рендерится. В принципе, на ЛабВью мона и несколько цветов, и на быстрый рендер настроить. Но меня пока интересует не это. Мне как раз хотелось заинтересовать народ. Вроде получилось. =)

2 MARSIK
дай поюзать прогушку.

И еще. "Наш" ЛабВью - компилятор, но, при желании, его можно использовать как парсер.

FormulaViewer
Еще доделывается =)
Мануал:
Ползунок сверху и слева - движение картинки
Справа и внизу - зум. Чекбокс "Lock X&Y" связывает вертикальный и горизонтальный зум =)
MinusKillerMethod говорит сам за себя =) способ уничтожения отрицательного цвета
ChannelsIntensity - R,G,B сверху вниз =)
Zoom / - коэффициент "можности" зума, чем больше тем мягче
Scroll / - аналогично но для перемещения =)

Счетчик над кнопой DRAW - номер встроенного алгоритма, 1..9
батон DRAW делает все =)

ЗЫ: разворачивать на полный экран =)


а заинтересовать получилось более чем =) Сенку, вдохновитель =)

Да, и формулы для каждой на DELPHI

function StrangeIf(x,y: real):bit;
begin
if (arccos(sin(x*x+y*y+x*y))>0.5) then result:=0 else result:=1;
end;

function CheckEquation(formula: real; maxdeviation_from_zero: real; gradient: boolean):real;
begin
//Чем ближе formula к нулю, тем больше результат вплоть до maxdeviation_from_zero
//Чем дальше, тем ближе результат к нулю
if (formula=0) then begin result:=1; exit; end;
if (abs(formula)>=abs(maxdeviation_from_zero)) then begin result:=0; exit; end;

if gradient then result:=maxdeviation_from_zero/formula else result:=1;
end;

function DrawEquation(formula: real; maxdeviation_from_zero: real; insideout: boolean = false):real;
begin
//Чем ближе formula к нулю, тем больше результат вплоть до maxdeviation_from_zero
//Чем дальше, тем ближе результат к нулю
if (formula=0) then begin result:=maxdeviation_from_zero; exit; end;
if (abs(formula)>=abs(maxdeviation_from_zero)) then begin result:=0; exit; end;

if insideout then result:=maxdeviation_from_zero/formula else result:=formula/maxdeviation_from_zero;
end;



xxyyxy:=x*x+y*y+x*y;

1:
begin
Matrix[ix,iy].R:=power(cos(xxyyxy/100),10);
Matrix[ix,iy].G:=cos(xxyyxy/100);
Matrix[ix,iy].B:=sin((random+10)*xxyyxy/1000);
end;
2:
begin
Matrix[ix,iy].R:=-arctan(0.1*cos(arccot((x*x+y*y)/20000)));
Matrix[ix,iy].G:=-arctan(0.01*cos(arccot((x*x+y*y)/30000)));
Matrix[ix,iy].B:=-arctan(0.001*cos(arccot((x*x+y*y)/40000)));
end;
3:
begin
Matrix[ix,iy].R:=random*sin(coth(arctan(xxyyxy)/60000));
Matrix[ix,iy].G:=random*sin(coth(arctan(xxyyxy)/70000));
Matrix[ix,iy].B:=random*sin(coth(arctan(xxyyxy)/65000));
end;
4:
begin
Matrix[ix,iy].R:=sin(ln(0.1+abs(xxyyxy)/5000))+0.05*cos(xxyyxy/100);
Matrix[ix,iy].G:=sin(arccoth(arctan(xxyyxy)/50000)/(x/(y+1)+1));
Matrix[ix,iy].B:=sin(arccos(arctan(xxyyxy)/5000)/(x/(y+1)+1));
end;
5:
begin y:=(y-402)/2.2; x:=x/2.2;
Matrix[ix,iy].R:=//sin(x*y*arccos(sin(arctan( (x*x+y*y+x*y)/10000 ))))* //Это просто коэффициент для мегакошерной маски =)
cos(y/(x+1)*arctan(x/(y+200)*arctan(y*arctan(x))))
;
x:=x*2.2; y:=y*2.2+440;
Matrix[ix,iy].G:=//cos(sin((x*x+y*y+x*y)/10000)*(x*sin(y)+y*sin(x))/10)* //Тоже коэффициентная маска =)
0.3*sin((x*x*x/10+x*y+y*y)/1000)*ln(0.001+abs( sin( (x*x+y*y+x*y)/1000 ) )) //Зеленые срачки
+1.5*sin(StrangeIf(x,y)*cos((y+1)/(x+1)*arctan(sin(x*x+y*y+x*y)))) //Накладка на синий
+1*sin(ln((x*x+y*y+x*y+1)*5)) //Круг в центре
;
Matrix[ix,iy].B:=sin(StrangeIf(x,y)*cos((y+1)/(x+1)*arctan(sin(x*x+y*y+x*y))));
end;
6:
begin
Matrix[ix,iy].G:=power(cos(sin((xxyyxy)/500)*(x*sin(y)+y*sin(x))/50),19)* //Маска
power(cos(power(abs(sin((x+19)/10)+cos((y+32)/10)),0.5)),2)* //Сетка
power(cos((power(x+y,2)-x*y)/2000),2)//Дуги

+power(sin(power(abs(sin((x+19)/10)+cos((y+32)/10)),0.5)),29)* //Пятна
power(sin((power(x+y,2)-x*y)/200),1)//радиус-Маска для пятен
;
Matrix[ix,iy].R:=(Matrix[ix,iy].G)*sin((xxyyxy)/2000);
Matrix[ix,iy].B:=(Matrix[ix,iy].G)*cos((xxyyxy)/2000);
end;
7:
begin
Matrix[ix,iy].G:=abs(DrawEquation(x+100+50*sin(0.1*y), 101));
Matrix[ix,iy].R:=abs(DrawEquation(x +50*sin(0.1*y), 101));
Matrix[ix,iy].B:=abs(DrawEquation(x-100+50*sin(0.1*y), 101));;
end;

8:
begin
Matrix[ix,iy].R:=sin(ln(arctan(xxyyxy)/50000)/(x/(y+1)+1))
*sin((xxyyxy)/1000);
Matrix[ix,iy].G:=(Matrix[ix,iy].R)*cos((xxyyxy)/2000);
Matrix[ix,iy].B:=(Matrix[ix,iy].R)*sin((xxyyxy)/3000);
end;

9:
begin
tmp:=cos(xxyyxy/3000*power(0.1,cos(xxyyxy/3000)));

Matrix[ix,iy].R:=(tmp*power(cos((y+1)/(x+1)),2) );
Matrix[ix,iy].G:=(tmp*power(sin((x+1)/(y+1)),2) );
Matrix[ix,iy].B:=(tmp*power(sin((y+1)/(x+1)),2) );
end;

ВНУШАЕТ

SnowGuitar, зацени прогу =)
Негр, сенку =)

я нифига не понял скрипт твой
ну да ладно

Вот тоже решила побаловаться в Матлабе.
Картинка напомнила мне чем-то речку и пляжик.. туды бы щаз

2 Relana
заучилась ты малец... больше тебе это ничего не напоминает?

Ок. Бэк ту ворк.

Вот это (что бы оно ни было) родилось сегодня в приступе вдохновения:

Нажмите для просмотра прикрепленного файла

по поводу последнего - если бы индейцы Майя петрили в анализе, это была бы их любимая функция. как то имхо в их духе