Опубликовано 16 августа, 201115 г Кнопка опробования запустит звонок только если все ввода получат сигнал о, аварии, звонок звенит прирывисто
Опубликовано 16 августа, 201115 г 1 Иногда раухтопазу приписываются успокаивающее воздействие, а также то, что он может помочь избавиться от стресса и боли 2 Считается, что украшения из дымчатого кварца снимают злобу и раздражительность 3 обладает способностью выводить негативную энергию, помогает при депрессивных состояниях. 4 Тот, кто носит камень, может улучшить функцию надпочечников, почек, поджелудочной железы. Изменено 16 августа, 201115 г пользователем кристинка
Опубликовано 22 декабря, 201114 г РІДНА ДОМІВКА. Згадуючи дитинство, проймаєшся дивними відчуттями. Якось щемно стає у грудях, коли згадуєш подвір’я, на якому зробив перші кроки. Невелике, затишне, повите виноградною лозою, воно ледве пропускало сонячні промені. Улітку захищало від спеки, взимку - від сніговіїв. Восени падолист застеляв землю пухким килимом, на якому бурюкалися ми, діти. А піднімеш голову вгору - налиті кетяги винограду. Ледь прибиті ранковою памороззю, яка стікала вдень прозорою краплею, виноградні грона здавалися прозорими, навіть насіння проступало крізь блідо-рожеву обо-лоночку і манило дитячу уяву. Тоді татко брав мене на руки, підіймав угору і я діставав губами стиглі виноградинки. А на дверях, притулившись до одвірка, стояла мама й удавано сердилася, побачивши моє замурзане личко. А потім ми всі весело сміялись. Навесні батько обрізав лозу - і подвір’я світлішало, щоб уже в травні зазеленіти знов. Наш будинок був розташований на околиці селища й одним боком дивився на байрак. А на іншому боці яру височіли багатоповерхові будинки. Наш невеликий провулочок складався з одноповерхових будиночків приватної забудови і був невеличким острівцем краси і гармонії посеред великого гамірного міста. Нашій сім’ї належала одна частина будиночка, з іншого боку височів сусідський паркан. Бабуся вважала, що цей паркан псує красу, і засаджувала його плетючими квітами. Коли зацвітала червона красоля та різнокольорові чашечки кручених паничів - паркан зникав, перетворюючись на барвистий яскравий килим. Невеличкий штахетник огороджував бабусин палісадник перед вікнами від вулиці. Чого там тільки не було! Квіти змінювалися залежно від сезону, наповнюючи подвір’я пахощами літа, але бабусиною гордістю завжди вважалися троянди. Вона вирощувала їх із пагінців, захищала від негоди, а коли вони зацвітали - не могла намилуватися ними. А одного разу вона виростила троянду-плетючку, колючу-колючу, але невимовно прекрасну. Мені найдужче подобався білий бузок, який ріс під вікном моєї кімнати. Бабуся посадила його на честь мого народження, але він обігнав мене в рості. Щороку на День Перемоги ми з бабусею ламали бузок і йшли до Меморіалу Слави. Бабуся підіймала мене на руки, і я клав білий букет до вічного вогню. А повертаючись додому, я бачив, як біліли бузкові квіти на фоні червоного цегляного будинку і ледь торкалися мого вікна. Навесні наш будинок змінювався, бо змінювався сад за ним. Спочатку він вирував білою завірюхою яблуневого і вишневого цвіту, трохи згодом потопав у зелені, а ще пізніше - у багрянці налитого плоду. Невеличкі віконця блищали чистими шибками, що зоріли і вабили різним теплом. Звідти я пішов у перший клас, а коли батьки одержали квартиру у багатоповерховому будинку в іншому районі міста, я відмовився з ними переїжджати, залишившись жити у бабусі. А тепер, коли бабусі не стало, я ходжу до школи в новому районі, де живуть мої батьки. Мені подобається і мій дім, і нова школа, і мої нові друзі. Але там, в старому районі, залишилося не тільки моє дитинство, а й часточка мене самого. Іноді навіть уявляю, що відчиняю хвіртку, а там на порозі стоїть бабуся і чекає на мене. Знаю, що чудес не буває, що минуле не повертається. Але в серці на все життя залишаться спогади про старенький чепурний будиночок, огорнений серпанком саду,- моя рідна домівка. [22.12.2011 22:52:13] БуйнаяОслица: РІДНА ДОМІВКА. Згадуючи дитинство, проймаєшся дивними відчуттями. Якось щемно стає у грудях, коли згадуєш подвір’я, на якому зробив перші кроки. Невелике, затишне, повите виноградною лозою, воно ледве пропускало сонячні промені. Улітку захищало від спеки, взимку - від сніговіїв. Восени падолист застеляв землю пухким килимом, на якому бурюкалися ми, діти. А піднімеш голову вгору - налиті кетяги винограду. Ледь прибиті ранковою памороззю, яка стікала вдень прозорою краплею, виноградні грона здавалися прозорими, навіть насіння проступало крізь блідо-рожеву обо-лоночку і манило дитячу уяву. Тоді татко брав мене на руки, підіймав угору і я діставав губами стиглі виноградинки. А на дверях, притулившись до одвірка, стояла мама й удавано сердилася, побачивши моє замурзане личко. А потім ми всі весело сміялись. Навесні батько обрізав лозу - і подвір’я світлішало, щоб уже в травні зазеленіти знов. Наш будинок був розташований на околиці селища й одним боком дивився на байрак. А на іншому боці яру височіли багатоповерхові будинки. Наш невеликий провулочок складався з одноповерхових будиночків приватної забудови і був невеличким острівцем краси і гармонії посеред великого гамірного міста
Опубликовано 25 декабря, 201114 г http://forum.asterios.tm/index.php?showtopic=127312&pid=3106072&st=2580&#entry3106072
Опубликовано 26 декабря, 201114 г 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 жесть
Опубликовано 26 декабря, 201114 г 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*в
Опубликовано 26 декабря, 201114 г 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*в явно екзешник пастил ))
Опубликовано 27 декабря, 201114 г [settings] Components=000200ff Location= CfgFile= RemoveIncompApp=1
Опубликовано 27 декабря, 201114 г http://forum.asterios.tm/index.php?showtopic=201325&st=0#entry3116275
Опубликовано 28 декабря, 201114 г 713:24 Gadost': спасибо, друг-) 813:25 zinoviy: всегда пожалуйста!!))
Опубликовано 29 декабря, 201114 г 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 жесть это не паскаль....но чёто похожее в этом смИсле.....в паскале работаю не то
Заархивировано
Эта тема находится в архиве и закрыта для дальнейших ответов.