实验30 Mathcad编程举例(2) 1鸡兔tong笼问题的 Mathcad程序:头36,脚100,求鸡、兔各若干 henrabit; for kE 1.. 36 break if k*(100-2.k) =36∧mod(100-2k,4)=0 Chickens""Rabbits" Chickens""Rabbits henrabit henrabitI:=chikens 1 while chikens≤36 100-2.chikens break if mod(100-2. chikens, 4 )=0A chikens chikens← chikens+1 Chickens" 100-2. chikens chikens henrabitl Given x+y=36 2x+4y=100 14 2利用求积分的梯形公式编写程序计算函数在一个有限区间上的定积分: (b-a) fori∈1.n sl←[(i-1)h+fil f(x):=xsin(x) Integ0,,50,f=1.0008250762Integ 0 p 2 , , 50,f æ ç è ö ÷ ø f(x) := x×sin(x) = 1.000082250762 Integ(a,b, n,f) h (b - a) n ¬ s ¬ 0 s1 [f[(i - 1)×h] + f(i×h)] h 2 ¬ × s ¬ s + s1 for i Î 1.. n := 2 利用求积分的梯形公式编写程序计算函数在一个有限区间上的定积分: Find(x, y) 22 14 æ ç è ö ÷ ø ® 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 æ ç è ö ÷ ø if Ù + = 36 chikens ¬ chikens + 1 while chikens £ 36 "Chickens" chikens "Rabbits" 100 - 2×chikens 4 æ ç ç è ö ÷ ÷ ø := henrabit "Chickens" 22 "Rabbits" 14 æ ç è ö ÷ ø = henrabit break k (100 - 2×k) 4 if + = 36 Ù mod(100 - 2×k, 4) = 0 for kÎ 1.. 36 "Chickens" k "Rabbits" 36 - k æ ç è ö ÷ ø := 1 鸡兔tong笼问题的Mathcad程序: 头36, 脚100, 求鸡、兔各若干. 实验30 Mathcad 编程举例(2)