Integ 0 pi2,50,f, 1.000082250762=f x( ) x sin x( )?:=
Integ a b,n,f,( ) h b a?( )n←
s 0←
s1 f i 1?( ) h?[ ] f i h?( )+[ ] h2?←
s s s1+←
i 1 n..∈for
:=
2,利 用 求 积 分 的 梯 形 公 式 编 写 程 序 计 算 函 数 在 一 个 有 限 区 间 上 的 定 积 分
Find x y,( ) 2214→
2x 4y+ 100=
x y+ 36=
Given
henrabit1 "Chickens"22 "Rabbits"14=
henrabit1 chikens 1←
break mod 100 2 chikens 4,( ) 0= chikens 100 2 chikens 4+ 36=∧if
chikens chikens 1+←
chikens 36≤while
"Chickens"
chikens
"Rabbits"
100 2 chikens
4
:=
henrabit "Chickens"22 "Rabbits"14=
henrabit
break k 100 2 k( )4+ 36= mod 100 2 k 4,( ) 0=∧if
k 1 36..∈for
"Chickens"
k
"Rabbits"
36 k?
:=
1 tong Mathcad, 36,100,.鸡 兔 笼 问 题 的 程 序 头 脚 求 鸡, 兔 各 若 干
Mathcad (2)编 程 举 例30 实 验
Integ1 a b,n,f,( ) h b a?( )n←
s f a( ) f b( )+( ) h2?←
s1 f a i h?+( ) h?←
s s s1+←
i 1 n 1?..∈for
:=
Integ1 0 pi2,50,f, 1.000082250762=
0
pi
2
xf x( )
�
�? d 1→ 1=
3,,,编 写 程 序 统 计 一 个 班 级 考 试 成 绩 的 分 组 统 计 结 果 输 出 次 数 分 布 总 成 绩
.平 均 成 绩 以 及 标 准 差
stat Data( ) n length Data( ) 1?←
xi 0←
i 0 4..∈for
x0 x0 1+← Datai 60<if
x1 x1 1+← 60 Datai≤ 70<if
x2 x2 1+← 70 Datai≤ 80<if
x3 x3 1+← 80 Datai≤ 90<if
x4 x4 1+← otherwise
i 0 n..∈for
p j 5 j?←
j 0 4..∈for
cum0 x0←
cumj cumj 1? xj+←
j 1 4..∈for
augment p x,x 100?n 1+,cum,cum 100?n 1+,
:=
score
71
73
78
:=
:,各 列 顺 次 为 成 绩 等 级
,,人 数 百 分 比 累 积 频 数累 积 百 分 比
stat score( )
5
4
3
2
1
3
14
23
20
5
4.615
21.538
35.385
30.769
7.692
3
17
40
60
65
4.615
26.154
61.538
92.308
100
=
mean score( ) 75.969= 平 均 成 绩
sum mean score( ) length score( )?:=
sum 4938= 总 成 绩
stdev score( ) 9.702= 标 准 差
int
55
65
75
85
95
:= h
3
14
23
20
5
:= cum
3
17
40
60
65
:=
50 100
20
成 绩 频 数 分 布 图
50 100
50
成 绩 累 积 分 布 图
int
50
60
70
80
90
100
:= hist int score,( )
3
14
23
20
5
=
40 60 80 100
10
20
30
4,编 写 程 序 将 一 个 十 进 制 的 整 数 转 换 成 二 进 制 数
Decimal_bin x( ) n floor ln x( )ln 2( )←
reduck x←
reduck 1+ floor
reduck
2
←
x reduck 1+←
k 0 n..∈for
digitj reducj 2 reducj 1+←
j 0 n..∈for
binary
0
n
i
digiti 10i?∑
=
←
:=
Decimal_bin 451( ) 111000011= Decimal_bin 127( ) 1111111=
5,如 下 的 两 个 程 序 用 于 判 断 一 个 整 数 是 不 是 素 数
Prime n( )
pk mod n k,( )←
k 2 floor n( )..∈for
m floor n( ) 2?←
prk 1← pk 2+ 0≠if
prk pk 2+← otherwise
k 0 m..∈for
"The number is prime!"
0
m
k
prk∏
=
0≠if
"The number is not prime!" otherwise
:=
x 299:= Prime x( ) "The number is not prime!"= Prime 9013( ) "The number is prime!"=
FPrime n( )
pk k←
k 1 2..∈for
pk mod n k,( )←
k 2 floor n( )..∈for n 2>if
m floor n( )←
s 0←
prk 1←
s s 1+←
pk 0≠if
k 0 m..∈for
"Prime" m s=if
"No Prime" otherwise
:=
x 299:= FPrime x( ) "No Prime"= FPrime 9013( ) "Prime"=
6,r,1,2,3,5,六 种 银 行 存 款 方 案 比 较 为 利 率 向 量 其 各 分 量 分 别 是 年 定 期 存 款
, x, x存 款 一 律 不 计 复 利 程 序 中 为 本 金 输 出 结 果 为 按 照 各 种 方 案 将 本 金 存 入
,,.银 行 五 年 后 本 利 以 及 利 息 额
r0
.024
.0245
.025
.0258
:=
deposit x r,( )
schemek k 1+←
corpusk x←
k 0 5..∈for
p
x 1 5 r3?+( )?
x 1 3 r2?+( )? 1 2 r1?+( )?
x 1 3 r2?+( )? 1 r0+( )2?
x 1 r0+( )5?
x 1 2 r1?+( )2? 1 r0+( )?
x 1 2 r1?+( )? 1 r0+( )3?
←
accrual p corpus?←
s augment scheme p,( )←
augment s accrual,( )
:=
deposit 20000 r0,( )
1
2
3
4
5
6
22580
22553.5
22544.38
22518
22536.21
22527.1
2580
2553.5
2544.38
2518
2536.21
2527.1
=
Integ a b,n,f,( ) h b a?( )n←
s 0←
s1 f i 1?( ) h?[ ] f i h?( )+[ ] h2?←
s s s1+←
i 1 n..∈for
:=
2,利 用 求 积 分 的 梯 形 公 式 编 写 程 序 计 算 函 数 在 一 个 有 限 区 间 上 的 定 积 分
Find x y,( ) 2214→
2x 4y+ 100=
x y+ 36=
Given
henrabit1 "Chickens"22 "Rabbits"14=
henrabit1 chikens 1←
break mod 100 2 chikens 4,( ) 0= chikens 100 2 chikens 4+ 36=∧if
chikens chikens 1+←
chikens 36≤while
"Chickens"
chikens
"Rabbits"
100 2 chikens
4
:=
henrabit "Chickens"22 "Rabbits"14=
henrabit
break k 100 2 k( )4+ 36= mod 100 2 k 4,( ) 0=∧if
k 1 36..∈for
"Chickens"
k
"Rabbits"
36 k?
:=
1 tong Mathcad, 36,100,.鸡 兔 笼 问 题 的 程 序 头 脚 求 鸡, 兔 各 若 干
Mathcad (2)编 程 举 例30 实 验
Integ1 a b,n,f,( ) h b a?( )n←
s f a( ) f b( )+( ) h2?←
s1 f a i h?+( ) h?←
s s s1+←
i 1 n 1?..∈for
:=
Integ1 0 pi2,50,f, 1.000082250762=
0
pi
2
xf x( )
�
�? d 1→ 1=
3,,,编 写 程 序 统 计 一 个 班 级 考 试 成 绩 的 分 组 统 计 结 果 输 出 次 数 分 布 总 成 绩
.平 均 成 绩 以 及 标 准 差
stat Data( ) n length Data( ) 1?←
xi 0←
i 0 4..∈for
x0 x0 1+← Datai 60<if
x1 x1 1+← 60 Datai≤ 70<if
x2 x2 1+← 70 Datai≤ 80<if
x3 x3 1+← 80 Datai≤ 90<if
x4 x4 1+← otherwise
i 0 n..∈for
p j 5 j?←
j 0 4..∈for
cum0 x0←
cumj cumj 1? xj+←
j 1 4..∈for
augment p x,x 100?n 1+,cum,cum 100?n 1+,
:=
score
71
73
78
:=
:,各 列 顺 次 为 成 绩 等 级
,,人 数 百 分 比 累 积 频 数累 积 百 分 比
stat score( )
5
4
3
2
1
3
14
23
20
5
4.615
21.538
35.385
30.769
7.692
3
17
40
60
65
4.615
26.154
61.538
92.308
100
=
mean score( ) 75.969= 平 均 成 绩
sum mean score( ) length score( )?:=
sum 4938= 总 成 绩
stdev score( ) 9.702= 标 准 差
int
55
65
75
85
95
:= h
3
14
23
20
5
:= cum
3
17
40
60
65
:=
50 100
20
成 绩 频 数 分 布 图
50 100
50
成 绩 累 积 分 布 图
int
50
60
70
80
90
100
:= hist int score,( )
3
14
23
20
5
=
40 60 80 100
10
20
30
4,编 写 程 序 将 一 个 十 进 制 的 整 数 转 换 成 二 进 制 数
Decimal_bin x( ) n floor ln x( )ln 2( )←
reduck x←
reduck 1+ floor
reduck
2
←
x reduck 1+←
k 0 n..∈for
digitj reducj 2 reducj 1+←
j 0 n..∈for
binary
0
n
i
digiti 10i?∑
=
←
:=
Decimal_bin 451( ) 111000011= Decimal_bin 127( ) 1111111=
5,如 下 的 两 个 程 序 用 于 判 断 一 个 整 数 是 不 是 素 数
Prime n( )
pk mod n k,( )←
k 2 floor n( )..∈for
m floor n( ) 2?←
prk 1← pk 2+ 0≠if
prk pk 2+← otherwise
k 0 m..∈for
"The number is prime!"
0
m
k
prk∏
=
0≠if
"The number is not prime!" otherwise
:=
x 299:= Prime x( ) "The number is not prime!"= Prime 9013( ) "The number is prime!"=
FPrime n( )
pk k←
k 1 2..∈for
pk mod n k,( )←
k 2 floor n( )..∈for n 2>if
m floor n( )←
s 0←
prk 1←
s s 1+←
pk 0≠if
k 0 m..∈for
"Prime" m s=if
"No Prime" otherwise
:=
x 299:= FPrime x( ) "No Prime"= FPrime 9013( ) "Prime"=
6,r,1,2,3,5,六 种 银 行 存 款 方 案 比 较 为 利 率 向 量 其 各 分 量 分 别 是 年 定 期 存 款
, x, x存 款 一 律 不 计 复 利 程 序 中 为 本 金 输 出 结 果 为 按 照 各 种 方 案 将 本 金 存 入
,,.银 行 五 年 后 本 利 以 及 利 息 额
r0
.024
.0245
.025
.0258
:=
deposit x r,( )
schemek k 1+←
corpusk x←
k 0 5..∈for
p
x 1 5 r3?+( )?
x 1 3 r2?+( )? 1 2 r1?+( )?
x 1 3 r2?+( )? 1 r0+( )2?
x 1 r0+( )5?
x 1 2 r1?+( )2? 1 r0+( )?
x 1 2 r1?+( )? 1 r0+( )3?
←
accrual p corpus?←
s augment scheme p,( )←
augment s accrual,( )
:=
deposit 20000 r0,( )
1
2
3
4
5
6
22580
22553.5
22544.38
22518
22536.21
22527.1
2580
2553.5
2544.38
2518
2536.21
2527.1
=
