å
容
- ãã³ãœã«ãšã¯äœã§ããããªãå¿
èŠã§ããïŒ
- ãã¯ãã«æŒç®ãšãã³ãœã«æŒç®ã ãã³ãœã«ã©ã³ã¯
- æ²ç·åº§æš
- ãã³ãœã«å芧äŒã®ãã€ã³ãã®ãã€ããã¯ã¹
- ãã³ãœã«ã®ã¢ã¯ã·ã§ã³ãšãã®ä»ã®çè«çãªè³ªå
- èªç±åºäœã®éååŠã è§é床ã®æ§è³ª
- ãœãªããã®æçµå転ã å転ãã³ãœã«ã®ããããã£ãšãã®èšç®æ¹æ³
- Levi-Civitaãã³ãœã«ã®ç³ã¿èŸŒã¿ã«ã€ããŠ
- æçµå転ã®ãã©ã¡ãŒã¿ãŒã«ããè§é床ãã³ãœã«ã®å°åºã é ãšããã·ããé©çš
- è§é床ãã¯ãã«ãååŸããŸãã æ¬ ç¹ã«åãçµã
- èªç±ãªåãã§ã®äœã®ãã€ã³ãã®å éã ãœãªããã®è§å é床
- åºäœéååŠã«ããããããªã²ããã«ãã³ãã©ã¡ãŒã¿ãŒ
- ãã³ãœã«åŒã®å€æã®åé¡ã«ãããSKA Maximaã ãããªã²ã»ããã«ãã³ã®ãã©ã¡ãŒã¿ãŒã«ãããè§é床ãšå é床
- åäœã®ãã€ããã¯ã¹ã®éæšæºçãªçŽ¹ä»
- éèªç±ãªåºäœéå
- åºäœã®æ
£æ§ãã³ãœã«ã®ç¹æ§
- ããããžã£ããã³ãã®ã¹ã±ãã
- ã€ããã³ãå¹æã®æ°åŠçã¢ããªã³ã°
ã¯ããã«
ãã®èšäºã§ã¯ã2ã€ã®åé¡ã解決ããŸãã
åã®èšäºã§èšç»ããããã詳现ã«è°è«ãããããªã²ããã«ãã³ãã©ã¡ãŒã¿ãŒãéããŠè§é床ãšè§å é床ã®åŒãååŸããŸãã åæã«ããã®ç®çã®ããã«ãªãŒãã³ããã·ãSKAã䜿çšããæ¹æ³ããã¢ã³ã¹ãã¬ãŒã·ã§ã³ããŸããããã¯ãå€æããããã«ããã³ãœã«ã«ããŸã察åŠããŸããç¹å®ã®ã¹ãã«ãããã°ãç§åŠçåé¡ã解決ããäžã§æ·±å»ãªå©ãã«ãªããŸãã ç§ã«ãšã£ãŠãMaximaã¯æ°è£œåã§ãããã以åã¯ãMapleã§ããããŠMathematicaã§ããªãåããŠããŸããã ãããã£ãŠãããããç§ã䜿çšããããã€ãã®ããªãã¯ã¯ãå°é家ã§ã¯ãªãããã«èŠãããããããŸããã
SKAã¯ç§ãã¡ãå©ããæºåãã§ããŠãããåççãªããŒã ãåŸ
ã£ãŠããŸã...ååã¯ãåå
æ°ä»£æ°ã䜿çšããŠå転å€æãè¡šçŸããæ¹æ³ã瀺ãããšã«çŠç¹ãåœãŠãŸããã ãŠãããã«ãã£ãŠæå®ãããå転軞ã®æ¹åãç¥ã

座æšç³»ãå転ãããè§åºŠ

ã³ã³ããŒãã³ãã«ãŠãããã¯ã©ãŒã¿ããªã³ãæ§ç¯ã§ããŸã
ãããŠããã¯ãã«ã®å転ã®çŽæ¥å€æ

