> restart; with(linalg):with(LinearAlgebra):
> Digits := 5:
> A := <<1,0,0,0,0,0>|<0,1,0,0,0,0>|<0,1,4,0,0,0>|
<0,0,0,0,1,4> | <1,0,-10,1,0,0>|<0,1,6,0,1,0>>;
> d:=Determinant(A);
> b := <-20,30,290,-8.66,-5,10*x-10>;
> GaussianElimination(A);
> GaussianElimination(A,'method'='FractionFree');
303
> X:=ReducedRowEchelonForm(`<|>`(A, b));
> x:=1:X;
> x:=2:X;
> x:=3:X;
> x:=4:X;
304
> x:=5:X;
> x:=6:X;
> x:=7:X;
> x:=8:X;
Kompyuterda oʻtkazilgan sonli hisoblash ishlarini har doim tiklash va
takror oʻtkazish mumkin. Nazariy mexanika darslarida kompyuter bilan muloqot
talabalarda masala yechish malakalarini rivojlantirib, zamonaviy kompyuter
texnologiyalari asosida ilmiy tadqiqotlar oʻtkazishga oʻrgatadi.
305
6.1.3. Kinematika masalalarini matematik dasturlash.
Kinematikada jismlarning harakati ularning massasi va ta’sir etuvchi
kuchlarni xisobga olmagan holda tekshiriladi. Jism harakatining harakteristikalari-
tezlik, tezlanish va boshqa kattaliklarni harakat tenglamalari yoki turli teorema va
qoidalardan olish mumkin. Parametr sifatida t vaqt ishlatiladi.
1-masala.
Berilgan tenglamalardan nuqta harakati
x
( )
f
1
t
y
( )
f
2
t
Uning traektoriyasini koʻrinishini aniqlang va t=1sek boʻlgan vaqtda shu
nuqtaning traektoriyada holatini toping, uning tezligi, toʻliq urinma va normal
tezlanishlari va shu nuqtada traektoriyaning egrilik radiusi aniqlansin.
Dostları ilə paylaş: |
