Перейти к содержанию
Открыть в приложении

Удобный доступ к форуму. Подробнее.

Asterios

Полноэкранное приложение на главном экране с push-уведомлениями, значками и другими возможностями.

Установка на iOS и iPadOS
  1. В Safari нажмите значок «Поделиться»
  2. Прокрутите меню и выберите На экран «Домой».
  3. Нажмите Добавить в правом верхнем углу.
Установка на Android
  1. Нажмите меню с тремя точками (⋮) в правом верхнем углу браузера.
  2. Выберите Добавить на главный экран или Установить приложение.
  3. Подтвердите действие кнопкой Установить.

Объявления

Решение ВСЕХ проблем с игрой!

Ctrl+V

Рекомендуемые ответы

Опубликовано

>>ВТТ топ двурук или для берса+16/300 на мамбу+16\300

Опубликовано
facepalm.gif
Опубликовано

ДомаСрачАЯкач :dash:

Опубликовано
6016a357bd1b0bfb35cd56233a6f770c.gif
Опубликовано

Кнопка опробования запустит звонок только если все ввода получат сигнал о, аварии, звонок звенит прирывисто

Опубликовано

1 Иногда раухтопазу приписываются успокаивающее воздействие, а также то, что он может помочь избавиться от стресса и боли

2 Считается, что украшения из дымчатого кварца снимают злобу и раздражительность

3 обладает способностью выводить негативную энергию, помогает при депрессивных состояниях.

4 Тот, кто носит камень, может улучшить функцию надпочечников, почек, поджелудочной железы.

Изменено пользователем кристинка

  • 4 месяца спустя...
Опубликовано

// Получили ответ. Парсим результат

Опубликовано

(кот в ссоре с собственными лапами)

Опубликовано

РІДНА ДОМІВКА. Згадуючи дитинство, проймаєшся дивними відчуттями. Якось щемно стає у грудях, коли згадуєш подвір’я, на якому зробив перші кроки. Невелике, затишне, повите виноградною лозою, воно ледве пропускало сонячні промені. Улітку захищало від спеки, взимку - від сніговіїв. Восени падолист застеляв землю пухким килимом, на якому бурюкалися ми, діти. А піднімеш голову вгору - налиті кетяги винограду. Ледь прибиті ранковою памороззю, яка стікала вдень прозорою краплею, виноградні грона здавалися прозорими, навіть насіння проступало крізь блідо-рожеву обо-лоночку і манило дитячу уяву. Тоді татко брав мене на руки, підіймав угору і я діставав губами стиглі виноградинки. А на дверях, притулившись до одвірка, стояла мама й удавано сердилася, побачивши моє замурзане личко. А потім ми всі весело сміялись. Навесні батько обрізав лозу - і подвір’я світлішало, щоб уже в травні зазеленіти знов.

Наш будинок був розташований на околиці селища й одним боком дивився на байрак. А на іншому боці яру височіли багатоповерхові будинки. Наш невеликий провулочок складався з одноповерхових будиночків приватної забудови і був невеличким острівцем краси і гармонії посеред великого гамірного міста.

Нашій сім’ї належала одна частина будиночка, з іншого боку височів сусідський паркан. Бабуся вважала, що цей паркан псує красу, і засаджувала його плетючими квітами. Коли зацвітала червона красоля та різнокольорові чашечки кручених паничів - паркан зникав, перетворюючись на барвистий яскравий килим. Невеличкий штахетник огороджував бабусин палісадник перед вікнами від вулиці. Чого там тільки не було! Квіти змінювалися залежно від сезону, наповнюючи подвір’я пахощами літа, але бабусиною гордістю завжди вважалися троянди. Вона вирощувала їх із пагінців, захищала від негоди, а коли вони зацвітали - не могла намилуватися ними. А одного разу вона виростила троянду-плетючку, колючу-колючу, але невимовно прекрасну. Мені найдужче подобався білий бузок, який ріс під вікном моєї кімнати. Бабуся посадила його на честь мого народження, але він обігнав мене в рості. Щороку на День Перемоги ми з бабусею ламали бузок і йшли до Меморіалу Слави. Бабуся підіймала мене на руки, і я клав білий букет до вічного вогню. А повертаючись додому, я бачив, як біліли бузкові квіти на фоні червоного цегляного будинку і ледь торкалися мого вікна. Навесні наш будинок змінювався, бо змінювався сад за ним. Спочатку він вирував білою завірюхою яблуневого і вишневого цвіту, трохи згодом потопав у зелені, а ще пізніше - у багрянці налитого плоду. Невеличкі віконця блищали чистими шибками, що зоріли і вабили різним теплом.

