hir6kommentár:
@luci.a.tuti: Ahogy látom az URLek megváltoztak:
tutimagantanar.hu/keres/angol-nyelv/budapest/online-nem-feltetel (2024.01.16. 11:13)Aki tud jó angol magántanárt az szóljon!!
Rolex1780:
Szia engem legalább kettő de lehet 3 is érdekelne . Hol tudom megrendelni ? exexrolex@gmail.com (2011.07.02. 08:11)Balaton Sound Bérlet 25000
suff:
Sziasztok!
Látom elég régiek a hozzászólások csak némi infót szeretnék gyűjteni a következő Gucáról! Én is trombitás vagyok és elvarázsolt ez a fesztivál és el kell jutnom oda jövőre! :)
Érdkelne ... (2010.12.09. 21:00)guca trombitafesztivál
okko el loco (törölt):
sejtettem, hogy valami ilyesmit fogsz válaszolni (2010.10.22. 17:34)rocket man
CsegeJani:
@okko el loco: :)))) nekem bejön:)
de csak a sorozat miatt amiben volt. (2010.10.22. 14:52)rocket man
okko el loco (törölt):
na ezt mégis hogy képzeled? (2010.10.22. 09:42)rocket man
nyirzsik:
na így már teljes :) (2010.10.01. 10:55)!Welcome Teo!
nyirzsik:
TEODOR
férfi keresztnév
Eredete: Görög, Német, Latin,
Jelentése: Isten ajándéka
Névnapok:
•augusztus 16
•szeptember 2
•november 9
•december 27
•december 28
Hasonló kezdetű férfi keresztnevek:
... (2010.10.01. 10:54)!Welcome Teo!
okko el loco (törölt):
szép jelentése van azt meg kell hagyni :D
köszönjük az utánajárást nyirzsik :)) (2010.10.01. 10:05)!Welcome Teo!
nyirzsik:
férfi keresztnév
Eredete: Teodor,
Jelentése: német rövidülése
Névnapok:
•szeptember 2
Hasonló kezdetű férfi keresztnevek:
•TEOBALD
•TEODOR
•TEOFIL
•TERESTYÉN
•TÉTÉNY
•TÉZEUSZ (2010.09.30. 16:31)!Welcome Teo!
Első közelítés Clear[a, \[Omega], v, v1, v2, pi, A] \[Omega] := x^3 - 30 x^2 v := \[Omega] a v1 := D[v, x] v2 := D[D[v, x], x] v1 a (-60 x + 3 x^2) v2 a (-60 + 6 x) pi := Integrate[Er Iz (v2^2), {x, 0, L}] + Integrate[-F v1^2, {x, 0, L}] Simplify[pi] -(3/5) a^2 L (-20 Er Iz (300 - 30 L + L^2) + F L^2 (2000 - 150 L + 3 L^2)) A := D[pi, a] A -2400 a F L^3 + 180 a F L^4 - 18/5 a F L^5 + 24 a Er Iz L (300 - 30 L + L^2) Clear[a] Solve[A == 0, a] {{a -> 0}} \[Omega] Plot[\[Omega], {L, 0, 100}] \!\(\* GraphicsBox[ GraphicsComplexBox[{{2.040816326530612*^-6, 0.}, {1.96286612015304, 0.}, {4.090835708545865, 0.}, {6.07778835701521, 0.}, { 8.025764881887605, 0.}, {10.138846915816112`, 0.}, { 12.110912009821138`, 0.}, {14.248082612882277`, 0.}, { 16.346277092346465`, 0.}, {18.303454631887174`, 0.}, { 20.425737680483998`, 0.}, {22.40700378915734, 0.}, { 24.349293774233733`, 0.}, {26.456689268366237`, 0.}, { 28.42306782257526, 0.}, {30.554551885840397`, 0.}, { 32.64705982550858, 0.}, {34.59855082525328, 0.}, { 36.715147334054095`, 0.}, {38.69072690293143, 0.}, { 40.83141198086488, 0.}, {42.93312093520137, 0.}, { 44.89381294961439, 0.}, {47.019610473083524`, 0.}, { 49.004391056629174`, 0.}, {50.95019551657787, 0.}, { 53.06110548558268, 0.}, {55.03099851466401, 0.}, { 57.16599705280146, 0.}, {59.26201946734195, 0.}, { 61.21702494195896, 0.}, {63.33713592563208, 0.}, { 65.31622996938174, 0.}, {67.25634788953444, 0.}, { 69.36157131874326, 0.}, {71.32577780802859, 0.}, { 73.45508980637004, 0.}, {75.443384864788, 0.}, {77.39270379960902, 0.}, {79.50712824348615, 0.}, {81.4805357474398, 0.}, { 83.61904876044956, 0.}, {85.71858564986236, 0.}, { 87.67710559935169, 0.}, {89.80073105789714, 0.}, { 91.7833395765191, 0.}, {93.7269719715441, 0.}, {95.83570987562523, 0.}, {97.80343083978288, 0.}, {99.93625731299663, 0.}, { 99.99999795918367, 0.}}, {}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 100}, {0., 0.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]\) Második közelítés Clear[a, \[Omega], v, v1, v2, pi, A1, A2] \[Omega] := x^3 - 30 x^2 v := \[Omega] (a1 + a2 x) v1 := D[v, x] v2 := D[D[v, x], x] v1 (a1 + a2 x) (-60 x + 3 x^2) + a2 (-30 x^2 + x^3) v2 (-60 + 6 x) (a1 + a2 x) + 2 a2 (-60 x + 3 x^2) pi := Integrate[Er Iz (v2^2), {x, 0, L}] + Integrate[-F v1^2, {x, 0, L}] Simplify[pi] 3/5 a1^2 L (F L^2 (-2000 + 150 L - 3 L^2) + 20 Er Iz (300 - 30 L + L^2)) + 4 a1 a2 L^2 (-F L^2 (675 - 51 L + L^2) + 3 Er Iz (900 - 100 L + 3 L^2)) - 4/35 a2^2 L^3 (-126 Er Iz (750 - 75 L + 2 L^2) + 5 F L^2 (2835 - 210 L + 4 L^2)) A1 := D[pi, a1] A2 := D[pi, a2] \[Lambda] := (F L^2)/(Iz Er) A1 -2400 a1 F L^3 + 180 a1 F L^4 - 2700 a2 F L^4 - 18/5 a1 F L^5 + 204 a2 F L^5 - 4 a2 F L^6 + 12/5 Er Iz L (10 a1 (300 + (-30 + L) L) + 5 a2 L (900 + L (-100 + 3 L))) CoefficientList[A1, {a1, a2}] {{0, -2700 F L^4 + 204 F L^5 - 4 F L^6 + 12 Er Iz L^2 (900 + L (-100 + 3 L))}, {-2400 F L^3 + 180 F L^4 - ( 18 F L^5)/5 + 24 Er Iz L (300 + (-30 + L) L), 0}} A2 -2700 a1 F L^4 + 204 a1 F L^5 - 3240 a2 F L^5 - 4 a1 F L^6 + 240 a2 F L^6 - 32/7 a2 F L^7 + 12/5 Er Iz L (12 a2 L^2 (750 + L (-75 + 2 L)) + 5 a1 L (900 + L (-100 + 3 L))) CoefficientList[A2, {a1, a2}] {{0, -3240 F L^5 + 240 F L^6 - (32 F L^7)/7 + 144/5 Er Iz L^3 (750 + L (-75 + 2 L))}, {-2700 F L^4 + 204 F L^5 - 4 F L^6 + 12 Er Iz L^2 (900 + L (-100 + 3 L)), 0}} M := {{-2400 F L^3 + 180 F L^4 - (18 F L^5)/5 + 24 Er Iz L (300 + (-30 + L) L), -2700 F L^4 + 204 F L^5 - 4 F L^6 + 12 Er Iz L^2 (900 + L (-100 + 3 L))}, {-2700 F L^4 + 204 F L^5 - 4 F L^6 + 12 Er Iz L^2 (900 + L (-100 + 3 L)), -3240 F L^5 + 240 F L^6 - ( 32 F L^7)/7 + 144/5 Er Iz L^3 (750 + L (-75 + 2 L))}} MatrixForm[M] \!\(\* TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"-", "2400"}], " ", "F", " ", SuperscriptBox["L", "3"]}], "+", RowBox[{"180", " ", "F", " ", SuperscriptBox["L", "4"]}], "-", FractionBox[ RowBox[{"18", " ", "F", " ", SuperscriptBox["L", "5"]}], "5"], "+", RowBox[{"24", " ", "Er", " ", "Iz", " ", "L", " ", RowBox[{"(", RowBox[{"300", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "30"}], "+", "L"}], ")"}], " ", "L"}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2700"}], " ", "F", " ", SuperscriptBox["L", "4"]}], "+", RowBox[{"204", " ", "F", " ", SuperscriptBox["L", "5"]}], "-", RowBox[{"4", " ", "F", " ", SuperscriptBox["L", "6"]}], "+", RowBox[{"12", " ", "Er", " ", "Iz", " ", SuperscriptBox["L", "2"], " ", RowBox[{"(", RowBox[{"900", "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "100"}], "+", RowBox[{"3", " ", "L"}]}], ")"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2700"}], " ", "F", " ", SuperscriptBox["L", "4"]}], "+", RowBox[{"204", " ", "F", " ", SuperscriptBox["L", "5"]}], "-", RowBox[{"4", " ", "F", " ", SuperscriptBox["L", "6"]}], "+", RowBox[{"12", " ", "Er", " ", "Iz", " ", SuperscriptBox["L", "2"], " ", RowBox[{"(", RowBox[{"900", "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "100"}], "+", RowBox[{"3", " ", "L"}]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "3240"}], " ", "F", " ", SuperscriptBox["L", "5"]}], "+", RowBox[{"240", " ", "F", " ", SuperscriptBox["L", "6"]}], "-", FractionBox[ RowBox[{"32", " ", "F", " ", SuperscriptBox["L", "7"]}], "7"], "+", RowBox[{ FractionBox["144", "5"], " ", "Er", " ", "Iz", " ", SuperscriptBox["L", "3"], " ", RowBox[{"(", RowBox[{"750", "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "75"}], "+", RowBox[{"2", " ", "L"}]}], ")"}]}]}], ")"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Eigenvalues[M] Solve[{-2400 a1 F L^3 + 180 a1 F L^4 - 2700 a2 F L^4 - 18/5 a1 F L^5 + 204 a2 F L^5 - 4 a2 F L^6 + 12/5 Er Iz L (10 a1 (300 + (-30 + L) L) + 5 a2 L (900 + L (-100 + 3 L))) == 0, -2700 a1 F L^4 + 204 a1 F L^5 - 3240 a2 F L^5 - 4 a1 F L^6 + 240 a2 F L^6 - 32/7 a2 F L^7 + 12/5 Er Iz L (12 a2 L^2 (750 + L (-75 + 2 L)) + 5 a1 L (900 + L (-100 + 3 L))) == 0}, {a1, a2}] {{a1 -> 0, a2 -> 0}}
Ma ez és ehez hasonló dolgok fogják kitölteni az idő met kb egyig, aki látja benne a megoldást, vagyis inkább a hibát légyszi szóljon én nemtalálom sehol:D ja ien kis srgítség a végén a1 nek és a2 nek nem nullának kéne lenni mivel az csak a triviális megoldása a saját érték feladatnak, maúgy halkan jegyzem meg ebben is világ hírüek vagyunk bár ezt kb senki nem tudja sajnos....
Láncos Kornélról beszélek, aki a sajátérték feladatok lehetséges megoldásának, módszereinek kitalálója vagy hogy is kell ezt mondani nah mindegy a lényeg a lényeg ami véges elem programok tartalmazzák ezt a számítási eljárást és neki köszöhetően tudunk pl törés teszteket szimulálni számítógépen és még egyébb hasznos kapcsolódások is vannak mind nem sorolnál fel azért:DD
pár példát azért bedobok hogy lássátok miről is van szó:
Utolsó kommentek