【正文】 0230551044824301112943010306222248322231305107307430748432061314301130851064852123132222330922234861203133330831022224872122134430133115103488222313551073122223489222313633073134309490420101375106314120449132071384301331512034922123139330831651074934201014043012317222449421231412223318330849542012142330731912044961203143430123202223497420614443083211103498420101453301032242074991102146222332312035002223147430123241203501120314812033255101050242091493301032651045031103150110432712025043208151420832851045053209152110232911025064301015351010330120250712031542123331510450812021555105332120250942011156510533351010510110415732063341102511212315842012335110351212021593204336510751312031603207337110351421241612122338510451511041624301433951065163206163510734011035172223164430113415105518420141653309342510851942091664301334351085203208167510734451095212124168420153455108522222316922223465105523320417032083475105524222317122233485105525510917222243495105526212217342083504201452742013174420735142011528110417551063522122529420101765105353330753042013177222335443085. k=1。(*處理的天數(shù)*)While[k163。25, (*對病人循環(huán)處理，i為循環(huán)變量*) Print[運行觀察K=,k]。 Do[ (*對門診時間在K前且未入院的病人處理*) If[flag[[i]]?0amp。amp。R[[i,2]]k, (*外傷病人的處理*) If[R[[i,1]]?5amp。amp。Bed[[k]]0, X[[i,3]]=k。Bed[[k]]=Bed[[k]]1。(* 第K天每人院1人，病床少一張*) X[[i,4]]=X[[i,3]]+1。Xpre[[i]]=X[[i,4]]+Random[Integer,{4,8}]。 flag[[i]]=1。 Bed[[X[[i,4]]]]=Bed[[X[[i,4]]]]+1。 ]。 (*外傷病人的處理完畢*) (*外雙白內障病人的處理*) If[R[[i,1]]?2amp。amp。Mod[k,7]?6amp。amp。Bed[[k]]0, X[[i,3]]=k。Bed[[k]]=Bed[[k]]1。(* 第K天每人院1人，病床少一張*) X[[i,4]]=X[[i,3]]+1。Xpre[[i]]=X[[i,4]]+Random[Integer,{3,7}]。 flag[[i]]=1。 Bed[[X[[i,4]]]]=Bed[[X[[i,4]]]]+1。 ]。 (*外雙白內障病人的處理*) (*對單白內障病人的處理*) If[R[[i,1]]?1amp。amp。(Mod[k,7]?1||Mod[k,7]?6)amp。amp。Bed[[k]]0, Print[k=,k,有空床4]。 X[[i,3]]=k。Bed[[k]]=Bed[[k]]1。(* 第K天每人院1人，病床少一張*) X[[i,4]]=X[[i,3]]+1。Xpre[[i]]=X[[i,4]]+Random[Integer,{1,5}]。 flag[[i]]=1。 Bed[[X[[i,4]]]]=Bed[[X[[i,4]]]]+1。 ]。 (*對單白內障病人的處理完畢*) (*對青光眼病人處理*) If[R[[i,1]]?4amp。amp。(Mod[k,7]185。6amp。amp。Mod[k,7]185。1)amp。amp。Bed[[k]]0, Print[k=,k,有空床2]。 X[[i,3]]=k。Bed[[k]]=Bed[[k]]1。(* 第K天每人院1人，病床少一張*) X[[i,4]]=X[[i,3]]+1。Xpre[[i]]=X[[i,4]]+Random[Integer,{6,10}]。 flag[[i]]=1。 Bed[[X[[i,4]]]]=Bed[[X[[i,4]]]]+1。 ]。 (*對青光眼病人處理完畢*) (*對視網(wǎng)膜病人處理*) If[(R[[i,1]]?3||R[[i,1]]?4)amp。amp。(Mod[k,7]185。6amp。amp。Mod[k,7]185。1)amp。amp。Bed[[k]]0, Print[k=,k,有空床2]。 X[[i,3]]=k。Bed[[k]]=Bed[[k]]1。(* 第K天每人院1人，病床少一張*) X[[i,4]]=X[[i,3]]+1。Xpre[[i]]=X[[i,4]]+Random[Integer,{7,13}]。 flag[[i]]=1。 Bed[[X[[i,4]]]]=Bed[[X[[i,4]]]]+1。 ]。 (*對視網(wǎng)膜病人處理完畢*) ]。 ,{i,1,79}]。(*對病人循環(huán)處理至此結束*) Bed[[k+1]]=Bed[[k+1]]+Bed[[k]]。Bed[[k]]=0。 k=k+1。 ]。6. 第三問對已入院的病人出院時間的預測（Mathematica實現(xiàn)）。序號疾病類型門診時間入院時間第一次手術時間第二次手術時間出院時間1視網(wǎng)膜疾病2008/8/152008/8/292008/8/31/2008/8/152視網(wǎng)膜疾病2008/8/162008/8/292008/8/31/2008/8/163白內障(雙眼)2008/8/192008/9/12008/9/82008/9/102008/8/194青光眼2008/8/192008/9/12008/9/4/2008/8/195視網(wǎng)膜疾病2008/8/192008/9/12008/9/4/2008/8/196視網(wǎng)膜疾病2008/8/192008/9/12008/9/4/2008/8/197白內障(雙眼)2008/8/192008/9/12008/9/82008/9/102008/8/198視網(wǎng)膜疾病2008/8/192008/9/22008/9/4/2008/8/199視網(wǎng)膜疾病2008/8/192008/9/32008/9/5/2008/8/1910白內障(雙眼)2008/8/192008/9/32008/9/82008/9/102008/8/1911白內障(雙眼)2008/8/192008/9/32008/9/82008/9/102008/8/1912視網(wǎng)膜疾病2008/8/192008/9/32008/9/5/2008/8/1913白內障2008/8/192008/9/42008/9/8/2008/8/1914視網(wǎng)膜疾病2008/8/192008/9/42008/9/6/2008/8/1915視網(wǎng)膜疾病2008/8/202008/9/42008/9/6/2008/8/2016視網(wǎng)膜疾病2008/8/202008/9/42008/9/6/2008/8/2017視網(wǎng)膜疾病2008/8/202008/9/42008/9/6/2008/8/2018視網(wǎng)膜疾病2008/8/202008/9/42008/9/6/2008/8/2019白內障(雙眼)2008/8/202008/9/42008/9/82008/9/102008/8/2020視網(wǎng)膜疾病2008/8/212008/9/52008/9/7/2008/8/2121白內障(雙眼)2008/8/222008/9/52008/9/82008/9/102008/8/2222