? ? ? ? 我總是在想做些程序時(shí)沒有靈感，不想做時(shí)又發(fā)現(xiàn)驚喜。因此決定今天把靈感先記錄在這，以便日后尋找。

牛頓法解高次方程

界面內(nèi)容：待補(bǔ)全系數(shù)的方程，確定精度z0，根附近的確定值x0。

邏輯：

1.組合方程，轉(zhuǎn)化為函數(shù)f(x)，求導(dǎo)f'(x)。

2.計(jì)算f'(x0)，f'(x0)=0?

2-1.是，彈出對話框：在該定值處切線水平，無法求解，結(jié)束。

2-2.否，繼續(xù)。

3.計(jì)算x1=x0—[f(x0)÷f'(x0)]。

4.計(jì)算當(dāng)前精度z1=ABS[(x1—x0)÷x0]。

5.賦值，令x0=x1。

6.檢驗(yàn)精度，z1≦z0?

6-1.否，循環(huán)執(zhí)行23456。

6-2.是，繼續(xù)。

7.彈出對話框：方程f(x)=0，在精度z0下，在<輸入的x0>附近的近似解為x0。

8.結(jié)束。

二分法求近似N次方根(N為自然數(shù))

界面內(nèi)容：被開方數(shù)M，開次方N，精度z0，結(jié)果顯示。

邏輯：

1.判斷N是否為自然數(shù)，[N>0且就高取整(N)=N]?

1-1.否，結(jié)果顯示：N不為自然數(shù)，結(jié)束。

1-2.是，繼續(xù)。

2.判斷是否可開方，[就高取整(N÷2)=(N÷2)且M<0]?

2-1.是，結(jié)果顯示：不可開方，結(jié)束。

2-2.否，繼續(xù)。

3.增加兩個(gè)變量A0、A1，令A(yù)0=0、A1=M。

4.比較[(A0+A1)÷2]^N，與M。M較大？

4-1.是，令A(yù)0=[(A0+A1)÷2]，繼續(xù)。

4-2.否，但相等，結(jié)果顯示：[(A0+A1)÷2]。

4-3.否，不相等，令A(yù)1=[(A0+A1)÷2]，繼續(xù)。

5.檢驗(yàn)精度，z0≧ABS(A0-A1)？

5-1.否，循環(huán)執(zhí)行45。

5-2.是，結(jié)果顯示：[(A0+A1)÷2]。

6.結(jié)束。