Звідти я пішов у перший клас, а коли батьки одержали квартиру у багатоповерховому будинку в іншому районі міста, я відмовився з ними переїжджати, залишившись жити у бабусі.

А тепер, коли бабусі не стало, я ходжу до школи в новому районі, де живуть мої батьки. Мені подобається і мій дім, і нова школа, і мої нові друзі. Але там, в старому районі, залишилося не тільки моє дитинство, а й часточка мене самого. Іноді навіть уявляю, що відчиняю хвіртку, а там на порозі стоїть бабуся і чекає на мене. Знаю, що чудес не буває, що минуле не повертається. Але в серці на все життя залишаться спогади про старенький чепурний будиночок, огорнений серпанком саду,- моя рідна домівка.

[22.12.2011 22:52:13] БуйнаяОслица: РІДНА ДОМІВКА. Згадуючи дитинство, проймаєшся дивними відчуттями. Якось щемно стає у грудях, коли згадуєш подвір’я, на якому зробив перші кроки. Невелике, затишне, повите виноградною лозою, воно ледве пропускало сонячні промені. Улітку захищало від спеки, взимку - від сніговіїв. Восени падолист застеляв землю пухким килимом, на якому бурюкалися ми, діти. А піднімеш голову вгору - налиті кетяги винограду. Ледь прибиті ранковою памороззю, яка стікала вдень прозорою краплею, виноградні грона здавалися прозорими, навіть насіння проступало крізь блідо-рожеву обо-лоночку і манило дитячу уяву. Тоді татко брав мене на руки, підіймав угору і я діставав губами стиглі виноградинки. А на дверях, притулившись до одвірка, стояла мама й удавано сердилася, побачивши моє замурзане личко. А потім ми всі весело сміялись. Навесні батько обрізав лозу - і подвір’я світлішало, щоб уже в травні зазеленіти знов.

Наш будинок був розташований на околиці селища й одним боком дивився на байрак. А на іншому боці яру височіли багатоповерхові будинки. Наш невеликий провулочок складався з одноповерхових будиночків приватної забудови і був невеличким острівцем краси і гармонії посеред великого гамірного міста

Опубликовано

3:58=Kaskade&c[section]=audio] Kaskade - Turn It Down

Опубликовано

Класно inlove2

Опубликовано

Пусто.

Опубликовано

