Rorschach: morda poizkusi takole:
Solve[0 == enx1* \[Sigma]xx + eny1* \[Sigma]xy + enz1* \[Sigma]xz &&
0 == enx1* \[Sigma]xy + eny1* \[Sigma]yy + enz1 *\[Sigma]yz &&
0 == enx1 *\[Sigma]xz + eny1* \[Sigma]yz + enz1 *\[Sigma]zz &&
0 == enx2 *\[Sigma]xx + eny2 *\[Sigma]xy + enz2 *\[Sigma]xz &&
0 == enx2* \[Sigma]xy + eny2* \[Sigma]yy + enz2* \[Sigma]yz &&
0 == enx2 *\[Sigma]xz + eny2* \[Sigma]yz + enz2 *\[Sigma]zz &&
I\[Sigma]1 - \[Sigma]xx + \[Sigma]yy + \[Sigma]zz ==
0, {\[Sigma]xx, \[Sigma]yy, \[Sigma]zz, \[Sigma]xy, \[Sigma]xz, \
\[Sigma]yz}]
Mathematica
Re: Mathematica
Saj to deluje. Ce reces
a=3
b=4
a*b
Bos dobil rezultat. a in b sta definirana, dokler ne izklopis mathematice (ali restartas jedra). V tem primeru koras pac celice se enkrat potrdit (shift-enter izvede celico).
a=3
b=4
a*b
Bos dobil rezultat. a in b sta definirana, dokler ne izklopis mathematice (ali restartas jedra). V tem primeru koras pac celice se enkrat potrdit (shift-enter izvede celico).
Re: Mathematica
Ja, ampak me vseeno zanima. Kaj pa če se kaj zmotiš ali kaj podobnega in jo restartaš (quit kernel).
Nekje imam v mislih, da se je to dalo nekako narediti
Nekje imam v mislih, da se je to dalo nekako narediti
Re: Mathematica
Oznacis vse in ctrl+enter 
Mathematica koda je kot vsak program program, ce pametno pises, imas lepo po vrsti definirano in ce po vrsti ponovno izvedes dobis isto nazaj. Nekje je tudi "evaluate notebook" varianta ce se ne motim. Celice lahko tudi ponovno potrdis kolikorkrat hoces (ali pobrises definicijo spremenljivke kot a=.).
Ce bi pa rad napisal nekaj, kar bi v prihodnje uporabil v drugih projektih, pa lahko napises modul (ni tako tezko) in ga potem samo nalozis na zacetku vsakega drugega projekta in dobis kakrsnekoli funckije in spremenljivke si tam definiral. Pravzaprav je vecina Mathematica funkcij napisanih v Mathematici.
Mathematica koda je kot vsak program program, ce pametno pises, imas lepo po vrsti definirano in ce po vrsti ponovno izvedes dobis isto nazaj. Nekje je tudi "evaluate notebook" varianta ce se ne motim. Celice lahko tudi ponovno potrdis kolikorkrat hoces (ali pobrises definicijo spremenljivke kot a=.).Ce bi pa rad napisal nekaj, kar bi v prihodnje uporabil v drugih projektih, pa lahko napises modul (ni tako tezko) in ga potem samo nalozis na zacetku vsakega drugega projekta in dobis kakrsnekoli funckije in spremenljivke si tam definiral. Pravzaprav je vecina Mathematica funkcij napisanih v Mathematici.
Re: Mathematica
Pozdravljeni! Sem nov tukaj...
Prosim, če mi lahko pomagate. Z Mathematico (šele zdaj spoznavam program) bi rad narisal vsa kompleksna števila, ki so v preseku spodnjih pogojev:
1<IzI=<3 in 0=<Arg(z)<(Pi/4)
*=< ... manjše ali kvečjemu enako
Pomagal sem si že s Plot in ContourPlot funkcijama. Iskal Fill opcije,...
Ne znajdem se.
Lep pozdrav.
Prosim, če mi lahko pomagate. Z Mathematico (šele zdaj spoznavam program) bi rad narisal vsa kompleksna števila, ki so v preseku spodnjih pogojev:
1<IzI=<3 in 0=<Arg(z)<(Pi/4)
*=< ... manjše ali kvečjemu enako
Pomagal sem si že s Plot in ContourPlot funkcijama. Iskal Fill opcije,...
Ne znajdem se.
Lep pozdrav.
Re: Mathematica
Imas funkcijo, ki enostavno jemlje neenacbe (ali kombinacije neenacb z operatorji && (in) in || (ali)), tako da imas resitev v eni vrstici.
http://reference.wolfram.com/mathematic ... nPlot.html
http://reference.wolfram.com/mathematic ... nPlot.html
Re: Mathematica
Kako se v Mathematici napiše neko funkcijo?
Recimo bi rad napisal
T(x,y) =
potem naredi
a = DrugaFunkcija(x,y,blabla)
If[a<=A,a,6];
Recimo bi rad napisal
T(x,y) =
potem naredi
a = DrugaFunkcija(x,y,blabla)
If[a<=A,a,6];
Re: Mathematica
Ok, že vem 
. Module pomaga.
. Module pomaga.Re: Mathematica
Pozdravljeni,
ker sem bolj ''nov'' v Mathematici ne znam nekaj precej osnovnih stvari:
1.Izračunaj 30! - 20!. Kakšna je 10 števka od leve proti desni? Razcepi rezultat na prafaktorje. Katero je največje praštevilo v razcepu? Katero praštevilo nastopa v razcepu z najvišjo potenco.
Zanima me če je kako možno z Mathematico ugotoviti katero število je največje v razcepu in katero praštevilo nastopa z najvišjo potenco? Ali je to samo preverjanje, če razumeš ukaz FactorInteger[n] kjer ti vrne seznam parov, kjer je prvi element v paru praštevilo, drugi pa njegova potenca v razcepu? Ali je kak ukaz, ki ti vrne maksimum prvega ali drugega elementa v paru v seznamu?
2.Kako naj implicitno odvajam \(1+sin(xy)=tan(x+y)\)?
3.Numerično izračunaj ničle polinoma \(1-x+12 x^2-2 x^4+x^5\). Koliko ničel je realnih? Kakšna je največja absolutna vrednost ničle?
Tu imam idejo da bi pač z NSolve izračunal ničle, potem pa nekako iz teh ničel ustvaril seznam(nevem kako) in po tem ne znam več naprej.
4.Zmnoži polinom tako, da dobiš vsoto monomov \((x^2 (-1+y)-x^3 y^5+(-1+x)^7 x y (x^2+2 x y+y^3))^2\). Ugotovi najvišjo potenco n spremenljivke x, ki se pojavi v polinomu in izračunaj n-ti odvod polinoma.
Opravičujem se, če je kje na forumu že zastavljeno kakšno podobno vprašanje, pa ga nisem zasledil.
Hvala za odgovor na vsaj kakšno vprašanje.
Lp
ker sem bolj ''nov'' v Mathematici ne znam nekaj precej osnovnih stvari:
1.Izračunaj 30! - 20!. Kakšna je 10 števka od leve proti desni? Razcepi rezultat na prafaktorje. Katero je največje praštevilo v razcepu? Katero praštevilo nastopa v razcepu z najvišjo potenco.
Zanima me če je kako možno z Mathematico ugotoviti katero število je največje v razcepu in katero praštevilo nastopa z najvišjo potenco? Ali je to samo preverjanje, če razumeš ukaz FactorInteger[n] kjer ti vrne seznam parov, kjer je prvi element v paru praštevilo, drugi pa njegova potenca v razcepu? Ali je kak ukaz, ki ti vrne maksimum prvega ali drugega elementa v paru v seznamu?
2.Kako naj implicitno odvajam \(1+sin(xy)=tan(x+y)\)?
3.Numerično izračunaj ničle polinoma \(1-x+12 x^2-2 x^4+x^5\). Koliko ničel je realnih? Kakšna je največja absolutna vrednost ničle?
Tu imam idejo da bi pač z NSolve izračunal ničle, potem pa nekako iz teh ničel ustvaril seznam(nevem kako) in po tem ne znam več naprej.
4.Zmnoži polinom tako, da dobiš vsoto monomov \((x^2 (-1+y)-x^3 y^5+(-1+x)^7 x y (x^2+2 x y+y^3))^2\). Ugotovi najvišjo potenco n spremenljivke x, ki se pojavi v polinomu in izračunaj n-ti odvod polinoma.
Opravičujem se, če je kje na forumu že zastavljeno kakšno podobno vprašanje, pa ga nisem zasledil.
Hvala za odgovor na vsaj kakšno vprašanje.
Lp
Re: Mathematica
No, kot programski jezik Mathematica dovoli kakrsnokoli manipulacijo izhodnih podatkov. Ce dobis sortirane prafaktorje, ti ze ukaz Last[] da zadnji element. Ce hoces tistega z najvisjo potenco, sortiraj glede na drug element (ukaz Sort sprejme funkcijo, ki jo uporabis za razvrscanje). Recimo
Sort[list,#1[[2]] > #2[[2]] & ]
ti bo dalo spisek parov, sortiran glede na DRUGI element, katerega potem lahko vzames Last[] ali First[] in dobis kar hoces.
Za odvajanje imas D[1+Sin[x y[x]]== Tan[x+y[x]],x]
Mislim da D pozre tudi enacbe, ne samo izraze.
Za nicle polinomov imas posebej funkcijo Root[] ki je bolj robustna, s katero tudi kontrolirano dobis vse (urejene) nicle.
Za ustvarjanje in manipulacijo seznamov so nepogresljive funkcije
Table
Map
Array
Partition
....
s katerimi lahko ponavadi v eni vrstici resis celoten problem.
4.
Imas veliko funkcij tipa "Expand", ki odpravijo odklepaje in razbijejo na vec clenov.
Malo beri primere na internetu, zelo pomagajo in imajo zelo lepo berljiva navodila pri funkcijah.
Sort[list,#1[[2]] > #2[[2]] & ]
ti bo dalo spisek parov, sortiran glede na DRUGI element, katerega potem lahko vzames Last[] ali First[] in dobis kar hoces.
Za odvajanje imas D[1+Sin[x y[x]]== Tan[x+y[x]],x]
Mislim da D pozre tudi enacbe, ne samo izraze.
Za nicle polinomov imas posebej funkcijo Root[] ki je bolj robustna, s katero tudi kontrolirano dobis vse (urejene) nicle.
Za ustvarjanje in manipulacijo seznamov so nepogresljive funkcije
Table
Map
Array
Partition
....
s katerimi lahko ponavadi v eni vrstici resis celoten problem.
4.
Imas veliko funkcij tipa "Expand", ki odpravijo odklepaje in razbijejo na vec clenov.
Malo beri primere na internetu, zelo pomagajo in imajo zelo lepo berljiva navodila pri funkcijah.
Re: Mathematica
\(\text{Reduce}[\alpha x[t]+\beta \text{==}y[t] \&\& 0<t<\text{tmax},t]\)
Problem mi skuša najti t-je kot rešitev zgornje enačbe. Lahko mi najde ogromno rešitev ali pa nobeno. Odvisno od tega, kak parameter tmax izberem. Bi se dalo kako narediti, da sam prilagodi velikost tega parametra? Želim pa najti le prvo rešitev.
Problem mi skuša najti t-je kot rešitev zgornje enačbe. Lahko mi najde ogromno rešitev ali pa nobeno. Odvisno od tega, kak parameter tmax izberem. Bi se dalo kako narediti, da sam prilagodi velikost tega parametra? Želim pa najti le prvo rešitev.
Re: Mathematica
Raje uporabi Solve (ali NSolve/FindRoot, ker pri numeriki das zacetni pogoj in lazje poves katero resitev hoces). Ce hoces analiticno, pa bi po moje slo, samo se moras se malo sam potrudit preden das slepo racunat.
Re: Mathematica
Ne, analitično ne gre, ni šans.
NSolve in Findroot tudi nista uredu. Je zelo težko najti ravno prvo rešitev.
NSolve in Findroot tudi nista uredu. Je zelo težko najti ravno prvo rešitev.
Re: Mathematica
To pa res ni problem po moje. Ce zacnes v 0 in v FindRoot pravo metodo (Ce Newtonova preskoci kaksno resitev, pa uporabi kaj drugega). Lahko da gre z iterativno metodo, ali z bisekcijo (poves zacetni interval, iz katerega ne more pobegnit). V skrajnem primeru lahko spises svojo metodo, ali razvijes analiticno (ce je funkcija zvezna) in s tem dobis dober priblizek, da metoda skonvergira. Ce ima funkcija okrog nicle cudno obnasanje sam najbolje ves lastnosti. Za zacetni interval bisekcije lahko magari zacnes z zelo zelo majhnim korakom (0,h) in potem h podvajas (ali mnozis s kaksno manjso konstanto) in preverjas, ce razlika leve in desne strani zamenja predznak. Ali kaj podobnega. Sigurno se da o tvoji funkciji se kaj pametnega izvedet.
Ce sta x in y resitvi kaksne diferencialne enacbe, lahko ta dogodek isce ze integrator diferencialne enacbe.
Ce sta x in y resitvi kaksne diferencialne enacbe, lahko ta dogodek isce ze integrator diferencialne enacbe.
Re: Mathematica
Aniviller napisal/-a:Za zacetni interval bisekcije lahko magari zacnes z zelo zelo majhnim korakom (0,h) in potem h podvajas
Najbrž bom to uporabil. Neka while zanka okrog Reduce pa podvaja korak v pogoju tmin < t < tmax.Ja, x(t) in y(t) sta funkciji nekih sinusov in kosinusov. Komplicirano.Aniviller napisal/-a:Sigurno se da o tvoji funkciji se kaj pametnega izvedet.
Točno tako, sta rešitvi diferencialne enačbe. To ima Mathematica kako funkcijo integratorja notri?Aniviller napisal/-a:Ce sta x in y resitvi kaksne diferencialne enacbe, lahko ta dogodek isce ze integrator diferencialne enacbe.