找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 2630|回復(fù): 0
收起左側(cè)

遞歸(分治法)實現(xiàn)計算簡單表達(dá)式

[復(fù)制鏈接]
ID:127437 發(fā)表于 2016-6-20 22:46 | 顯示全部樓層 |閱讀模式

Function Ev (Expr)

If InStr(Expr,"+")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"+")-1))+Ev(Mid(Expr,InStr(Expr,"+")+1,Len(Expr)-InStr(Expr,"+"))):Exit FunctionIf InStr(Expr,"-")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"-")-1))-Ev(Mid(Expr,InStr(Expr,"-")+1,Len(Expr)-InStr(Expr,"-"))):Exit FunctionIf InStr(Expr,"*")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"*")-1))*Ev(Mid(Expr,InStr(Expr,"*")+1,Len(Expr)-InStr(Expr,"*"))):Exit FunctionIf InStr(Expr,"/")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"/")-1))/Ev(Mid(Expr,InStr(Expr,"/")+1,Len(Expr)-InStr(Expr,"/"))):Exit Function
If InStr(Expr, "/")= 0 Then Ev=Cdbl(Expr)
End Function
Msgbox Ev(Inputbox("expr"))



(注:VBS內(nèi)部提供了一個Eval函數(shù),可以計算表達(dá)式。但我們因為是實驗算法,不使用它。)
程序非常短,(因為采用了遞歸思想和分治法。)
今天算是又好好應(yīng)用了一次分治法。。。。實現(xiàn):加減乘除四則運(yùn)算,暫不支持括號。
程序基本原理:
將一個表達(dá)式依次用加號、減號、乘號、除號拆開,然后遞歸的計算一個更小的表達(dá)式。如果遇到的是一個數(shù)字,那就直接返回這個數(shù)字。


這個程序就會不斷的分開表達(dá)式,直到分為一個個數(shù)字。


目前我還在思索如何把它放到根號化簡程序里面去。


回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表