-- generated code: do not change
module Task.Network.Matryoshka where

import Bayes.Network
import Bayes.SVG

network :: Network ()
network = makeNetwork "Matryoshka" [node_ ans1,node_ ans1Strat,node_ ans1Strat1Step1,node_ ans1Strat1Step2,node_ ans1Strat1Step3,node_ ans1Strat1Step4,node_ ans1Strat1Step5,node_ ans1Strat2Step1,node_ ans1Strat2Step2,node_ ans1Strat2Step3,node_ ans1Strat2Step4,node_ ans1Strat2Step5,node_ ans1Strat2Step6,node_ ans1Strat3Step1,node_ ans1Strat3Step10,node_ ans1Strat3Step11,node_ ans1Strat3Step2,node_ ans1Strat3Step3,node_ ans1Strat3Step4,node_ ans1Strat3Step5,node_ ans1Strat3Step6,node_ ans1Strat3Step7,node_ ans1Strat3Step8,node_ ans1Strat3Step9,node_ r11_T10,node_ r11_T10_P1,node_ r11_T10_P2,node_ r1211_T10,node_ r1215_T10,node_ r31_T10,node_ r31_T10_P1,node_ r31_T10_P2,node_ r321_T10]

layout :: Layout
layout = [("Ans1",pt 388.0 895.0),("Ans1Strat1Step1",pt 290.0 148.0),("Ans1Strat1Step2",pt 288.0 316.0),("Ans1Strat1Step3",pt 288.0 483.0),("Ans1Strat1Step4",pt 289.0 658.0),("Ans1Strat",pt 510.0 60.0),("Ans1Strat2Step1",pt 476.0 195.0),("Ans1Strat2Step2",pt 473.0 292.0),("Ans1Strat2Step3",pt 476.0 400.0),("Ans1Strat2Step4",pt 478.0 509.0),("Ans1Strat2Step5",pt 479.0 624.0),("Ans1Strat3Step1",pt 667.0 116.0),("Ans1Strat3Step2",pt 821.0 154.0),("Ans1Strat3Step3",pt 962.0 202.0),("Ans1Strat3Step4",pt 1002.0 301.0),("Ans1Strat3Step5",pt 1043.0 400.0),("Ans1Strat3Step6",pt 1040.0 499.0),("Ans1Strat3Step7",pt 1020.0 607.0),("Ans1Strat1Step5",pt 292.0 757.0),("Ans1Strat2Step6",pt 479.0 734.0),("Ans1Strat3Step8",pt 976.0 705.0),("Ans1Strat3Step9",pt 896.0 802.0),("Ans1Strat3Step10",pt 712.0 875.0),("Ans1Strat3Step11",pt 555.0 923.0),("R1211_T10",pt 194.0 227.0),("R11_T10",pt 649.0 388.0),("R31_T10",pt 629.0 690.0),("R321_T10",pt 208.0 567.0),("R1215_T10",pt 187.0 384.0),("R11_T10_P1",pt 631.0 258.0),("R11_T10_P2",pt 816.0 296.0),("R31_T10_P1",pt 656.0 553.0),("R31_T10_P2",pt 822.0 558.0)]

ans1 :: Node Bool
ans1 = Node "Matryoshka_Ans1" "Final Answer" [("Correct", True),("Incorrect", False)] ["Matryoshka_Ans1Strat1Step5","Matryoshka_Ans1Strat2Step6","Matryoshka_Ans1Strat3Step11"] (NoisyMax [0,1,2,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,0.8,0.2,9.999999999999998e-2,0.9,0.0,1.0,9.999999999999998e-2,0.9])

ans1Strat :: Node String
ans1Strat = Node "Matryoshka_Ans1Strat" "Solution Strategy" [("Algebraic", "Algebraic"),("Numerical1", "Numerical1"),("Numerical2", "Numerical2")] [] (CPT [0.32,0.28,0.4])

