A method of finding minimal cut sets from a fault tree implemented through Excel - Help please

THHKAA

New Member
Joined
Mar 16, 2022
Messages
1
Office Version
  1. 365
Platform
  1. Windows
Hello everyone,
I'm struggling with Appling a method of finding a minimal cut set from a fault tree (The method and a FTA tutorial was presented by P.L Clemens in may 1993, you can find it here - Clemens Fta Tutorial - [PDF Document]).

the method explanation in these steps (illustration is in the added image, letters represent logic gates, European (hindu-arabic) numbers represent primary events, Roman numbers represent Main and intermediate events):
a - insert the first logic gate letter in a cell (Ignore all Roman numbers through the process).
b - if the logic gate type is "AND" then replace that cell with successive cells in its row with the values of the logic gate inputs (in the example - cell "A" is replaced with the successive cells "B" & "D" in its row), if the logic gate type is "OR" then replace that cell with successive cells in its column with the values of the logic gate inputs.
c - Replace the leftmost and topmost cell that holds an input value that is not a number [in the example - cell "B" (which is an "OR" logic gate type) is replaced with the successive cells "1" & "C" in its column, and all other adjacent cells in the same row of the original cell "B" ,that was replaced, is being copied to the new row, next to the new successive cell "C" - in the example the only cell that is being copied is the cell that holds the input value "D"].
d- Replace the leftmost and topmost cell that holds an input value that is not a number [in the example - cell "C" (which is an "AND" logic gate type) is replaced with the successive cells "2" & "3" in its row, the existing cells in the row is untouched (in the example - cell "D") so the successive cell (in the example - cell "3") is added from the right and creates a new column (without adding any copied cells above or below its row).
e - Replace the leftmost and topmost cell that holds an input value that is not a number [in the example - cell "D" (which is an "OR" logic gate type) is replaced with the successive cells "2" & "4" in its column, and all other adjacent cells in the same row of the original cell "D" ,that was replaced, is being copied to the new row, next to the new successive cell "4" - in the example the cell that is being copied is the cell that holds the input value "1"].
f - Replace the leftmost and topmost cell that holds an input value that is not a number [in the example - cell "D" (which is an "OR" logic gate type) is replaced with the successive cells "2" & "4" in its column, and all other adjacent cells in the same row of the original cell "D" ,that was replaced, is being copied to the new row, next to the new successive cell "4" - in the example the cells that are being copied are the cells that holds the input values "2" & "3"].
g - look for repeating cells in each row and if you find any, delete them except one (so that every cell in a row has a singular value in that row), next - Densify the cells so that no cells remain empty (in the example - the cell that held the value "3" moved left and replaced the deleted cell that held the value "2").
h - If there is a row of cells that has all the cell values of a shorter row in the matrix - DELETE THE LONGER ROW (in the example the row that has cells with the values "2", "4", "3" was deleted because there is a shorter row in the matrix that Its only cells has the values "2" & "3").
i - the result is the minimal cut set.

Please help me make it happen, preferably with VBA and an option of a 100 inputs for each logic gate, and as many logic gates as possible.

Book3 (version 1).xlsm
ABCDEFGHIJ
1EventLogic Gate #Logic gate TypeLogic Gate Inputs
2IAANDB
3DaA
4
5bBD
6
7c1D
8CD
9
10d1D
112D3
12IIBOR1
13Ce12
142D3
1514
16
17f12
18223
1914
20243
21
22IIICAND2g12
233223
2414
25243
26
27h12
2823
2914
30243
31
32IVDOR2i12
33423
3414
35
36
37
38
39
40
41
42
Sheet2


MINIMAL CUT SET - THE FAULT TREE.jpg
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Forum statistics

Threads
1,223,911
Messages
6,175,334
Members
452,636
Latest member
laura12345

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top