Functional coverage tree: Difference between revisions

Line 2,006:

=={{header|Phix}}==

<lang Phix>-- demo\rosetta\Functional_coverage_tree.exw

--

constant data = """

-- demo\rosetta\Functional_coverage_tree.exw

NAME_HIERARCHY | WEIGHT | COVERAGE |

-- =========================================

cleaning | | |

--

house1 |40 | |

with javascript_semantics

bedrooms | |0.25 |

constant data = """

bathrooms | | |

~~bathroom1~~ | |~~0.5~~ |

NAME_HIERARCHY | WEIGHT | COVERAGE |

~~bathroom2~~ | | |

cleaning | | |

~~outside_lavatory~~ | |1 |

house1 |40 | |

~~attic~~ | |0.75 |

bedrooms | |0.25 |

~~kitchen~~ | |~~0.1~~ |

bathrooms | | |

~~living_rooms~~ | | |

bathroom1 | |0.5 |

~~lounge~~ | | |

bathroom2 | | |

~~dining_room~~ | | |

outside_lavatory | |1 |

~~conservatory~~ | | |

attic | |0.75 |

~~playroom~~ | |1 |

kitchen | |0.1 |

~~basement~~ | | |

living_rooms | | |

~~garage~~ | | |

lounge | | |

~~garden~~ | ~~|0.8~~ |

dining_room | | |

~~house2~~ ~~|60~~ | |

conservatory | | |

~~upstairs~~ | | |

playroom | |1 |

~~bedrooms~~ | | |

basement | | |

~~suite_1~~ | | |

garage | | |

~~suite_2~~ | | |

garden | |0.8 |

~~bedroom_3~~ | | |

house2 |60 | |

~~bedroom_4~~ | | |

upstairs | | |

~~bathroom~~ | | |

bedrooms | | |

~~toilet~~ | | |

suite_1 | | |

~~attics~~ | |~~0.6~~ |

suite_2 | | |

~~groundfloor~~ | | |

bedroom_3 | | |

~~kitchen~~ | | |

bedroom_4 | | |

~~living_rooms~~ | | |

bathroom | | |

~~lounge~~ | | |

toilet | | |

~~dining_room~~ | | |

attics | |0.6 |

~~conservatory~~ | | |

groundfloor | | |

~~playroom~~ | | |

kitchen | | |

~~wet_room_&_toilet~~ | | |

living_rooms | | |

~~garage~~ | | |

lounge | | |

~~garden~~ | ~~|0.9~~ |

dining_room | | |

~~hot_tub_suite~~ | |1 |

conservatory | | |

~~basement~~ | | |

playroom | | |

~~cellars~~ | |1 |

wet_room_&_toilet | | |

~~wine_cellar~~ | |1 |

garage | | |

~~cinema~~ | |0.75 |

garden | |0.9 |

hot_tub_suite | |1 |

"""

basement | | |

sequence lines = split(data,"\n",no_empty:=true),

pi = ~~{},~~ -- ~~indents~~ ~~(to~~ ~~locate~~ ~~parents)~~

cellars | |1 |

~~pdx~~ = ~~{},~~ -- ~~indexes~~ ~~for~~ ""

wine_cellar | |1 |

cinema | |0.75 |

children

"""

string desc, weights, covers

sequence lines = split(data,"\n"),

integer parent, child

pi = {}, -- indents (to locate parents)

atom weight, coverage, childw = 0

pdx = {}, -- indexes for ""

enum DESC, WEIGHT, COVERAGE, PARENT, CHILDREN, CHILDW

children

lines[1] &= " SHARE OF RESIDUE"

string desc, weights, covers

for i=2 to length(lines) do

integer parent, child

-- decode text to useable data, link up parents & children

atom weight, coverage, childw = 0

{desc,weights,covers} = split(lines[i],"|")

enum DESC, WEIGHT, COVERAGE, PARENT, CHILDREN, CHILDW

-- (nb this assumes /totally/ consistent indenting)

lines[1] &= " SHARE OF RESIDUE"

integer indent = length(desc)-length(trim_head(desc)),

for i=2 to length(lines) do

k = find(indent,pi)

-- decode text to useable data, link up parents & children

if k=0 then

{desc,weights,covers} = split(lines[i],"|")

pi = append(pi,indent)

-- (nb this assumes /totally/ consistent indenting)

pdx = append(pdx,0)

integer indent = length(desc)-length(trim_head(desc)),

k = length(pi)

k = find(indent,pi)

end if

if k=0 then

pdx[k] = i

pi = append(pi,indent)

parent = 0

pdx = append(pdx,0)

if k>1 then

k = length(pi)

parent = pdx[k-1]

end if

lines[parent][CHILDREN] &= i

pdx[k] = i

end if

parent = 0

children = {}

if k>1 then

weight = to_number(trim(weights),1)

parent = pdx[k-1]

coverage = to_number(trim(covers),0)

-- lines[parent][CHILDREN] &= i

lines[i] = {desc, weight, coverage, parent, children, childw}

lines[parent][CHILDREN] = deep_copy(lines[parent][CHILDREN]) & i

end for

end if

for i=length(lines) to 2 by -1 do

children = {}

-- calculate the parent coverages, and save child weight sums

weight = to_number(trim(weights),1)

children = lines[i][CHILDREN]

coverage = to_number(trim(covers),0)

if length(children) then

lines[i] = {desc, weight, coverage, parent, children, childw}

coverage = 0

end for

childw = 0

for i=length(lines) to 2 by -1 do

for c=1 to length(children) do

-- calculate the parent coverages, and save child weight sums

child = children[c]

children = lines[i][CHILDREN]

atom w = lines[child][WEIGHT]

if length(children) then

coverage += lines[child][COVERAGE]*w

coverage = 0

childw += w

childw = 0

end for

for c=1 to length(children) do

lines[i][COVERAGE] = coverage/childw

child = children[c]

lines[i][CHILDW] = childw -- (save for next loop)

atom w = lines[child][WEIGHT]

end if

coverage += lines[child][COVERAGE]*w

end for

childw += w

for i=length(lines) to 2 by -1 do

end for

-- calculate the share of residue, and format lines

lines[i][COVERAGE] = coverage/childw

child = i

lines[i][CHILDW] = childw -- (save for next loop)

{desc, weight, coverage, parent} = lines[i]

end if

atom residue = 1-coverage

end for

while parent do

for i=length(lines) to 2 by -1 do

residue *= lines[child][WEIGHT]/lines[parent][CHILDW]

-- calculate the share of residue, and format lines

{child, parent} = {parent, lines[parent][PARENT]}

child = i

end while

{desc, weight, coverage, parent} = lines[i]

lines[i] = sprintf("%-32s| %6d | %-8g | %g",{desc,weight,coverage,residue})

atom residue = 1-coverage

end for

while parent do

puts(1,join(lines,"\n")&"\n")</lang>

residue *= lines[child][WEIGHT]/lines[parent][CHILDW]

{child, parent} = {parent, lines[parent][PARENT]}

end while

lines[i] = sprintf("%-32s| %6d | %-8g | %g",{desc,weight,coverage,residue})

end for

puts(1,join(lines,"\n")&"\n")

{} = wait_key()

<pre>