mathematica+12

阮衫废3380mathematica 如何在矩阵中提取部分元素累加 -
鄂珍环15174876035 ______ a = {a1, a2, a3, a4, a5}; b = a; For[i = 1, i <= Length[a], i++, b[[i]] = Sum[a[[j]], {j, i}]] 方法应该有很多种,这只是其中一种方法 还可以写得更简单些: a = {a1, a2, a3, a4, a5};b = Table[Sum[a[[j]], {j, i}], {i, 1, Length[a]}]

阮衫废3380mathematica 矩阵相加 -
鄂珍环15174876035 ______ 先用ArrayPad函数吧4*4的矩阵扩到8*8(ArrayPad[这里放那个4*4的矩阵, {0, 4}]),就可以直接相加了.

阮衫废3380如何用mathematica画相图 -
鄂珍环15174876035 ______ k12[x_]:=Log[x+Sqrt[x^2+1]] Plot[k12[x],{x,-30,10}] 先定义函数,再取一段定义域,这样才能画出图形 首先新建一个笔记本文件 最简单的一个例子,画出正弦函数的图像;利用Plot命令即可,函数可以自己修改 Plot[Sin[(2*Pi)/3*t], {t, 0, 3}] 增加...

阮衫废3380Mathematica编程 -
鄂珍环15174876035 ______ 我好几年没弄Mathematica了,刚才网上看了一下它的语法,弄了一个最笨的方法. 但可行. 代码如下: info = expr[{＂+＂}, {＂-＂}, {＂*＂}]; For [a=1,a<4,a++, For [b=1,b<4,b++, For [c=1,c<4,c++, For [d=1,d<4,d++, For [e=1,e<4,e++, For [f=1,f<4...

阮衫废3380如何用mathematica求递推表达式 -
鄂珍环15174876035 ______ a[n_Integer] = ((2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n)) /. n -> n - 1); a[1] = 4/3; 我是把a[1+n]的递推表达式换成a[n]的递推表达式定义了(就是把表达式等号右边所有的n换成n-1) 在输入上面的代码以后就可以用a[n]的形式计算任意项的值了

阮衫废3380mathematica 指数函数如何求解 -
鄂珍环15174876035 ______ 方程组可能无解.但如(200 b + c*200^d) == 33.39 为(200 b + c*200^d) == 3339 则有解.

阮衫废3380Mathematica中如何求解带有参数递推式的通项公式请问如何用Mathematica求解含有参数的数列递推式?命令是什么?比如a[n+1]=k*a[n],a[1]=2k,其中k是常... -
鄂珍环15174876035 ______[答案] RSolve[{a[n + 1] == k a[n],a[1] == 2 k},a[n],n]

阮衫废3380学习Mathematica 有什么推荐书籍 -
鄂珍环15174876035 ______ 1,Mathematica基础与应用2,Mathematica 与数值分析实验(尽管是同数值分析相关的,但是入门部分也很不错)3,Mathematica 7实用教程(第2版)/中国科学技术大学精品教材

阮衫废3380在mathematica中如何实现简单的公式推导?急求,谢谢! -
鄂珍环15174876035 ______ (*公式推导程序在mathematica中的程序如下:1. *) gradationEi[d_, c1_] := Module[{EM = 24.83855, nM = 54.14688, EV = 2.44846, nV = 442.4779, s, E0, v0 = 0.4, K0, u0, E1 = 40000, v1 = 0.2, K1, u1, p0m, q0, a = 0.001, q0m, K, u(*,E2*)}, E0 ...

阮衫废3380Mathematica有哪些计算机语言,都有什么用? -
鄂珍环15174876035 ______ 1.拟合:data={{1,376.51},{2,478.32},{3,532.22},{4,551.46},{5,576.2},{6,861.87},{7,835.09},{8,831.42},{9,828.98},{10,827.91},{11,827.83},{12,827.84},{13,827.7},{14,827.7}}; f = Fit[data, {1, x}, x] Show[ListPlot[data, PlotStyle -> { PointSize[0.03],...