module Task.Network.AreaAndExpression where
import Bayes.Network
import Bayes.SVG
network :: Network ()
network = makeNetwork "AreaAndExpression" [node_ ans1,node_ ans1Strat,node_ ans1Strat1Step11,node_ ans1Strat1Step12,node_ r1212_T09]
layout :: Layout
layout = [("Ans1",pt 247.0 275.0),("R1212_T09",pt 249.0 161.0),("Ans1Strat1Step11",pt 102.0 125.0),("Ans1Strat1Step12",pt 449.0 131.0),("Ans1Strat",pt 263.0 44.0)]
ans1 :: Node Bool
ans1 = Node "AreaAndExpression_Ans1" "Final Answer" [("Correct", True),("Incorrect", False)] ["AreaAndExpression_Ans1Strat1Step11","AreaAndExpression_Ans1Strat1Step12"] (NoisyMax [0,1,2,0,1,2] [0.8,0.2,9.999999999999998e-2,0.9,0.0,1.0,0.8,0.2,9.999999999999998e-2,0.9,0.0,1.0,9.999999999999998e-2,0.9])
ans1Strat :: Node String
ans1Strat = Node "AreaAndExpression_Ans1Strat" "Solution Strategy" [("L_shape", "L_shape"),("T_shape", "T_shape")] [] (CPT [0.5,0.5])
ans1Strat1Step11 :: Node (Maybe Bool)
ans1Strat1Step11 = Node "AreaAndExpression_Ans1Strat1Step11" "Answer (0,1,0; 0,1,1; 0,1,0)" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["AreaAndExpression_Ans1Strat"] (CPT [0.245,0.745,1.0e-2,5.0e-3,5.0e-3,0.99])
ans1Strat1Step12 :: Node (Maybe Bool)
ans1Strat1Step12 = Node "AreaAndExpression_Ans1Strat1Step12" "Answer: (0,0,0; 1,1,1; 0,1,0)" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["AreaAndExpression_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,0.245,0.745,1.0e-2])
r1212_T09 :: Node Bool
r1212_T09 = Node "R1212_T09" "Set up geometric model" [("Yes", True),("No", False)] ["AreaAndExpression_Ans1Strat1Step11","AreaAndExpression_Ans1Strat1Step12"] (NoisyAdder [1,2,2] [1.0,1.0,0.1] [0.8,0.2,0.4,0.6,0.0,1.0,0.8,0.2,0.4,0.6,0.0,1.0,0.5,0.5])