ä¹ç®ã¯ã©ãŒã¿ããªã³ã«æžå°
ããã³éå€æ
ãã¯ãã«ã«å¯ŸããŠå®è¡ãããå€æïŒ2ïŒããã³ïŒ3ïŒã¯ãæçµå転ãèšè¿°ãããããªã²å
¬åŒãçŽæ¥äžããããšã瀺ããŸããã ããã§ã®ç®æšã¯ãå転åå
æ°ãã©ã¡ãŒã¿ãŒãå転ãã³ãœã«ãšè§é床ããã³è§å é床ã®æ¬äŒŒãã¯ãã«ã«æ¥ç¶ããããšã§ãã
1.ãããªã²ã»ããã«ãã³ã®ãã©ã¡ãŒã¿ãŒã«ãããå転ãã³ãœã«
å転ãã³ãœã«ã®åŒã¯ãã§ã«ããç¥ã£ãŠããŸãã
åå
æ°ãå°å
¥ãããã®ãã¯ãã«éšåãåå€æåãšããŠæ瀺ããŸã
ãã®å ŽåãïŒ5ïŒããïŒ4ïŒãžã®çœ®æã¯æåã§è¡ãããšãã§ãããã®ããã»ã¹ã«ã¯ç¹å¥ãªããšã¯å«ãŸããŸããã ããããMaximaã§ãã¹ãŠãè¡ããšåæã«ããããªãäœæ¥ã®ããã«ããã€ãã®åæããŒã¿ãæºåããŸãã 3次å
空éã®ãã³ãœã«ã§åäœããããã«Maximaãæ§æããŸã
kill(all); load(itensor); load(tentex); imetric(g); idim(3);
å転ãã³ãœã«ã®åŒïŒ4ïŒã玹ä»ããŸã
B:ishow(2*sin(phi/2)^2*u([],[m])*u([k],[]) + (cos(phi/2)^2 - sin(phi/2)^2)*kdelta([k],[m]) + 2*sin(phi/2)*cos(phi/2)*g([],[m,i])*'levi_civita([i,j,k],[])*u([],[j]))$
ãã¥ã¢ã³ã¹ã«æ³šæããŠãã ãã-ååã®è§ã«ç§»åããŸããã ãã以å€ã®å Žåãäžè§æ³ãåçŽåããããšãããšãMaximaã¯äœãåçŽåãããååŒæ°åŒã®èšç®ãå«ã
halfangles
ãã©ã°ãèšå®ããŠã
halfangles
ãŸããã ããã¯ç§ãé©çšããªããã°ãªããªãã£ãæåã®æŸèæã§ãã ããããç¡ç¥ããã
æçµå転ã®ãã©ã¡ãŒã¿ãŒãšåå
æ°ã®æåã®é¢ä¿ãèšå®ããŸã
Lambda0:p0 = cos(phi/2); Lambda:ishow(p([],[j]) = sin(phi/2)*u([],[j]))$
ããã§ã¯ãç°¡æœã«ããããã«ïŒæ¯å
lambda
ãå
¥åããããã®æ lazïŒãåå
æ°ã®æåã¯æå
p
瀺ãããŸãã
åå
æ°ã®ãã¯ãã«éšåãéããŠå転軞ã®åäœãã¯ãã«ãè¡šçŸããŸã
Solv1:ishow(solve(Lambda, u([],[j])))$
åŒã®é
åã®åœ¢åŒã§æ¹çšåŒã®è§£ãåºåã§åãåã

åŸãããåŒã§ã¯ãå転ãã³ãœã«ã«ã¯å転åäœãã¯ãã«ã®å
±å€æåãå«ãŸããŠãããããã€ã³ããã¯ã¹ãçç¥ããå¿
èŠããããŸãã ãããè¡ãã«ã¯ããã®åã«ååŸããåŒãã¡ããªãã¯ãã³ãœã«ã§æãããã¿ãŸã
u_k:ishow(contract(Solv1[1]*g([k,j],[])))$
ããã«ãå
±å€æåã®ã€ã³ããã¯ã¹
jã
mã«çœ®ãæããŸã
um:ishow(subst(m, j, Solv1[1]))$
ãã®çµæãå転ãã³ãœã«ãžã®çœ®æã®æºåãã§ãã2ã€ã®åŒãååŸããŸãã

ããã§ãå転軞ã®orthã³ã³ããŒãã³ããå転ãã³ãœã«ã®åŒã«çœ®ãæããããšãã§ããŸãã ãã®å Žåã®ã¹ããŒãžã³ã°é¢æ°
subst()
ã¯2ã€ã®åŒæ°ãåããŸãã2çªç®ã®åŒæ°ã«ä»å±ããåŒã«çœ®ãæããå¿
èŠãããåŒã§ãã ãã®å Žåãæåã®åŒæ°ã®å·Šéšåãå€æãããåŒã§æ€çŽ¢ããããã®å³éšåã«çœ®ãæããããŸã
B_1:ishow(subst(u_k, B))$ B_1:ishow(subst(um, B_1))$ B_1:ishow(subst(Solv1[1], B_1))$
åºå£ã«ã¯

ããŠãåå
æ°ã®ãã¯ãã«éšåã®ã³ã³ããŒãã³ããå転ãã³ãœã«ã«è¡šç€ºãããŸãã äžè§æ³ãç°¡çŽ åãã
B_2:ishow(trigsimp(B_1))$
trigsim()
é¢æ°ã¯ãäžè§é¢æ°åŒãåçŽåããŸãã ãã®å Žåãããã¥ã¡ã³ãã«èšè¿°ãããŠããããã«ãããã©ã«ãã§ã¯ãäž»ãªäžè§é¢æ°ã®ã¢ã€ãã³ãã£ãã£ãšäžè§é¢æ°ã®å¶æ°/å¥æ°ãèæ
®ãããŸãã ãã ãããã³ãœã«ä»£æ°ããã±ãŒãžã®ããŒãããã®ãããªå¹æããããã©ããã«ãããããããã®é¢æ°ã¯ãäžèšã®ã³ãã¯ããããã©ã°ããã£ãŠããåäžåŒæ°ãšååŒæ°ã®é¢æ°ãå«ãåæ°ã®åçŽåã«åºããããŸãã ããã«ãããããããæºåäœæ¥ãå®è¡ããåºåã§åçŽåãããåŒãååŸããŸã

å転ã®åè§ã®äœåŒŠãšæ£åŒŠã®äºä¹ãåå
æ°ã®ã¹ã«ã©ãŒãã©ã¡ãŒã¿ã«çœ®ãæããããã«æ®ããŸãããã®ãããæ¬åŒ§ã®é瀺ã®åœ¢ã§çœ®æãšåçŽåãå®è¡ããŸãã
B_3:ishow(subst(p0,rhs(Lambda0), B_2))$ B_3:ishow(expand(subst(1-p0^2,sin(phi/2)^2, B_3)))$
çµæãè³è³ããããã«ãLaTeXã§åºåããŸã
tentex(B_3)
衚瀺ãããã³ãŒãã«å·Šéšåã®ã¿ãè¿œå ããŸãã
MaximaãçæããLaTeXè¡šèšã¯ãèªç¶ãªæ°åŠè¡šèšã«éåžžã«è¿ããã®ã§ãããMapleã«ã€ããŠã¯èšããŸãããMapleã¯ãèªã¿ãããåŒã®å°åºã§æ¡çšããããã¹ãŠã®èŠçŽãå«ã巚倧ãªã³ãŒããæºåããŸãã ã¯ãããã«ãŒãã«ã¿ãå«ãçšèªã¯ã°ã«ãŒãåãããŠãããå
±éã®èŠå ã¯ç§ãã¡èªèº«ã«ãã£ãŠãŸãšããããŠããŸãã ããŠããã©ã ããã®å Žæã«æ»ã£ãŠ
Rodrig-Hamiltonãã©ã¡ãŒã¿ãŒã«é¢ããŠå転ãã³ãœã«ã®åŒãååŸããŸããã ãã®ãã³ãœã«ããã空éå
ã®åäœã®æ¹åãèšè¿°ããä»ã®ãã©ã¡ãŒã¿ãŒã«ç§»åã§ããŸãã
ãŠã©ãŒã ã¢ããã¯çµäºãããšèŠãªãããšãã§ããŸãã ãã£ãšæ·±å»ãªä»äºãåŸ
ã£ãŠããŸã
2. Rodrigue-Hamiltonã®ãã©ã¡ãŒã¿ãŒã«ãããè§é床ã®æ¬äŒŒãã¯ãã«
Maximaã«ãè§é床ã®ç䌌ãã¯ãã«ã«ã€ããŠãã§ã«ç¥ã£ãŠããåŒãå°å
¥ããŸãã èªç¶ãªåœ¢ã§ã¯ããã®ããã«èŠããŸã
ãããŠãMaximaã§ã¯ãåäžã®è§åºŠã®é¢æ°ãååã®ç䟡ãªé¢æ°ã§çœ®ãæããããšã«ãªããŸã
Omega:ishow(2*sin(phi/2)^2*'levi_civita([],[i,m,r])*u([i],[])*diff(u([m],[]),t) + diff(u([],[r]),t)*2*sin(phi/2)*cos(phi/2) + u([],[r])*diff(phi, t))$
Levi-Civitaãã³ãœã«ã¯ãç¹ã«ãã®ããããã£ã䜿çšããŠåŒãåçŽåããèšç»ãããå Žåã¯ãèšç®ãæå¶ããŠå°å
¥ããããšããå§ãããŸãã ãã以å€ã®å ŽåãMaximaã¯ãããäžè¬åãããã¯ãããã«ãŒãã«ã¿ã«å€æããŸãããããã¯èšç»ã«å«ãŸããŠããŸããã èšç®ãæå¶ããã«ã¯ããã®ãã³ãœã«ãå®çŸ©ããé¢æ°ã®ååã®åã«ã¢ãã¹ãããã£ã眮ããŸãã
è§é床ãã³ãœã«ã®ã€ã³ããã¯ã¹ã®æå®ã«åŸã£ãŠãã€ã³ããã¯ã¹ãçç¥ããå転åäœãã¯ãã«ã®ã€ã³ããã¯ã¹ã®ååãå€æŽããŸã
u_i:ishow(contract(Solv1[1]*g([i,j],[])))$ u_m:ishow(subst(m, i, u_i))$ ur:ishow(subst(r, j, Solv1[1]))$
眮æã§äœ¿çšããåŒãååŸããŸã

åäœãã¯ãã«ãšå転è§ããã®å転軞ã®å°é¢æ°ãå¿
èŠã§ãã åå
æ°ã®ãã©ã¡ãŒã¿ãä»ããŠããããè¡šçŸããå¿
èŠããããŸã
du_mdt:ishow(diff(u_m, t))$ dLambda0dt:diff(Lambda0, t); Solv2:solve(dLambda0dt, diff(phi,t));
Maximaã¯ãã¹ãŠã®æäœãæ£ããå®è¡ããŸã

ããããããã§ãã1ã€åŸ®åŠãªéãããããŸãã çµæã®åŒããå°é¢æ°ãåé€ããå¿
èŠããããŸãã ããã¯å®å
šã«åé€ããããšã§ãã Maximaã¯åŒãåçŽåããäžæ¹ã§ããããã«ååã«å¿çããªãããã§ãã ããšãã°ãåãå°é¢æ°ããµã€ã³ã®å¹³æ¹ã®ä¿æ°ãšåãè§åºŠã®å¹³æ¹ã®ã³ãµã€ã³ã®ä¿æ°ãšããŠåŒã«ããå Žåãäžè§æ³ãåçŽåãããšããMaximaã¯äž»èŠãªäžè§é¢æ°ã®ã¢ã€ãã³ãã£ãã£ã匷調ãšããŠèŠãŸããã ãããŠãããªããã£ããéåžžã®è¡šçŸã§çœ®ãæãããããšãã¢ã€ãã³ãã£ãã£ã¯ç°¡åã«1ã€ã«åŽ©ããŸãã åãããšããã³ãœã«å€æã«ãåœãŠã¯ãŸããŸã-æäœã«é¢äžãããã³ãœã«ã®1ã€ãä»ã®ãã³ãœã«ã®æéå°é¢æ°ã«ãã£ãŠè¡šãããå Žåãã€ã³ããã¯ã¹ãçç¥ããLevi-Civitaãã³ãœã«ã§äžžããªãããšã¯å¥œãŸãããããŸããã ç§ã¯ããããæ¢ããŠããŸãããåé¡ã®è§£æ±ºçãçŽæ¥ç€ºãããšã¯ãŸã ã§ããŠããŸããããä»ã®ãšããæŸèæã®2çªç®ãé©çšããŸã-代æ¿åã玹ä»ããŸãã ãŸããè§é床ã®åŒã§ãåå
æ°ã®ã¹ã«ã©ãŒãã©ã¡ãŒã¿ãŒã®å°é¢æ°ã眮ãæããŸã
dphidt:subst(v0, diff(p0,t), Solv2[1]);
çŽæ¥çœ®æãå®è¡ããŸã
subst()
é¢æ°ã®æåã®åŒæ°ã¯ã2çªç®ã®åŒæ°ã«ãã£ãŠè£åãããåŒã3çªç®ã®åŒæ°ã®åŒã§çœ®ãæããããã«å¿
èŠãªãã®ã§ãã çµæ

ç§ãã¡ã«åã£ãŠããŸãã 次ã«ããã®è§é床ããå転軞ã®åäœãã¯ãã«ã®ç§å¯ã®å°é¢æ°ã®åŒã«ä»£å
¥ããŸã
du_mdt:ishow(subst(dphidt, du_mdt))$
åå
æ°ã®æ®ãã®ãã©ã¡ãŒã¿ã®å°é¢æ°ã眮ãæããŸã
du_mdt:ishow(subst(v([m],[]), diff(p([m],[]),t), du_mdt))$
ã€ã³ããã¯ã¹ãäžããŠãåäœãã¯ãã«ã®åå€æåã®å°é¢æ°ãååŸããŸã
durdt:ishow(diff(u([],[r]),t) = contract(expand(rhs(du_mdt)*g([],[r,m]))))$
åºåã«ã¯ã眮æãå®è¡ããããã®åŒã®å®å
šãªã»ããããããŸã

ããŠãããããå®è¡ããéäžã§ãã©ã±ãããéããMaximaã«å¯èœãªéãå°æ°éšãåæžãããŸã
Omega_1:ishow(subst(dphidt, Omega))$ Omega_1:ishow(expand(subst(du_mdt, Omega_1)))$ Omega_1:ishow(expand(subst(durdt, Omega_1)))$ Omega_1:ishow(expand(subst(u_i, Omega_1)))$ Omega_1:ishow(expand(subst(ur, Omega_1)))$
çµæã¯ãã§ã«ããªããŸãšãã§ã

ãããã第2é
ã§ã¯ããŒãã«çããã¯ã©ãŒã¿ããªã³èªäœã®ãã¯ãã«éšåã®ãã¯ãã«ç©ãçŸããŸãã SKAãåé€ããã«ã¯ãã¹ãã«ã䜿çšããŸã
Omega_2:ishow(canform(contract(expand(applyb1(Omega_1, lc_l, lc_u)))))$
ãã®ã³ãã³ãã®äœæã®è©³çŽ°ã¯ã
ããã§èª¬æããŸã ã ç§ã¯ãã€ã³ãã ããæãåºããŸã-ã¬ã-ããã¿ãã³ãœã«ã®ç³ã¿èŸŒã¿ãæ±ãããã®ã«ãŒã«ã«åŸã£ãŠãã³ãœã«è¡šçŸãç°¡çŽ åããŸãã åªæã¯ãŒãã¡ã³ããŒãåé€ããŸã

ãã€ã³ããå°ãã-äžè§æ³ããšãã
Omega_3:ishow(trigsimp(Omega_2))$
æ®ãã®äœåŒŠãã¯ã©ãŒã¿ããªã³ã®ã¹ã«ã©ãŒãã©ã¡ãŒã¿ãŒã«çœ®ãæããŸã
Omega_3:ishow(subst(lhs(Lambda0), rhs(Lambda0) , Omega_3))$
ãã®çµæãããªãã³ã³ãã¯ããªåŒãã§ããŸãã

LaTeXã«æã¡èŸŒã
tentex(Omega_3)
倩åã¯
canform()
é¢æ°ã§çªå·ä»ãããããã ã€ã³ããã¯ã¹ã«ãã£ãŠæãªãããŸãããããã§ã¯å¿
èŠãªã€ã³ããã¯ã¹åããã§ã«åŠçããåæã«
canform()
ããã«ãã³ãã©ã¡ãŒã¿ãŒã®å°é¢æ°ã®å Žæã«æ»ããŸãã
åŒïŒ7ïŒã¯ãRodrig-Hamiltonãã©ã¡ãŒã¿ãŒã«é¢ããè§é床ã®åŸ
æã®åŒã§ãã ã芧ã®ãšãããæçµå転ã®ãã©ã¡ãŒã¿ãŒã§èšè¿°ãããå
ã®åŒãããã¯ããã«ã³ã³ãã¯ãã§ãã ãããããããå¯äžã®ãã©ã¹ã®æ©èœã§ã¯ãããŸããã ååŸãããšãå¥ã®äŸ¿å©ãªæ©èœãéããŸã
3. Rodrigue Hamiltonã®ãã©ã¡ãŒã¿ãŒã®è§å é床
è§å é床ãååŸããã«ã¯2ã€ã®æ¹æ³ããããŸãã æåã®ãã¹ãæãåçŽãªãã¹ã¯ãäœããã®çç±ã§ããã«ã¯å°éããŸããã§ããããæéãåºå¥ããã ãã§ãïŒ7ïŒã ããã¯ç°¡åãã€è¿
éã«æåã§è¡ãããŸãã æ£çŽã«ã¯ããŒã«ãã2çªç®ã®æ¹æ³ã¯ãMaximaã§åŒãååŸããæçµçãªå転ã®ãã©ã¡ãŒã¿ãŒã䜿çšããŠæ¢ç¥ã®è§å é床ã®è¡šçŸãåçŽåããããšã§ããã
ç§ã¯äž¡æ¹ã®æ¹æ³ããã¢ã³ã¹ãã¬ãŒã·ã§ã³ããŸããç§ã ããã¹ãã€ã©ãŒã®äžã§é·ãéãæ©ãã®ã§ãç§ã®èŠªæãªãèªè
ãæšã®åŸãã®æ£®ã倱ããŸããã
ãããã£ãŠãïŒ7ïŒã®æé埮åããšããŸã
æåã®é
ã¯ãŒãã§ããããã®ãããªãã®ã¯ã¡ã³ããŒã®çžäºç Žå£ãŸã§ããããããããã®çµæãå€ãã®å°é£ãªããæã
ã¯åŸã
)
é·ãéã®ãïŒ8ïŒã¯ããã«ãããŸãããã®ãããåè§ãèŠããŠãæçµå転ã®ãã©ã¡ãŒã¿ãŒã«Maximaã®è§å é床ãå°å
¥ããŸã
epsilon:ishow(2*sin(phi/2)^2*'levi_civita([],[i,m,r])*u([i],[])*diff(u([m],[]),t,2) + diff(phi,t)*2*cos(phi/2)^2*diff(u([],[r]),t) + diff(phi,t)*2*sin(phi/2)*cos(phi/2)*'levi_civita([],[i,m,r])*u([i],[])*diff(u([m],[]),t) + diff(u([],[r]),t,2)*2*sin(phi/2)*cos(phi/2) + u([],[r])*diff(phi,t,2))$
次ã«ã2次å°é¢æ°ãå¿
èŠã§ãã å転è§åºŠãåºå¥ããŸã
d2phidt2:diff(Solv2[1],t);
ãããŠãè§åºŠã®1次å°é¢æ°ãæ¢ã«åŠçããåŒã«ä»£å
¥ããŸã
d2phidt2:diff(Solv2[1],t);
ããäžåºŠã察å¿ãã眮æãå°å
¥ããããšã«ããã1次ããã³2次å°é¢æ°ãã©ã¡ãŒã¿ãŒãåãé€ããŸãã
d2phidt2:subst(v0, diff(p0,t), d2phidt2); d2phidt2:subst(a0, diff(p0,t,2), d2phidt2);
眮æã«é©ããåºåãæã€

ãã³ãœã«ã埮åããåã«ãæéé¢æ°ã®ãªã¹ãã«ãæåã®å°é¢æ°ã«å°å
¥ãã眮æãè¿œå ããŸããããã§ãªãå Žåãå®éã«ã¯ããã§ã¯ãªããŒããååŸããŸã
depends([v0, v],t)
åäœãã¯ãã«ããå転軞ã®2次å°é¢æ°ãèšç®ããå¿
èŠãªçœ®æãè¡ããå¿
èŠãªã€ã³ããã¯ã¹ãæã€å
±å€æåã«å¿
èŠãªåŒãååŸããããã«ã€ã³ããã¯ã¹ãäžããŸã
d2u_mdt2:ishow(diff(du_mdt, t))$ d2u_mdt2:ishow(subst(dphidt, d2u_mdt2))$ d2u_mdt2:ishow(subst(a0, diff(v0,t), d2u_mdt2))$ d2u_mdt2:ishow(subst(a([m],[]), diff(v([m],[]),t), d2u_mdt2))$ d2u_mdt2:ishow(subst(v([m],[]), diff(p([m],[]),t), d2u_mdt2))$ d2urdt2:ishow(diff(u([],[r]),t,2) = contract(expand(rhs(d2u_mdt2)*g([],[r,m]))))$
åºåã«ã¯ã眮æã«é©ããå
±å€æåãšåå€æåã®2次å°é¢æ°ããããŸãã

äžé£ã®çœ®æãå®è¡ããŸã-è§é床ã®èšç®æã«ãè§åºŠãšåäœãã¯ãã«ã®åŸ®åå€ãããã³åäœãã¯ãã«ã®æåããäžèšã§ååŸãããã®ã§çœ®ãæããŸãã
epsilon_1:ishow(subst(dphidt, epsilon))$ epsilon_1:ishow(expand(subst(durdt, epsilon_1)))$ epsilon_1:ishow(expand(subst(du_mdt, epsilon_1)))$ epsilon_1:ishow(expand(subst(d2phidt2, epsilon_1)))$ epsilon_1:ishow(expand(subst(d2u_mdt2, epsilon_1)))$ epsilon_1:ishow(expand(subst(d2urdt2, epsilon_1)))$ epsilon_1:ishow(expand(subst(ur, epsilon_1)))$ epsilon_1:ishow(expand(subst(u_i, epsilon_1)))$
çµæãšããŠçãããã¯ããã¯å·šå€§ã§ã

ããããLevi-Civitaãã³ãœã«ã䜿çšããåçŽåç³ã¿èŸŒã¿ã¹ãã«ã§ããã調æŽããŸã
epsilon_2:ishow(canform(contract(expand(applyb1(epsilon_1, lc_l, lc_u)))))$
æããªããããŸã è€éãªè¡šçŸ

ããã§ãäžè§æ³ãåçŽåããåè§ã®äœåŒŠãåå
æ°ã®ã¹ã«ã©ãŒãã©ã¡ãŒã¿ãŒã«çœ®ãæããLaTeXãå°åºããŸãã
epsilon_3:ishow(trigsimp(epsilon_2))$ epsilon_3:ishow(subst(lhs(Lambda0), rhs(Lambda0) , epsilon_3))$ tentex(epsilon_3);
ãããŠããã¯ããã®ä»£ããã«ãçµæãæšæž¬ãããããªããŸãšããªå
¬åŒããããŸãïŒ8ïŒ
ãããŠãè¡šèšæ³ãé©åã«ä¿®æ£ããåæ§ã®ãã®ãæåŸã«æã£ãŠãããšã
ïŒ8ïŒããã£ãã ã¯ããã«é·ãã ãã ãããããã®åŸãå
ã®åŒã®æ£ç¢ºæ§ããã§ãã¯ããŸããã
çªç¶ãïŒ7ïŒãšã®å®å
šãªé¡äŒŒæ§ã芳å¯ãããŸãããããã§ã®1次å°é¢æ°ã®ä»£ããã«2次å°é¢æ°ããããŸãã å°é¢æ°ã®ä¿æ°ã¯åãã§ããã€ãŸããè§é床ãšè§å é床ã¯ãåãè¡åïŒ3 x 4ïŒãä¹ç®ããããšã«ããããããªã²ããã«ãã³ãã©ã¡ãŒã¿ãŒã®å¯Ÿå¿ããå°é¢æ°ããååŸãããŸãã ã¡ãªã¿ã«ãããã«ãããå®å®è¹ã®åãã®ã¢ããªã³ã°ãã空éã§èªç±ã«å転ããä»ã®ãªããžã§ã¯ãã®ã¢ããªã³ã°ã«ãããã¯ã©ãŒã¿ããªã³ã¢ãããŒãã®å¹
åºãé©çšæ§ã決ãŸããŸããã
ãããã«
ãã®èšäºã§ã¯ãMaximaã®ãã³ãœã«ã©ã€ãã©ãªãæäœããæ¹æ³ã«åãããããŸããã äžèšã®ä»®å®ããã£ãŠãããã®äžã®ãã³ãœã«åŒãåçŽåããããšã¯éåžžã«äŸ¿å©ã§ãããšçµè«ä»ããããšãã§ããŸãã
ãããŠæåŸã«ãã¢ããªã³ã°ã«äŸ¿å©ãªãããªã²ã»ããã«ãã³ã®æ¹åãã©ã¡ãŒã¿ãŒã䜿çšããŠãè§é床ãšè§å é床ã®åŒãååŸããŸããã ãããŠãããããè¡šçŸããåŒïŒ7ïŒãšïŒ8ïŒã¯ã³ã³ãã¯ãã§ããã ãã§ãªããè§é床ãšå é床ãã¯ãã«ã®æåã«å¯Ÿããåå
æ°ãžã®ãã©ã¡ãŒã¿ãŒã®åãç·åœ¢å€æã䜿çšãããšããæå³ã§çŸããããšã確信ããŸããã ãã®ã¢ãããŒãã«ãããã¢ãã«åããã°ã©ã ã®æ§æã倧å¹
ã«ç°¡çŽ åãããŸãã
ä»æ¥ãŸã§ããã³ãœã«è£
眮ã䜿çšããŠèªç±åäœã®ãã€ããã¯ã¹ãæ€èšããããšã«è¿ã¥ããŸããã 次ã®èšäºãç ç²ã«ããŠãç§ã¯èå³æ·±ãã¢ã€ãã¢ãæã£ãŠããŸãããããå®è£
ããé«å質ã®çŽ æãæºåããããšããŸãã
ãæž
èŽããããšãããããŸããïŒ
ç¶ç¶ããã«ã¯...