11.07.2014 Views

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

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

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

‘Print Output as worksheet<br />

Worksheets(”Sheet1”).Cells (i , 1).Value = a1<br />

Worksheets (”Sheet1”).Cells (i, 2).Value = cost<br />

i = i + 1<br />

Next a1<br />

End Sub<br />

‘Computation of the value of the gamma Poisson for a given set of parameters<br />

using the Excel worksheet function<br />

Function gammapoisson (x, npbar, s)<br />

theta = s / (s + npbar)<br />

Gammanum = Exp(-1) / Application.WorksheetFunction.GammaDist(1, s + x, 1, False)<br />

onedeno = Exp(-1) / Application.WorksheetFunction.GammaDist(1, s, 1, False)<br />

Twodeno = Exp(-1) / Application.WorksheetFunction.GammaDist(1, x + 1, 1, False)<br />

gammapoisson = (Gammanum / (onedeno * Twodeno)) * (theta ŝ) * ((1 - theta) ˆx)<br />

End Function<br />

139

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!