ans1Strat1Step1 :: Node (Maybe Bool)
ans1Strat1Step1 = Node "Matryoshka_Ans1Strat1Step1" "h: height; n: number" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat"] (CPT [0.595,0.395,1.0e-2,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99])

ans1Strat1Step2 :: Node (Maybe Bool)
ans1Strat1Step2 = Node "Matryoshka_Ans1Strat1Step2" "h(n)=32*0,75^(n-1)" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat1Step1"] (CPT [0.6,0.39,1.0e-2,0.19,0.8,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step3 :: Node (Maybe Bool)
ans1Strat1Step3 = Node "Matryoshka_Ans1Strat1Step3" "Try <n> != 6" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat1Step2"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step4 :: Node (Maybe Bool)
ans1Strat1Step4 = Node "Matryoshka_Ans1Strat1Step4" "Try <n> == 6" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat1Step3"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step5 :: Node (Maybe Bool)
ans1Strat1Step5 = Node "Matryoshka_Ans1Strat1Step5" "Answer: \"5\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat1Step4"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step1 :: Node (Maybe Bool)
ans1Strat2Step1 = Node "Matryoshka_Ans1Strat2Step1" "2nd: 32*0.75=24" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,0.495,0.495,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step2 :: Node (Maybe Bool)
ans1Strat2Step2 = Node "Matryoshka_Ans1Strat2Step2" "3d: 24*0.75=18" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat2Step1"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step3 :: Node (Maybe Bool)
ans1Strat2Step3 = Node "Matryoshka_Ans1Strat2Step3" "4th: 18*0.75=13.5" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat2Step2"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step4 :: Node (Maybe Bool)
ans1Strat2Step4 = Node "Matryoshka_Ans1Strat2Step4" "5th: 13.5*0.75=10.125" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat2Step3"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step5 :: Node (Maybe Bool)
ans1Strat2Step5 = Node "Matryoshka_Ans1Strat2Step5" "6th: 10.125*0.75=7.594" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat2Step4"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step6 :: Node (Maybe Bool)
ans1Strat2Step6 = Node "Matryoshka_Ans1Strat2Step6" "Answer: \"5\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat2Step5"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step1 :: Node (Maybe Bool)
ans1Strat3Step1 = Node "Matryoshka_Ans1Strat3Step1" "32*25/100=8" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99,0.595,0.395,1.0e-2])

ans1Strat3Step10 :: Node (Maybe Bool)
ans1Strat3Step10 = Node "Matryoshka_Ans1Strat3Step10" "6th: 10.125-2.531=7.594" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step9"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step11 :: Node (Maybe Bool)
ans1Strat3Step11 = Node "Matryoshka_Ans1Strat3Step11" "Answer: \"5\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step10"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step2 :: Node (Maybe Bool)
ans1Strat3Step2 = Node "Matryoshka_Ans1Strat3Step2" "2nd: 32-8=24" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step1"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step3 :: Node (Maybe Bool)
ans1Strat3Step3 = Node "Matryoshka_Ans1Strat3Step3" "24*25/100=6" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step2"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step4 :: Node (Maybe Bool)
ans1Strat3Step4 = Node "Matryoshka_Ans1Strat3Step4" "3d: 24-6=18" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step3"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step5 :: Node (Maybe Bool)
ans1Strat3Step5 = Node "Matryoshka_Ans1Strat3Step5" "18*25/100=4.5" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step4"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step6 :: Node (Maybe Bool)
ans1Strat3Step6 = Node "Matryoshka_Ans1Strat3Step6" "4th: 18-4.5=13.5" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step5"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step7 :: Node (Maybe Bool)
ans1Strat3Step7 = Node "Matryoshka_Ans1Strat3Step7" "13.5*25/100=3.375" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step6"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step8 :: Node (Maybe Bool)
ans1Strat3Step8 = Node "Matryoshka_Ans1Strat3Step8" "5th: 13.5-3.375=10.125" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step7"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step9 :: Node (Maybe Bool)
ans1Strat3Step9 = Node "Matryoshka_Ans1Strat3Step9" "10.125*25/100=2.531" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Matryoshka_Ans1Strat3Step8"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

