-
-
1
-
1
-
0
-
0
-
1求各位大佬们帮帮忙,下面是我写的代码: Kang = (210*10^9)/(1 - 0.09)*1/12*0.2*0.0032^3; rou = 7800; zukang = 1668*200; lamana = 0.1; Td = 0.004; P0 = 124234.645; aef = 0.8; l = 0.2; A = 0.2*0.0032; wn = Sqrt[Kang/(rou*A)]*((n*Pi)/l)^2; Wn = Sqrt[2/(rou*A*l)]*Sin[(n*Pi*0.1)/l]; kesin = zukang/(rou*A)/(2*wn); Dn1 = (1 - (-1)^n)*l/(n*Pi)*Sqrt[2/(rou*A*l)]*P0*aef; Dn2 = (-kesin + Sqrt[kesin^2 - 1])*wn; Dn3 = (-kesin - Sqrt[kesin^2 - 1])*wn; Dn4 = Sqrt[1 - kesin^2]*wn; En1 = -1*(Dn1*(2*kesin*Dn3 + wn))/(wn^4*lamana*Td*Sqrt[kesin^2 - 1]); Fn1 = (Dn1*(2*kesin*Dn2 + wn))/(wn^4*lamana
-
1也没发现有奇点存在
-
0
-
0
-
0Conincidence1[\[Tau]_] := 1 + Sin[4 \[CapitalTheta]]^2 /(2 P1)* NIntegrate[(AJ[\[Lambda]s, \[Lambda]i]^2 + AJ[\[Lambda]i, \[Lambda]s]^2) (Cos[(( 2 \[Pi] c)/\[Lambda]s + ( 2 \[Pi] c)/\[Lambda]i ) \[Tau]] + Cos[((2 \[Pi] c)/\[Lambda]s - ( 2 \[Pi] c)/\[Lambda]i ) \[Tau]]) + AJ[\[Lambda]s, \[Lambda]i]^2 Cos[((2 \[Pi] c)/\[Lambda]s - ( 2 \[Pi] c)/\[Lambda]i ) \[CapitalDelta]t]* Cos[((2 \[Pi] c)/\[Lambda]s + ( 2 \[Pi] c)/\[Lambda]i ) \[Tau]], {\[Lambda]s, \[Lambda]0 - ls, \[Lambda]0 + ls}, {\[Lambda]i, \[Lambda]0 - li, \[Lambda]0 + li}] - 1/P1* NIntegrate[ F3[\[Lambda]s, \[Lambda]i, \[Tau]], {\[Lamb
-
0
-
0小白想问一下,这个软件的图数据库在哪里,需要里面的图的邻接矩阵
-
2
-
0mathematic解出来结果有个True是什么意思?
-
0
-
04.(15分)用蒙特卡罗法求蒲丰投针实验中针与线相交的概率,这里针长为a厘米,平行线之间距离为a+40厘米,计算针与线相交的概率,这里a的取值为你学号的最后3位,写出方法步骤(不是对程序的解释,也不是蒲丰投针实验的实际操作方法,是用数学软件去做这个模拟实验的方法和过程)、程序(完整程序,不要夹杂注释以外的内容,注意如果有注释必须格式正确)和具体结果,模拟投针次数为1000000,程序中不能出现类似“a=”的形式(即直接把变量带入要求的a
-
0我的曲线(y因变量,x自变量)Sum[a[[i,j]]x^n y^j,{i,1,5},{j,1,5}]=0
-
0做半天没个结果,有好心人帮做吗,有偿~
-
1
-
4
-
0求助大佬这个怎么解决
-
0
-
0
-
1M = 1; c = 0.5; a = 0.5; Q = 0.6; L = 10; q = 10;Subscript[A, t1] = 2 a^2 (M - r) + ( Q (a^2 + c^2 - r^2))/(a^2 + c^2 + r^2)^2; Subscript[A, L] = -(( Q*r*a)/(r^2 + c^2)); Subscript[A, L1] = ( a Q (-c^2 + r^2))/(c^2 + r^2)^2;F = ((r^2 + c^2)*(r^2 - 2 M*r - c^2 + a^2 + Q^2))/((r^2 + a^2 + c^2)^2 - a^2*(r^2 - 2 M*r - c^2 + a^2 + Q^2)); Subscript[F, 1] = -((2 (a^4 (c^2 (M - 2 r) + r (Q^2 - M r)) + (c^2 + r^2)^2 (c^2 (M - 2 r) + r (Q^2 - M r)) + a^2 (2 c^4 M - 2 c^2 r (Q^2 + 2 r (-2 M + r)) + r (Q^4 + 2 M (2 M - r) r^2 + 2 Q^2 r (-2 M + r)))))/((c^2 + r^2)^2 + a^2 (3 c^2 - Q^2 + 2 M r + r^2))^2);d
-
0
-
0这是问题的来源和依据,想利用mathmatic求解最终系数An和Bn。自己尝试求解,但对于数组求解的一些知识还没有完全掌握,导致运算不出来(下附代码,烦请各位能够指导)。 ClearAll["Global`*"]; x := Exp[I*\[Theta]]; (*\[Omega](\[Zeta])*) A1[x_] := R*(x + c0 + c1/x + c2/x^2 + c3/x^3 + c4/x^4 + c5/x^5); (*Overscript[\[Omega](\[Zeta]), _]*) B1[x_] := R*(\[Rho]/x + c0 + (c1*x)/\[Rho]^2 + (c2*x^2)/\[Rho]^4 + (c3* x^3)/\[Rho]^6 + (c4*x^4)/\[Rho]^8 + (c5*x^5)/\[Rho]^10); (*振幅*)Subscript[\[CurlyPhi], 0] := 1;(*注意单位*) (*
-
0
-
0mathematic安装包 电子教程 作业,数学实验,报告 联系2757565216qq,便宜~
-
14本帖用于跟新mathematics下载链接
-
0哪位大佬有mathematics最新版的下载地址? 万分感谢
-
0是迭代法吗,还是什么
-
1
-
0小伙伴们,想问一下大家R(x,y)是一个分段函数,这个程序为什么每次都显示0.2不是一个有效变量 r1[x_,y_]=1/Gamma[0.9] Integrate[(y-s)-0.1 (D[R[x,s],{s,2}])s,{s,0,y},Assumptions->0<y<1]+(2y+6)(D[R[x,y],x]) r2[x_,y_]=1/Gamma[0.9] Integrate[(x-t)-0.1 (D[r1[x,t],{t,2}])t,{t,0,y},Assumptions->0<x<1]+(2*x+6)(D[r1[x,y],x]) r2[0.2,0.2]
-
0有哪位大佬下载了mma10.4的注册机 帮忙弄一下密钥 Math ID: 6202-27620-81192 有偿!
-
0
-
0大佬们mathematic怎么定义F(x)的导数是f(x)呢?