| 8 | 1/1 | 返回列表 |
| 查看: 971 | 回復(fù): 7 | ||
[求助]
用ansys優(yōu)化解一個(gè)小學(xué)數(shù)學(xué)題 已有2人參與
|
|
近來(lái)看到一個(gè)小學(xué)數(shù)學(xué)題,題目如下: 元旦促銷活動(dòng),每次購(gòu)物200元至500元都(不含500元)打九五折。每次購(gòu)物500元以上打九折。李阿婆為辦年貨去該中心購(gòu)物三次,如果第一次和第二次合并一起買,比分開(kāi)買便宜13.5元,如是三次合并一起買 比分開(kāi)買便宜39.4元。已知第一次貨物價(jià)格是第三次的20/31,李阿婆第二次購(gòu)物用了多少錢? 不小心算錯(cuò)了,正好在學(xué)習(xí)ansys,那么能否用ansys的優(yōu)化來(lái)解題呢?我是這樣做的: !假設(shè)第一二三次單獨(dú)付款分別為x,y,z, !前三次單獨(dú)實(shí)際付款分別為rx,ry,rz !前兩次合并付款為secondPurch !前三次合并付款為thirdPurch x=100 y=100 z=100 *if,x,gt,200,then rx=x*0.95 *else rx=x *endif *if,y,gt,200,then ry=y*0.95 *else ry=y *endif *if,z,gt,200,then rz=z*0.95 *else rz=z *endif *if,x+y,gt,500,then secondPurch=(x+y)*0.9 *elseif,x+y,gt,200,then secondPurch=(x+y)*0.95 *else secondPurch=x+y *endif *if,x+y+z,gt,500,then thirdPurch=(x+y+z)*0.9 *elseif,x+y+z,gt,200,then thirdPurch=(x+y+z)*0.95 *else thirdPurch=x+y+z *endif condition1=abs(x-20/30*z) condition2=abs(rx+ry-secondPurch-13.5) condition3=abs(rx+ry+rz-thirdPurch-39.4) object=x+y+z /opt opclr opanl,purchase,inp opvar,x,dv,100,200,1 opvar,y,dv,100,160,1 opvar,z,dv,100,300,1 opvar,condition1,sv,0,0.01,0.001 opvar,condition2,sv,0,0.01,0.001 opvar,condition3,sv,0,0.01,0.001 opvar,object,obj,,,1 optype,subp opsubp,1000 得到: X 156.404757 Y 131.812270 Z 233.964945 與答案還是有蠻大差距的,那么怎么樣才能獲得更準(zhǔn)確的結(jié)果呢? |
木蟲之王 (文學(xué)泰斗)
peterflyer
|
我覺(jué)得應(yīng)該這么做: 假設(shè)第一二三次單獨(dú)付款在沒(méi)有折扣的情況下的金額分別為x,y,z,有了折扣后再分別付款時(shí)的金額就會(huì)為α*x、β*y、γ*z,其中α、β、γ為折扣系數(shù),即: x∈[0,200)時(shí)α=1.00 ;x∈[200,500)時(shí)α=0.95;x∈[500,∞)時(shí)α=0.90 y∈[0,200)時(shí)β=1.00 ;y∈[200,500)時(shí)β=0.95;y∈[500,∞)時(shí)β=0.90 z∈[0,200)時(shí)γ=1.00 ;z∈[200,500)時(shí)γ=0.95;z∈[500,∞)時(shí)γ=0.90 同理: x+y∈[0,200)時(shí)δ=1.00 ;x+y∈[200,500)時(shí)δ=0.95;x+y∈[500,∞)時(shí)δ=0.90 x+y+z∈[0,200)時(shí)ε=1.00 ;x+y+z∈[200,500)時(shí)ε=0.95;x+y+z∈[500,∞)時(shí)ε=0.90 由此根據(jù)題中所給出的已知條件可列出如下方程: α*x+β*y=δ*(α*x+β*y)+13.5 (1) α*x+β*y+γ*z=ε*(α*x+β*y+γ*z)+39.4 (2) α*x=20/31*γ*z (3) 利用計(jì)算機(jī)的循環(huán)功能,將所有情況考慮一遍,即α、β、γ、δ、ε五個(gè)數(shù)分別取1.00、0.95、0.90,在每種情況下分別求解一次方程組(1)+(2)+(3)。如果解出的解與前面的系數(shù)取值相符的話就是解,否則不是解?偣惨3^5=243次上面的三元一次線性方程組。有可能存在的解不止一個(gè),也可能無(wú)解,要編程序計(jì)算后才知道。 |
|
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim ri As Double Dim rj As Double Dim rk As Double Dim secondPur As Double Dim thirdPur As Double Dim flag As Boolean flag = False TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" For i = 1 To 500 Step 1 TextBox4.Text = i For j = 1 To 500 Step 1 TextBox5.Text = j For k = 1 To 500 Step 1 TextBox6.Text = k If k > 500 Then rk = 0.9 * k Else If k > 200 Then rk = 0.95 * k Else rk = k End If End If If i > 500 Then ri = 0.9 * i Else If i > 200 Then ri = 0.95 * i Else ri = i End If End If If j > 500 Then rj = 0.9 * j Else If j > 200 Then rj = 0.95 * j Else rj = j End If End If If i + j > 500 Then secondPur = (ri + rj) * 0.9 Else If i + j > 200 Then secondPur = (i + j) * 0.95 Else secondPur = i + j End If End If If i + j + k > 500 Then thirdPur = (i + j + k) * 0.9 Else If i + j + k > 200 Then thirdPur = (i + rj + k) * 0.95 Else thirdPur = i + j + k End If End If If Abs(k * 20 / 31 - i) < 0.0001 And Abs(ri + rj - secondPur - 13.5) < 0.0001 And Abs(ri + rj + rk - thirdPur - 39.4) < 0.0001 Then flag = True TextBox1.Text = ri TextBox2.Text = rj TextBox3.Text = rk Exit Sub End If Next k Next j Next i End Sub 我有用vba試過(guò),這個(gè)是用excel的vba算的,不過(guò)因?yàn)檎么鸢甘钦麛?shù),所以有結(jié)果。我用ansys試了好多次,不同的初始值都會(huì)造成不同的結(jié)果。所以我用ansys的這個(gè)算法可能有問(wèn)題。直接列方程是能求到答案的。因?yàn)槿我黄鸶恫殴?jié)省39.4元,所以每次付款不會(huì)超多500,不需要243次 |

