用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的
来源:学生学帮网 编辑:学帮网 时间:2024/07/06 20:38:12
用Mathematica做:寻找100以内的勾股数.求程序设计及结果
我要的是用Mathematica做的,不要其他东西做的
For[i = 1, i < 100, i++,
For[j = i, j < 100, j++,
For[k = j, k < 100, k++,
If[i^2 + j^2 == k^2,
Print[i, " ", j, " ", k];
]
]
]
]
直接复制进去,Shift+Enter ,结果为:
3 4 5
5 12 13
6 8 10
7 24 25
8 15 17
9 12 15
9 40 41
10 24 26
11 60 61
12 16 20
12 35 37
13 84 85
14 48 50
15 20 25
15 36 39
16 30 34
16 63 65
18 24 30
18 80 82
20 21 29
20 48 52
21 28 35
21 72 75
24 32 40
24 45 51
24 70 74
25 60 65
27 36 45
28 45 53
30 40 50
30 72 78
32 60 68
33 44 55
33 56 65
35 84 91
36 48 60
36 77 85
39 52 65
39 80 89
40 42 58
40 75 85
42 56 70
45 60 75
48 55 73
48 64 80
51 68 85
54 72 90
57 76 95
60 63 87
65 72 97
用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的
用Mathematica求函数表达式?一定要用Mathematica做哦,主要是看代码怎么写.
用mathematica 如何做X=2的图像
求大神用Mathematica做一下这个函数图像Z
mathematica做多元微分项目
用Mathematica 8.0 画图
用mathematica解决微分方程
用Mathematica求解
寻找以琛是什么意思?
mathematica求积分的问题刚刚看了贴吧上有问一道题目,做了下没写出来,用mathematica发现是这样的啥意思那out里面
mathematica画抛物线想用mathematica做两个抛物线方程的图,方程为y^2=-20x;与x^2=-5/2y
寻找适合零下100摄氏度的钢铁材料?我要做反应釜用的.
mathematica 如何做物理运动图像?
用Mathematica作图,求代码.
写作文用寻找做题目```写什么好呢?
以“寻找”为题的文章
y'+2*y^2=1/(1+x^2)用mathematica软件怎么做?这道题不能直接用DSolve
寻找溶解剂怎么做