Главная страница
Рефераты
Физика
Компьютерда физика тажрибалари
Компьютерда физика тажрибалари
Загружено в:
20.09.2019
Скачано:
0
Размер:
62 KB
Скачать
Похожие
Физика тарихи
Физика фанининг ахамияти
Статистик физика фанига кириш
Физика ва унинг методлари хакида
Урта асрда физика фанининг ривожланиши. ( IX -XV асрлар)
![1. Кириш. Икки ўлчовли харакат хақида Табиатда газ, сую қ лик, қаттиқ жисм каби моддалар кўп микрозаррачалардан иборат булиб бу заррачалар мураккаб конунлар буйича узаро таъсирлашувда булади. Агар моддалардаги заррачалар сонини тасаввур килсак ( ~ 10 20 .. 10 22 см -3 ) хар бир зарра харакатини кузатиш учун 10 20 тартибдаги Нютон тенгламалар системасини ечишга тугри келади. Буни инсон кулда бажариш мумкин эмас. Хозирги кунга келиб компютер ресурслари ~ 10 5 ва ундан юқори тартибдаги тенгламалар системасини интеграллашга имкон беради. Заррачалараро таъсирлашув конунларини билган холда газлардаги молекулалар харакатини компютерда моделлаштириш мумкин. Бунда заррачалар харакати классик механика конунларига бойсунади деб каралади. Зарралараро таъсирлашувни молекуляр физикада маълум бўлган феноменологик формулалар оркали ифодаланади. Масалан Леонард-Жонс потенциали V ( r ) = 4 [( / r ) 12 - ( / r ) 6 ] (1) кўпгина реал газларнинг молекулаларини таъсирлашув табиатига мосдир. Соддалаштирилган системаларни ўрганиш - моделлаш методларини ўрганишда дастлабки мухим кадам хисобланади. Бунга мисол килиб икки ўлчовли яшикка камалган зарядлн заррачаларни олиш мумкин. Зарядлар узаро Кулон V ( r ) = q 1 q 2 / r = q 2 / r = Z 2 / r (2) ( Z 2= q 1 q 2 / r = q 2 / r ) конунига асосан итаришиши туфайли узаро узоклашиши табиий. Лекин яшик деворлари эластик кайтарувчи деб хисобласак ( қаттиқ чегаравий шарт) жуда содда модел хосил булади. Албатта, яшик деворлари билан тўқнашганда бошкача ( даврий чегаравий ) шартлардан фойдаланилса модел янада мукаммаллашади. Зарраларни икки ўлчовли харакатига кўплаб реал мисоллар келтириш мумкин. Масалан қаттиқ жисмларда сиртий ўтказувчанлик, Ута анизотроп 2](/data/documents/f91ad571-54de-4c74-8d5e-b57bf3df43c5/page-2.png)
![begin x[i]:= 10 + Random( GetMaxX - 10 ); y[i]:= 10 + Random( GetMaxY - 10 ); Vx[i]:=Vm*( 2*0.01*Random(100) - 1 ); Vy[i]:=Vm*( 2*0.01*Random(100) - 1 ); Xold [i]:=x[i]; Yold[i]:= y[i]; end; Яшикдаги зарралар сони N та десак у холда зарраларни координаталари ва тезликларининг x,y проекциялари массивини x[i], y[i], Vx[i], Vy[i] каби белгиланган. Максимал тезлик сифатида Vm киритилган. Хисоблаш давомида ёрдамчи узгарувчи сифатида зарраларнинг эски координаталарини саклаб колувчи массив Xold[i], Yold[i] хам киритилган . Random (100) оператори 0..99 оралигида тасодифий сонни беради, у холда 0.01* Random (100) ифода 0..0,99 оралигида кийматни 2*0.01* Random (100) - 1 ифода эса тахминан -1..+1 оралигида кийматни беради. Демак Vx [ i ] , Vy [ i ] тезлик компоненталари - Vm ва + Vm оралигидаги кийматларга эришади. Зарралар координаталарини экран четидан ( яшик деворларидан ) 10 бирлик узокда жойлаштиришга сабаб - агар заррани дисплейда айлана куринишда тасвирланса у экран ичида яккол куриниб туришидир. 3. Харакат тенгламасини интеграллаш m массали i -номерли заррачага таъсир этувчи куч F [ i ] булса Нютон харакат тенгламаси куйидагича ёзилади d 2 x[i]/dt 2 = F x [i]/m ( 3) d 2 y[i]/dt 2 = F y [i] /m (4) 4](/data/documents/f91ad571-54de-4c74-8d5e-b57bf3df43c5/page-4.png)
![Иккинчи тартибли тенгламани иккита биринчи тартибли тенгламага алмаштирамиз dV x [i]/dt = F x [i]/m (5) dX[i]/dt = V x [i] (6) dV y [i]/dt = F y [i]/m (7) dY[i]/dt = V y [i] (8) Заррача массасини кийматини беришга хожат йук , (2) формулага асосан уни Z2 оркали ифодалаш мумкин . Бошкача килиб айтганда m=1 деб оламиз . (5-8) тенгламаларни чекли орттирмалар куринишда ёзсак Эйлер алгоритмига келамиз , яъни Vx[i]:=Vx[i] + Fx[i] *dt (9) Vy[i]:=Vy[i] + Fy[i]*dt (10) x[i]:=x[i]+Vx[i]*dt (11) y[i]:=y[i]+Vy[i]* dt (12) Демак dt вактдан сунг заррачани тезликлари (9-10) ёрдамида , координаталари эса (11-12) ёрдамида хисобланади . Бунинг учун дастлаб i- заррачага таъсир этувчи куч ( узидан бошка барча заррачалар томонидан таъсир этувчи кучлар йигиндиси ) ни компоненталарини Fx[i], Fy[i] ни топиш керак. Бу хисоблашлар куйидаги программада келтирилган ( D2 ) For i:=1 to N do begin Fx[i]:=0; Fy[i]:=0; For j:=1 to N do If i<>j then ( i-заррачани узидан бошка барчаси томонидан ) begin r:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])); Fx[i]:=Fx[i]+(x[i]-x[j])/(r*r*r); Fy[i]:=Fy[i]+(y[i]-y[j])/(r*r*r); 5](/data/documents/f91ad571-54de-4c74-8d5e-b57bf3df43c5/page-5.png)
![end; Fx[i]:=g *Fx[i]; Fy[i]:=g*Fy[i]; end ; Тезликлари ва координаталари хисоблаш ( D 3 ) For i:=1 to N do begin Vx[i]:=Vx[i]+Fx[i]*dt; Vy[i]:=Vy[i]+Fy[i]*dt; x[i]:= x[i]+Vx[i]*dt; y[i]:=y[i]+Vy[i]*dt; end; 4. Заррачаларни яшик деворидан кайтиши Куйидаги дасту агар заррача координатаси яшик деворидан утиб кетса ( Экранни чегаралари 0, GetMaxX, 0, GetMaxY ) уни харакат йуналиши тескарисига алмаштирилади яъни тезликлар ишораси узгартирилади ( D4 ) For i:=1 to N do begin If x[i]< 0 then Vx[i]:= -Vx[i]; If y[i]<0 then Vy[i]:= -Vy[i]; If x[i]> GetMaxX then Vx[i]:= -Vx[i]; If y[i]>GetMaxY then Vy[i]:= -Vy[i]; end; 5. Экранда тасвирлаш. Мултипликация Заррачани кучишини куриш учун аввал шу заррачани экранда тасвирлаш керак. Кучишдан сунг аввлги тасвирни учириб, янги координаталар буйича янги тасвир чизилади . Куйида программада ( D5 ) 6](/data/documents/f91ad571-54de-4c74-8d5e-b57bf3df43c5/page-6.png)
![t := t + dt; If t > 50*dt then For i:=1 to N do begin SetColor(Black); Circle(Round( Xold[i]),Round( Yold[i] ), Rs ); SetColor(i);Circle( Round( x[i]),Round( y[i] ), Rs ); Xold[i]:=x[i]; Yold[i]:=y[i]; t :=0; end ; заррачани Rs - радиусли айлана куринишда SetColor(i); Circle( Round( X[i]), Round( Y[i] ), Rs ); оператори ёрдамида чизилган. SetColor(i) - командаси i- заррани чизишда i - чи рангдан фойдаланади . Чизишдан олдин эски координатали тасвир учирилган (тасвир кора рангда чизилга н , экран асоси кора рангда бўлган хол учун ) SetColor(Black); Circle(Round( Xold[i]),Round( Yold[i] ), Rs ); Чизиб бўлгандан сунг эски координаталар сифатида янгиси кабул килинган Xold[i]:=x[i]; Yold[i]:=y[i]; Заррани кучишини t = 5..100 dt вакт оралигида ( бу вакт оралиги компютер процессорини ишлаш тезлигига боглик ) текшириб куриб мултипликацияни яхши намоён буладиган килиб танланади . 7](/data/documents/f91ad571-54de-4c74-8d5e-b57bf3df43c5/page-7.png)