| 8 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 317分 一志愿南理工材料工程 本科湖工大 求調(diào)劑 +4 | 芋泥小鈴鐺 2026-03-28 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-27 | 7/350 |
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +10 | 路癡小琪 2026-03-27 | 10/500 |
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
[考研] 考研調(diào)劑 +4 | Sanmu-124 2026-03-26 | 4/200 |
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +10 | 你好明天你好 2026-03-23 | 12/600 |
|
|
[考研] 359求調(diào)劑 +4 | 王了個(gè)楠 2026-03-25 | 4/200 |
|
|
[考研] 求調(diào)劑 +6 | 林之夕 2026-03-24 | 6/300 |
|
|
[考研] 333求調(diào)劑 +7 | 87639 2026-03-21 | 12/600 |
|
|
[考研] 一志愿北化求調(diào)劑 +3 | Jsman 2026-03-22 | 3/150 |
|
|
[考研]
材料調(diào)劑
5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
[考研] 一志愿211 初試270分 求調(diào)劑 +6 | 谷雨上岸 2026-03-23 | 7/350 |
|
|
[考研] 271求調(diào)劑 +6 | 生如夏花… 2026-03-22 | 6/300 |
|
|
[考研] 352求調(diào)劑 +4 | 大米飯! 2026-03-22 | 4/200 |
|
|
[考研] 考研調(diào)劑 +6 | 來(lái)好運(yùn)來(lái)來(lái)來(lái) 2026-03-21 | 7/350 |
|
|
[考研] 考研一志愿蘇州大學(xué)初始315(英一)求調(diào)劑 +3 | sbdksD 2026-03-24 | 4/200 |
|
|
[考研] 318求調(diào)劑 +3 | plum李子 2026-03-23 | 3/150 |
|
|
[考研] 材料專碩找調(diào)劑 +5 | 哈哈哈吼吼吼哈 2026-03-23 | 5/250 |
|
|
[考研] 材料/農(nóng)業(yè)專業(yè),07/08開(kāi)頭均可,過(guò)線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|
|
[考研] 275求調(diào)劑 +6 | shansx 2026-03-22 | 8/400 |
|