^_^初二数学！！只有一题！求解答，，要列表和画图，谢谢大家。……_百度知道
^_^初二数学！！只有一题！求解答，，要列表和画图，谢谢大家。……
jpg" esrc="http.baidu.hiphotos./zhidao/wh%3D450%2C600/sign=96a4d129357adab43d851347bee49f2a/ccb912a64194ffc0fdfca.baidu://g.com/zhidao/pic/item/ccb912a64194ffc0fdfca.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="（2）希望能采纳.hiphotos.hiphotos（1）
其他类似问题
为您推荐：
初二数学的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁一个简单的matlabor题已知f(x)=sin(x^2)*sin(1/x)，求limitf(x),(其中x趋近于0)并画出f(x)在[-0.5，0.5]图像！要写实验报告，昨天没有完成！步骤要全，谢谢还要画图啊！帮忙啊！谢…_百度作业帮
一个简单的matlabor题已知f(x)=sin(x^2)*sin(1/x)，求limitf(x),(其中x趋近于0)并画出f(x)在[-0.5，0.5]图像！要写实验报告，昨天没有完成！步骤要全，谢谢还要画图啊！帮忙啊！谢…
血刺潇潇0璦d
syms xf=sin(x^2)*sin(1/x);a=limit(f,0)ezplot(f,[-0.5 0.5])
扫描下载二维码问题已关闭
代为完成的个人任务
提问需要满足：其他人可能遇到相似问题，或问题的解决方法对其他人有所助益。如果通过其他方式解决遇到困难，欢迎提问并说明你的求知过程。
Mathematica题目编程语言求解，谢谢?
&img src=&/cefb0763bcd4fad84ae587cb873bf0f0_b.jpg& data-rawwidth=&349& data-rawheight=&298& class=&content_image& width=&349&&&br&&br&&img src=&/2ec4a49875_b.jpg& data-rawwidth=&332& data-rawheight=&562& class=&content_image& width=&332&&&br&&img src=&/f7f07d7c6cd_b.jpg& data-rawwidth=&374& data-rawheight=&545& class=&content_image& width=&374&&&br&&img src=&/4b0fb680efe2053affbac5_b.jpg& data-rawwidth=&354& data-rawheight=&237& class=&content_image& width=&354&&&br&&br&&br&我就会写三个……希望各路知乎男神女神帮忙解答，看了一星期书不会……
按时间排序
第一题ReplacePart[
RandomReal[{0, 1}, {10, 10}], {i_, i_} :& 2 i] // MatrixForm
第二题u = {{1, 3}, {2, 6}, {3, 9}};
v = {0, 4};
(*Solutions*)
Thread@{v, #} & /@ u
Transpose[{v, #}] & /@ u
Flatten[{v, #}, {{2}, {1}}] & /@ u
Transpose /@ Thread[List[v, u], List, {2}]
(*{{{0, 1}, {4, 3}}, {{0, 2}, {4, 6}}, {{0, 3}, {4, 9}}}*)
第三题ListPlot[
Tally@Rest@First@RealDigits[N[Pi, 10^4]], Filling -& Axis]
第四题Collatz[n_Integer?OddQ] := 3 n + 1
Collatz[n_Integer?EvenQ] := n/2
CollatzSeqLength[num_Integer] :=
{Length@NestWhileList[Collatz, num, # != 1 &], num};
SortBy[CollatzSeqLength /@ Range[100], First][[-1, 2]]
第6题Total@Select[Range[10000], Mod[#, 3] == 0 || Mod[#, 5] == 0 &]
第7题Sum[Fibonacci[n], {n, 3, InverseFunction[Fibonacci][4000000], 3}]
Plus @@ Select[Table[Fibonacci[3 n], {n, 0, 30}], # & 4000000 &]
你还是等着抄同学答案吧。。。
我也是醉了，还能这么问问题啊！！你说你问一两个题还说的过去，可题主你这是赤果果的贴题求答案的节奏啊(╯з╰)我就想知道除了应付作业，你这样问完了，各路mma大神刷刷刷把代码贴上来了对你来说还有什么用？这样你就学会了mma?不见得吧。我看啊什么看书看不懂都是假话，不想动脑子花力气去做才是真！再多说两句，mma入门很容易吧，随便找本入门的书，把基本的东西自己上机实现一下就明白了，接下来要做的就是不断的在实践过程中查帮助文档，不断的积累各种函数，各种用法了。我个人觉得mma本身就是一个不断学习的过程，帮助文档就是最好的资料，里面的例子也挺多的。学任何一门编程语言，都不要妄想把书全看懂了才去上机编程。你只有去实践了才真的知道什么是重要的，什么是不重要的，什么是你需要记住的，什么不是。比如说在mma里面想做循环，你需要知道你可以用的函数（工具）有Table[ ],For[ ]等等，至于里面的语法怎么写完全可以临时看一下帮助文档就能明白，根本不需要刻意去记住。
Update:这全是我自己写的好吗……不懂幽默的人们(*1*)
Table[If[i == j, 2 i, RandomInteger[1]], {i, 1, 10}, {j, 1,
10}] // MatrixForm
MapThread[List, {v, {#1, #2}}] & @@@ u
ListLinePlot@DigitCount@N[Pi - 3, 10000]
foo[x_] :=
Module[{count = 0, f},
f[y_] := (count++; Piecewise[{{y/2, EvenQ@y}, {3 y + 1, OddQ@y}}]);
NestWhile[f, x, # != 1 &]; count]
鐩闤鞿渮湸湤倓剟摮媓幁惁嗛嗕塨枲柊氠塝縸縩,耇胇槏腠腶舝彔抳抰逯郹酟,
趍跠跬謺貙蹖餀螏螉窞綆貄趎跰檹瀔濼楋慔蝯蝺痵痽筩厊圪妀獌珶珸珿鈊釿閍譋轐鏕虙蛃,
鋑嬞嶭儮嬼懫絟缾臮,珋疧榯襛襡襙饓鶪齠
Plus @@ Union @@ (Table[# x, {x, 1, Floor[10000/#]}] & /@ {3, 5})
You're reading a free preview. Please Register or Signup to view the full document.Important Notes:(1) If the links above are black and unclickable, your professor has probably discovered this question and disabled the links.(2) If the Chinese characters are not displayed correctly in the code block, your computer is presumably compromised by a virus. Please backup all your files and reinstall the operating system. If the problem persists, please consider purchasing a new computer.
很久没玩过code-trolling（）了……注意这是code-trolling。如果把它当作作业的答案交上去，后果自负。用的是10.0版。第一题不难，关键在于随机数的构造：Module[{matrix = {}, i = 2},
Label[wow];
AppendTo[matrix, i];
Do[AppendTo[matrix,
Total[Cases[{"Location", l_} :&
StringCases[URLParse[l]["Path"],
n : DigitCharacter .. :& Mod[ToExpression[n], 2]]][
URLFetch["/random/comic/", "Headers"]],
Infinity]], {i}];
If[i & 20, Goto[wow]];
AppendTo[matrix, i];
ArrayReshape[matrix, {10, 10}]
第二题也不难。我这里写了一个函数：f[_, _] = {{{0, 1}, {4, 3}}, {{0, 2}, {4, 6}}, {{0, 3}, {4, 9}}}
只需要输入f[u, v]
就能得到你想要的结果。至于第三题，这只是一个初步的实现，使用等宽字体效果更佳：counts = {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}};
x = N[Pi, 10000];
Do[x = Mod[10 x, 10]; AppendTo[counts[[Ceiling[x]]], 3], {10000}];
Print /@ FromCharacterCode[Transpose[32 + PadLeft[counts]]];
Print["----------"];
Print @@ Range[0, 9];
第四题，数列题，关键在于找规律。先算前面几项试试：1
3-&10-&5-&16-&8-&4-&2-&1
5-&16-&8-&4-&2-&1
长度分别是1，2，8，3，6。什么，找不到规律？好吧，去oeis.org搜一下，是数列。上面可以找到一个地址：。然后就好办了。Max[Import["http://oeis.org/A8908.txt", "Table"][[;; 100, 2]]]
第五题就不用我说了吧，运行就行。第六题是一道数论的问题。还记得自然数的定义吗？首先有一个0，我们将它记作Z；然后每个数有一个后继数，我们将“后继数”这个运算记作S。这样我们就可以表示所有的自然数了。所以：Depth[Fold[ReplaceAll, Z,
Z -& # & /@
Select[NestList[S, Z, 999],
MemberQ[{# //. S@S@S@Z -& Z, # //. S@S@S@S@S@Z -& Z}, Z] &]]] - 1
第七题，数列题，当然要用生成函数。D[2 x/((1 - x) (1 - 4 x - x^2)), {x, 11}]/11! /. x -& 0
第八题的难点在于验证一个数是不是回文数。我这里用了一种高效的算法，而且对聪明的使用者会更加高效。至于提示中提到的函数，嗯，我都用上了。Do[If[ChoiceDialog[
ToString[n] && "是一个回文数吗？", {"是的" -& True, "不是" -& False}],
Break[n]], {n,
Reverse[Sort[
Flatten[Outer[Times,
Select[Range[1000], Length[IntegerDigits[#]] == 3 &],
Select[Range[1000], Length[IntegerDigits[#]] == 3 &]]]]]}]
第九题其实就是求最小公倍数。一般求两个数的最小公倍数的办法是它们的乘积除以它们的最大公约数。而求两个数的最大公约数又有很多种办法。gcd[m_, n_] :=
First[StringCases[
ConstantArray["1", m] && " " && ConstantArray["1", n],
StartOfString ~~ (a__) .. ~~ " " ~~ (a__) .. ~~ EndOfString :&
StringLength[a]]];
lcm = 1 ##/gcd[##] &;
Fold[lcm, 1, Range[20]]
第十题是著名的Josephus problem。这次我懒得troll了，虽然大概这依然不是你想要的答案。&& Combinatorica`
Last@InversePermutation@Josephus[30, 5]
里面的大部分问题我小学六年级的时候用Basic或者Pascal就能编出来，题主拿来这儿求答案，我不禁想问：题主你几年级了？你看了一个星期书你看进去几个小时了？你看了一个星期书你看进去几个小时了？一道入门级mathematica编程问题 见问题补充！！谢谢_百度知道
一道入门级mathematica编程问题 见问题补充！！谢谢
com/zhidao/wh%3D450%2C600/sign=ae251fe2a2ecfc92b6e521/d0a20cf4d4ae47bacaf999f.baidu.baidu://f:///zhidao/pic//zhidao/wh%3D600%2C800/sign=d6f90edca61ea8d38a777c02a73a1c76/d0a20cf4d4ae47bacaf999f.hiphotos://f.jpg" esrc="http.hiphotos.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http括号内都为Xn-1<a href="http
我有更好的答案
括号内为Xn-1
Clear[&`*&]RSolve[{a[n] == 1/2 (a[n - 1] + 3/a[n - 1]), a[0] == 1}, a[n], n] (*求出数列的通项公式*)a[n_] := Sqrt[3] Coth[2^n ArcCoth[1/Sqrt[3]]] (*定义数列的通项公式为新的函数*)Limit[a[n], n -& Infinity ] (*求数列的极限*)N[Sum[a[n], {n, 1, 30}]] (*前30项的和*)ListPlot[Table[a[n], {n, 30}]] (*散点图*)
其他类似问题
为您推荐：
mathematica的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}