ссыла с радикала(( сюда нельзя,такая картинка хорошая(( <_<

Опубликовано

Лог :Три шестёрки три девятки

Мой пароль я Сатана

Опубликовано

метоксихлордиэтиламинометилбутиламиноакридинами

Опубликовано

дикой своей н

Опубликовано

zxfvsdffffffffffsaf

Опубликовано

function lab3(enKEv, width, costh2)

n=78;NN=100;

[ENERGY s SE SN s1 s2 s3 s4 s5 s6]=textread('in.txt','%f %s %f %f %s %s %s %s %s %s');

ENERGY(strcmp(s,{'keV'}))=ENERGY(strcmp(s,{'keV'}))*1000;

ENERGY(strcmp(s,{'MeV'}))=ENERGY(strcmp(s,{'MeV'}))*1000000;

Z1=33;

M1=74.92;

Z2=14;

M2=28.0;

Np=0.05;

Gamma=(4*M1*M2)/((M1+M2)*(M1+M2));

E0=enKEv*1000;

Ec=0.01*E0;

Distr=zeros(1,NN);

first=width / NN +0.01;

step=width / NN;

for j=1:1000

Enew=E0;

E1=0.0;

E2=0.0;

Se1=0.0;

Se2=0.0;

x=0;

y=0;

OmegaX=1;

OmegaY=0;

OmegaZ=0;

while (Enew>Ec)&&(x>=0)

Enew;

for i=1:n

if (Enew>=ENERGY(i))&&(Enew<=ENERGY(i+1))

E1=ENERGY(i);

Se1=SE(i);

E2=ENERGY(i+1);

Se2=SE(i+1);

break;

end

end

Se=(Se1+(Enew-E1)*(Se2-Se1)/(E2-E1));

L=Np^(-1/3);

alpha=rand(1)*2*pi;

T=FindT(Enew,costh2,Z1,Z2,M1,M2);

Myu=M2/M1;

Tau=T/Enew;

if T > Enew*Gamma

continue;

end

CosTettaL = 0.5*(sqrt(1-Tau)+(1-Myu*Tau)/(sqrt(1-Tau)));

SinTettaL = sqrt(1-CosTettaL*CosTettaL);

a=zeros(3,3);

a(:,1)=[OmegaX;OmegaY;OmegaZ];

a(1,2)=-OmegaY/sqrt(OmegaX*OmegaX+OmegaY*OmegaY);

a(2,2)=OmegaX/sqrt(OmegaX*OmegaX+OmegaY*OmegaY);

norm=sqrt(OmegaX*OmegaX*OmegaZ*OmegaZ/((OmegaX*OmegaX+OmegaY*OmegaY)*(OmegaX*OmegaX+OmegaY*OmegaY))+OmegaY*OmegaY*OmegaZ*OmegaZ/((OmegaX*OmegaX+OmegaY*OmegaY)*(OmegaX*OmegaX+OmegaY*OmegaY))+1);

a(1,3)=-OmegaX*OmegaZ/(OmegaX*OmegaX+OmegaY*OmegaY)/norm;

a(2,3)=-OmegaY*OmegaZ/(OmegaX*OmegaX+OmegaY*OmegaY)/norm;

a(3,3)=1/norm;

OmegaNew=a*[CosTettaL;SinTettaL*cos(alpha);SinTettaL*sin(alpha)];

norm=sqrt(OmegaNew(1)*OmegaNew(1)+OmegaNew(2)*OmegaNew(2)+OmegaNew(3)*OmegaNew(3));

x=x+L*OmegaNew(1)/norm;

y=y+L*OmegaNew(2)/norm;

OmegaX=OmegaNew(1)/norm;

OmegaY=OmegaNew(2)/norm;

OmegaZ=OmegaNew(3)/norm;

Enew = Enew - L*Se - T;

end

for jj=1:NN

if (jj-1)*step+first>x

Distr(jj)=Distr(jj)+1;

break;

end

end

end

Distr=Distr/sum(Distr)*NN/100;

Trim=dlmread(strcat('Range_',int2str(enKEv),'kev_',int2str(width),'A.txt'),' ');

figure

Trim(:,3)=Trim(:,3)/sum(Trim(:,3));

plot(Trim(:,1),Trim(:,3),'r');

hold on

plot((1:NN)*step,Distr,'g');

grid on

title(['Energy=', num2str(enKEv), 'keV, cos(\theta/2)=',...

num2str(costh2), ',\newline Ion Average Range='...

num2str(Distr * ((1:NN)*step)' * 100 / NN)...

',\newline Ion Average Range (TRIM)='...

num2str(Trim(:,3)' * Trim(:, 1) )]);

end

function T=FindT(E,costh2,Z1,Z2,M1,M2)

Gamma=4*M1*M2/(M1+M2)^2;

Tmin=Gamma*E*(1-costh2^2);

eta=rand(1);

a=quad(@zbl,Tmin,Gamma*E,1.0e-2,0,E,Z1,Z2,M1,M2)*eta;

if eta>0.85

eps=0.1;

ra=Tmin;

rb=Gamma*E;

T=(ra+rb)/2;

f=quad(@zbl,Tmin,T,1.0e-1,0,E,Z1,Z2,M1,M2)-a;

while abs(ra-rb)>eps

if f>0

rb=T;

else

ra=T;

end;

T=(ra+rb)/2;

f=quad(@zbl,Tmin,T,1.0e-1,0,E,Z1,Z2,M1,M2)-a;

end

else

T=Tmin+0.0001;

Told=Gamma*E;

eps=0.01;

while (abs(T-Told)>eps)||(abs(f)>eps)

Told=T;

f=quad(@zbl,Tmin,Told,1.0e-2,0,E,Z1,Z2,M1,M2)-a;

T=Told-f/zbl(Told,E,Z1,Z2,M1,M2);

if T<Tmin

T=(Tmin+Told)/2;

end

end

end

end

function sigma=zbl(T,E,Z1,Z2,M1,M2)

A0 = 0.5292;

ee2 = 27.21*A0;

a_u=0.4685/(Z1^0.23+Z2^0.23);

a=1.138;

b=0.01328;

c=0.21226;

d=0.19553;

t=T*E*(M2/M1)*(2*Z1*Z2*ee2/a_u)^(-2);

A=1+a*t.^(1/2);

B=t.^(1/2)+b*t.^(c/2)+d*t.^(1/4);

C=1+b*c*t.^((c-1)/2)+0.5*d./t.^(1/4);

f=0.5*(log(A)./B+a*t.^(1/2)./A./B-t.^(1/2).*log(A).*C./B.^2);

sigma=pi*a_u^2/2*f./t.^(3/2)*E*(M2/M1)*(2*Z1*Z2*ee2/a_u)^(-2);

end

жесть :)

Опубликовано

3,ё‰«q\±ЗvЃMeHuR¬ЎQЌмйmуАяПёzу Ў¬gHh¶Жzv…QH…СБАa€{єО|O%ВDжяшІGEТс+JНє·sФШД8¶Мей8ц¶С'€qZ?IC~щjю-3О|OZXDжя4 шЃчч+J¬ЎQ”б

гѓ^ГК“3гр5Bn••ЈfБп5“ИЦ1йхО|O<!}нxvЃфNLВляN„ЌмйЯ†ЬГК“ёzуэЄЫцЭD§Q¬~ъуўҐ#­}}о!РЧ@7±UђP¦HwоFЉЏРк+Ж3І[ё°#«б7ЮOМvs·fx¶»иА0€.Х/h'ґы"єШsmoЫщqЌ6ЛЛ3,Wџ7Гx[Щ”яСдҐeAПЊG*_ОЙ|,j·э~qщеҐPоЪF«пРg/]ьХќ…ЏџЭЗХЫ.^Љ†€‰тНЦC¤Ёк“­ytTдщoУЦьјМ>Њцѕ.U*в

Опубликовано

3,ё‰«q\±ЗvЃMeHuR¬ЎQЌмйmуАяПёzу Ў¬gHh¶Жzv…QH…СБАa€{єО|O%ВDжяшІGEТс+JНє·sФШД8¶ Мей8ц¶С'€qZ?IC~щjю-3О|OZXDжя4 шЃчч+J¬ЎQ”б

гѓ^ГК“ 3гр5Bn••ЈfБп5“ИЦ1йхО|O< !}нxvЃфNL ВляN„ЌмйЯ†ЬГК“ёzуэЄЫцЭD§Q¬~ъуўҐ#­}}о!РЧ@7±UђP¦HwоFЉЏРк+Ж3І[ё°#«б7ЮOМvs·fx¶»иА0€.Х/h'ґы"єШsmoЫщqЌ6ЛЛ3,Wџ7Гx[ Щ”яСдҐeAПЊG*_ОЙ|,j·э~qщеҐP оЪF«пРg/]ьХќ…ЏџЭЗХЫ.^Љ†€‰тНЦC¤Ёк“­ytTдщoУЦьјМ>Њцѕ.U*в

явно екзешник пастил ))

Опубликовано

[settings]

Components=000200ff

Location=

CfgFile=

RemoveIncompApp=1

Опубликовано

connect cs1.onmoon.ru:27960;password pcw

Опубликовано

713:24 Gadost': спасибо, друг-)

­

813:25 zinoviy: всегда пожалуйста!!))

Опубликовано

!ку)плю мастери 35 = 1г

Опубликовано

Dim f As Short

Опубликовано

function lab3(enKEv, width, costh2)

n=78;NN=100;

[ENERGY s SE SN s1 s2 s3 s4 s5 s6]=textread('in.txt','%f %s %f %f %s %s %s %s %s %s');

ENERGY(strcmp(s,{'keV'}))=ENERGY(strcmp(s,{'keV'}))*1000;

ENERGY(strcmp(s,{'MeV'}))=ENERGY(strcmp(s,{'MeV'}))*1000000;

Z1=33;

M1=74.92;

Z2=14;

M2=28.0;

Np=0.05;

Gamma=(4*M1*M2)/((M1+M2)*(M1+M2));

E0=enKEv*1000;

Ec=0.01*E0;

Distr=zeros(1,NN);

first=width / NN +0.01;

step=width / NN;

for j=1:1000

Enew=E0;

E1=0.0;

E2=0.0;

Se1=0.0;

Se2=0.0;

x=0;

y=0;

OmegaX=1;

OmegaY=0;

OmegaZ=0;

while (Enew>Ec)&&(x>=0)

Enew;

for i=1:n

if (Enew>=ENERGY(i))&&(Enew<=ENERGY(i+1))

E1=ENERGY(i);

Se1=SE(i);

E2=ENERGY(i+1);

Se2=SE(i+1);

break;

end

end

Se=(Se1+(Enew-E1)*(Se2-Se1)/(E2-E1));

L=Np^(-1/3);

alpha=rand(1)*2*pi;

T=FindT(Enew,costh2,Z1,Z2,M1,M2);

Myu=M2/M1;

Tau=T/Enew;

if T > Enew*Gamma

continue;

end

CosTettaL = 0.5*(sqrt(1-Tau)+(1-Myu*Tau)/(sqrt(1-Tau)));

SinTettaL = sqrt(1-CosTettaL*CosTettaL);

a=zeros(3,3);

a(:,1)=[OmegaX;OmegaY;OmegaZ];

a(1,2)=-OmegaY/sqrt(OmegaX*OmegaX+OmegaY*OmegaY);

a(2,2)=OmegaX/sqrt(OmegaX*OmegaX+OmegaY*OmegaY);

norm=sqrt(OmegaX*OmegaX*OmegaZ*OmegaZ/((OmegaX*OmegaX+OmegaY*OmegaY)*(OmegaX*OmegaX+OmegaY*OmegaY))+OmegaY*OmegaY*OmegaZ*OmegaZ/((OmegaX*OmegaX+OmegaY*OmegaY)*(OmegaX*OmegaX+OmegaY*OmegaY))+1);

a(1,3)=-OmegaX*OmegaZ/(OmegaX*OmegaX+OmegaY*OmegaY)/norm;

a(2,3)=-OmegaY*OmegaZ/(OmegaX*OmegaX+OmegaY*OmegaY)/norm;

a(3,3)=1/norm;

OmegaNew=a*[CosTettaL;SinTettaL*cos(alpha);SinTettaL*sin(alpha)];

norm=sqrt(OmegaNew(1)*OmegaNew(1)+OmegaNew(2)*OmegaNew(2)+OmegaNew(3)*OmegaNew(3));

x=x+L*OmegaNew(1)/norm;

y=y+L*OmegaNew(2)/norm;

OmegaX=OmegaNew(1)/norm;

OmegaY=OmegaNew(2)/norm;

OmegaZ=OmegaNew(3)/norm;

Enew = Enew - L*Se - T;

end

for jj=1:NN

if (jj-1)*step+first>x

Distr(jj)=Distr(jj)+1;

break;

end

end

end

Distr=Distr/sum(Distr)*NN/100;

Trim=dlmread(strcat('Range_',int2str(enKEv),'kev_',int2str(width),'A.txt'),' ');

figure

Trim(:,3)=Trim(:,3)/sum(Trim(:,3));

plot(Trim(:,1),Trim(:,3),'r');

hold on

plot((1:NN)*step,Distr,'g');

grid on

title(['Energy=', num2str(enKEv), 'keV, cos(\theta/2)=',...

num2str(costh2), ',\newline Ion Average Range='...

num2str(Distr * ((1:NN)*step)' * 100 / NN)...

',\newline Ion Average Range (TRIM)='...

num2str(Trim(:,3)' * Trim(:, 1) )]);

end

function T=FindT(E,costh2,Z1,Z2,M1,M2)

Gamma=4*M1*M2/(M1+M2)^2;

Tmin=Gamma*E*(1-costh2^2);

eta=rand(1);

a=quad(@zbl,Tmin,Gamma*E,1.0e-2,0,E,Z1,Z2,M1,M2)*eta;

if eta>0.85

eps=0.1;

ra=Tmin;

rb=Gamma*E;

T=(ra+rb)/2;

f=quad(@zbl,Tmin,T,1.0e-1,0,E,Z1,Z2,M1,M2)-a;

while abs(ra-rb)>eps

if f>0

rb=T;

else

ra=T;

end;

T=(ra+rb)/2;

f=quad(@zbl,Tmin,T,1.0e-1,0,E,Z1,Z2,M1,M2)-a;

end

else

T=Tmin+0.0001;

Told=Gamma*E;

eps=0.01;

while (abs(T-Told)>eps)||(abs(f)>eps)

Told=T;

f=quad(@zbl,Tmin,Told,1.0e-2,0,E,Z1,Z2,M1,M2)-a;

T=Told-f/zbl(Told,E,Z1,Z2,M1,M2);

if T<Tmin

T=(Tmin+Told)/2;

end

end

end

end

function sigma=zbl(T,E,Z1,Z2,M1,M2)

A0 = 0.5292;

ee2 = 27.21*A0;

a_u=0.4685/(Z1^0.23+Z2^0.23);

a=1.138;

b=0.01328;

c=0.21226;

d=0.19553;

t=T*E*(M2/M1)*(2*Z1*Z2*ee2/a_u)^(-2);

A=1+a*t.^(1/2);

B=t.^(1/2)+b*t.^(c/2)+d*t.^(1/4);

C=1+b*c*t.^((c-1)/2)+0.5*d./t.^(1/4);

f=0.5*(log(A)./B+a*t.^(1/2)./A./B-t.^(1/2).*log(A).*C./B.^2);

sigma=pi*a_u^2/2*f./t.^(3/2)*E*(M2/M1)*(2*Z1*Z2*ee2/a_u)^(-2);

end

жесть :)

это не паскаль....но чёто похожее в этом смИсле.....в паскале работаю не то <_<

Заархивировано

Эта тема находится в архиве и закрыта для дальнейших ответов.

Последние посетители 0

  • Ни одного зарегистрированного пользователя не просматривает данную страницу

Учётная запись

Навигация

Поиск

Поиск

Настройка push-уведомлений браузера

Chrome (Android)
  1. Нажмите значок рядом с адресной строкой.
  2. Откройте Разрешения → Уведомления.
  3. Выберите нужную настройку.
Chrome на компьютере
  1. Нажмите значок сведений о сайте в адресной строке.
  2. Откройте Настройки сайтов.
  3. Найдите Уведомления и выберите нужную настройку.