r11_T10 :: Node Bool
r11_T10 = Node "R11_T10" "Set up numerical expressions" [("Yes", True),("No", False)] ["R11_T10_P1","R11_T10_P2"] (CPT [1.0,0.0,0.5,0.5,0.5,0.5,0.0,1.0])

r11_T10_P1 :: Node Bool
r11_T10_P1 = Node "R11_T10_P1" "Set up numeric expressions (part 1)" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat2Step1","Matryoshka_Ans1Strat2Step2","Matryoshka_Ans1Strat2Step3","Matryoshka_Ans1Strat2Step4","Matryoshka_Ans1Strat2Step5"] (NoisyAdder [1,2,2,2,2,2] [1.0,1.0,1.0,1.0,1.0,0.1] [0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.5,0.5])

r11_T10_P2 :: Node Bool
r11_T10_P2 = Node "R11_T10_P2" "Set up numeric expressions (part 2)" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat3Step1","Matryoshka_Ans1Strat3Step2","Matryoshka_Ans1Strat3Step3","Matryoshka_Ans1Strat3Step4","Matryoshka_Ans1Strat3Step5","Matryoshka_Ans1Strat3Step6","Matryoshka_Ans1Strat3Step7","Matryoshka_Ans1Strat3Step8","Matryoshka_Ans1Strat3Step9","Matryoshka_Ans1Strat3Step10"] (NoisyAdder [1,2,2,2,2,2,2,2,2,2,2] [1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.1] [0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.5,0.5])

r1211_T10 :: Node Bool
r1211_T10 = Node "R1211_T10" "Choose variables" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat1Step1"] (NoisyAdder [1,2] [1.0,0.1] [0.6,0.4,0.2,0.8,0.0,1.0,0.5,0.5])

r1215_T10 :: Node Bool
r1215_T10 = Node "R1215_T10" "Set up exponential model" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat1Step2"] (NoisyAdder [1,2] [1.0,0.1] [0.8,0.2,0.4,0.6,0.0,1.0,0.5,0.5])

r31_T10 :: Node Bool
r31_T10 = Node "R31_T10" "Use numerical expressions" [("Yes", True),("No", False)] ["R31_T10_P1","R31_T10_P2"] (CPT [1.0,0.0,0.5,0.5,0.5,0.5,0.0,1.0])

r31_T10_P1 :: Node Bool
r31_T10_P1 = Node "R31_T10_P1" "Use numeric expressions (part 1)" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat2Step5","Matryoshka_Ans1Strat2Step4","Matryoshka_Ans1Strat2Step3","Matryoshka_Ans1Strat2Step2","Matryoshka_Ans1Strat2Step1"] (NoisyAdder [1,2,2,2,2,2] [1.0,1.0,1.0,1.0,1.0,0.1] [0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.5,0.5])

r31_T10_P2 :: Node Bool
r31_T10_P2 = Node "R31_T10_P2" "Use numeric expressions (part 2)" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat3Step10","Matryoshka_Ans1Strat3Step9","Matryoshka_Ans1Strat3Step8","Matryoshka_Ans1Strat3Step7","Matryoshka_Ans1Strat3Step6","Matryoshka_Ans1Strat3Step5","Matryoshka_Ans1Strat3Step4","Matryoshka_Ans1Strat3Step2","Matryoshka_Ans1Strat3Step1","Matryoshka_Ans1Strat3Step3"] (NoisyAdder [1,2,2,2,2,2,2,2,2,2,2] [1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.1] [0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.5,0.5])

r321_T10 :: Node Bool
r321_T10 = Node "R321_T10" "Substitute" [("Yes", True),("No", False)] ["Matryoshka_Ans1Strat1Step3","Matryoshka_Ans1Strat1Step4"] (NoisyAdder [1,2,2] [1.0,1.0,0.1] [0.7,0.3,0.3,0.7,0.0,1.0,0.7,0.3,0.3,0.7,0.0,1.0,0.5,0.5])