我总是在想做些程序时没有灵感，不想做时又发现惊喜。因此决定今天把灵感先记录在这，以便日后寻找。
牛顿法解高次方程
界面内容：待补全系数的方程，确定精度z0，根附近的确定值x0。
逻辑：
1.组合方程，转化为函数f(x)，求导f'(x)。
2.计算f'(x0)，f'(x0)=0?
2-1.是，弹出对话框：在该定值处切线水平，无法求解，结束。
2-2.否，继续。
3.计算x1=x0—[f(x0)÷f'(x0)]。
4.计算当前精度z1=ABS[(x1—x0)÷x0]。
5.赋值，令x0=x1。
6.检验精度，z1≦z0?
6-1.否，循环执行23456。
6-2.是，继续。
7.弹出对话框：方程f(x)=0，在精度z0下，在<输入的x0>附近的近似解为x0。
8.结束。
二分法求近似N次方根(N为自然数)
界面内容：被开方数M，开次方N，精度z0，结果显示。
逻辑：
1.判断N是否为自然数，[N>0且就高取整(N)=N]?
1-1.否，结果显示：N不为自然数，结束。
1-2.是，继续。
2.判断是否可开方，[就高取整(N÷2)=(N÷2)且M<0]?
2-1.是，结果显示：不可开方，结束。
2-2.否，继续。
3.增加两个变量A0、A1，令A0=0、A1=M。
4.比较[(A0+A1)÷2]^N，与M。M较大？
4-1.是，令A0=[(A0+A1)÷2]，继续。
4-2.否，但相等，结果显示：[(A0+A1)÷2]。
4-3.否，不相等，令A1=[(A0+A1)÷2]，继续。
5.检验精度，z0≧ABS(A0-A1)？
5-1.否，循环执行45。
5-2.是，结果显示：[(A0+A1)÷2]。
6.结束。
网友评论