Multiattribute acceptance sampling plans - Library(ISI Kolkata ...

Annexure
Microsoft Visual Basic programme as Excel Macro “OptimalAPlan()” for obtaining the
Bayesian Optimal A plan for discrete prior Distribution for a given lot size, and values of
( p , p , p ), ( p′
, p′
, p′
) , γ , γ
1 2 3 2 2 3 1 2
‘The following array variables are used ;
‘MINREGRET () is an array variable denoting the regret value for a given c 3
‘Optc2() is an array variable denoting the optimum c 2 value for a given c 3
‘Optc1() is an array variable denoting the optimum c 1 value for a given c 3
Optcn() is an array variable denoting the optimum n value for a given c 3
‘For all other variables see the explanations given as comment
Sub optimalAthree()
Dim MINREGRET(50)
Dim optc2(50)
Dim optc1(50)
Dim optn(50)
J = 1 ‘j is a variable used to define the row of the output sheet
‘Print Header for the output worksheet “Sheet 1”
Worksheets(“sheet1”).Cells(1,1).Value=”LOT”
Worksheets(“Sheet1”).Cells(1,2).Value=”Optimum c 3 ”
Worksheets(“Sheet1”).Cells(1,3).Value=”Optimum c 2 ”
Worksheets(“Sheet1”).Cells(1,4).Value=”Optimum c1”
Worksheets(“Sheet1”).Cells(1,5).Value=”Optimum n”
Worksheets(“sheet1”).Cells(1,6).Value=”Regret Value”
‘Set the process average values at stage 2 for the first, second and the third attribute
p1dash=1/100
p2dash=4/100
p3dash=10/100
pdash =p1dash+p2dash+p3dash
‘Set the ratios of the process averages at stage two and stage one for attribute 1,2 and three
onerat=8
tworat=5
threerat=3
118