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

import Bayes.Network
import Bayes.SVG

network :: Network ()
network = makeNetwork "MagicTrick" [node_ ans1,node_ ans1Strat,node_ ans1Strat1Step1,node_ ans1Strat1Step2,node_ ans1Strat1Step3,node_ ans1Strat1Step4,node_ ans1Strat1Step5,node_ ans1Strat1Step6,node_ ans1Strat2Step1,node_ ans1Strat2Step2,node_ ans1Strat2Step3,node_ ans1Strat2Step4,node_ ans1Strat2Step5,node_ ans1Strat2Step6,node_ ans1Strat2Step7,node_ ans1Strat3Step1,node_ ans1Strat3Step2,node_ ans1Strat4Step1,node_ ans1Strat4Step2,node_ ans1Strat4Step3,node_ ans1Strat4Step4,node_ ans1Strat4Step5,node_ ans1Strat4Step6,node_ ans1Strat4Step7,node_ r11_T05,node_ r1211_T05,node_ r121_T05,node_ r31_T05,node_ r3221_T05,node_ r3223_T05]

layout :: Layout
layout = [("Ans1",pt 488.0 757.0),("Ans1Strat1Step2",pt 57.0 193.0),("Ans1Strat1Step3",pt 58.0 306.0),("Ans1Strat1Step4",pt 57.0 426.0),("Ans1Strat1Step5",pt 59.0 545.0),("Ans1Strat1Step6",pt 62.0 664.0),("Ans1Strat",pt 506.0 38.0),("Ans1Strat2Step1",pt 356.0 99.0),("Ans1Strat2Step2",pt 354.0 198.0),("Ans1Strat2Step3",pt 358.0 293.0),("Ans1Strat2Step4",pt 356.0 389.0),("Ans1Strat2Step5",pt 359.0 483.0),("Ans1Strat3Step1",pt 504.0 145.0),("Ans1Strat3Step2",pt 501.0 629.0),("Ans1Strat4Step1",pt 718.0 100.0),("Ans1Strat4Step2",pt 721.0 204.0),("Ans1Strat4Step3",pt 721.0 305.0),("Ans1Strat4Step4",pt 722.0 406.0),("Ans1Strat4Step5",pt 720.0 497.0),("Ans1Strat2Step6",pt 356.0 578.0),("Ans1Strat2Step7",pt 358.0 680.0),("Ans1Strat4Step6",pt 722.0 592.0),("Ans1Strat4Step7",pt 724.0 696.0),("R1211_T05",pt 205.0 167.0),("R11_T05",pt 559.0 277.0),("R31_T05",pt 554.0 453.0),("R3221_T05",pt 199.0 399.0),("R121_T05",pt 183.0 278.0),("R3223_T05",pt 194.0 513.0),("Ans1Strat1Step1",pt 58.0 83.0)]

ans1 :: Node Bool
ans1 = Node "MagicTrick_Ans1" "Final Answer" [("Correct", True),("Incorrect", False)] ["MagicTrick_Ans1Strat1Step6","MagicTrick_Ans1Strat2Step7","MagicTrick_Ans1Strat3Step2","MagicTrick_Ans1Strat4Step7"] (NoisyMax [0,1,2,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,0.8,0.2,9.999999999999998e-2,0.9,0.0,1.0,6.999999999999995e-2,0.93])

ans1Strat :: Node String
ans1Strat = Node "MagicTrick_Ans1Strat" "Solution Strategy" [("Algebraic1", "Algebraic1"),("Algebraic2", "Algebraic2"),("Numeric1", "Numeric1"),("Numeric2", "Numeric2")] [] (CPT [0.28,0.27,0.15,0.3])

ans1Strat1Step1 :: Node (Maybe Bool)
ans1Strat1Step1 = Node "MagicTrick_Ans1Strat1Step1" "x - variable" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat"] (CPT [0.495,0.495,1.0e-2,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99])

ans1Strat1Step2 :: Node (Maybe Bool)
ans1Strat1Step2 = Node "MagicTrick_Ans1Strat1Step2" "((x+8)*3-4+x)/4+2-x" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_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 "MagicTrick_Ans1Strat1Step3" "(3x+24-4+x)/4+2-x" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_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 "MagicTrick_Ans1Strat1Step4" "(4x+20)/4+2-x" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat1Step3"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

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

ans1Strat1Step6 :: Node (Maybe Bool)
ans1Strat1Step6 = Node "MagicTrick_Ans1Strat1Step6" "Answer: \"7\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat1Step5"] (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 "MagicTrick_Ans1Strat2Step1" "x+8" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_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,5.0e-3,5.0e-3,0.99])

ans1Strat2Step2 :: Node (Maybe Bool)
ans1Strat2Step2 = Node "MagicTrick_Ans1Strat2Step2" "(x+8)*3=3x+24" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat2Step1"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step3 :: Node (Maybe Bool)
ans1Strat2Step3 = Node "MagicTrick_Ans1Strat2Step3" "3x+24-4=3x+20" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat2Step2"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step4 :: Node (Maybe Bool)
ans1Strat2Step4 = Node "MagicTrick_Ans1Strat2Step4" "3x+20+x=4x+20" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_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 "MagicTrick_Ans1Strat2Step5" "(4x+20)/4=x+5" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat2Step4"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step6 :: Node (Maybe Bool)
ans1Strat2Step6 = Node "MagicTrick_Ans1Strat2Step6" "x+5+2=x+7" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat2Step5"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step7 :: Node (Maybe Bool)
ans1Strat2Step7 = Node "MagicTrick_Ans1Strat2Step7" "Answer: \"x+7-x=7\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat2Step6"] (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 "MagicTrick_Ans1Strat3Step1" "((<n>+8)*3-4+<n>)/4+2-<n>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99,0.495,0.495,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step2 :: Node (Maybe Bool)
ans1Strat3Step2 = Node "MagicTrick_Ans1Strat3Step2" "answer: \"7\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat3Step1"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step1 :: Node (Maybe Bool)
ans1Strat4Step1 = Node "MagicTrick_Ans1Strat4Step1" "<n>+8=<a1>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99,0.595,0.395,1.0e-2])

ans1Strat4Step2 :: Node (Maybe Bool)
ans1Strat4Step2 = Node "MagicTrick_Ans1Strat4Step2" "<a1>*3=<a2>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step1"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step3 :: Node (Maybe Bool)
ans1Strat4Step3 = Node "MagicTrick_Ans1Strat4Step3" "<a2>-4=<a3>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step2"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step4 :: Node (Maybe Bool)
ans1Strat4Step4 = Node "MagicTrick_Ans1Strat4Step4" "<a3>+<n>=<a4>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step3"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step5 :: Node (Maybe Bool)
ans1Strat4Step5 = Node "MagicTrick_Ans1Strat4Step5" "<a4>/4=<a5>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step4"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step6 :: Node (Maybe Bool)
ans1Strat4Step6 = Node "MagicTrick_Ans1Strat4Step6" "<a5>+2=<a6>" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step5"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat4Step7 :: Node (Maybe Bool)
ans1Strat4Step7 = Node "MagicTrick_Ans1Strat4Step7" "Answer: \"<a6>-<n>=7\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["MagicTrick_Ans1Strat4Step6"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

r11_T05 :: Node Bool
r11_T05 = Node "R11_T05" "Set up numerical expressions" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat3Step1","MagicTrick_Ans1Strat4Step1","MagicTrick_Ans1Strat4Step2","MagicTrick_Ans1Strat4Step3","MagicTrick_Ans1Strat4Step4","MagicTrick_Ans1Strat4Step5","MagicTrick_Ans1Strat4Step6","MagicTrick_Ans1Strat4Step7"] (NoisyAdder [1,2,2,2,2,2,2,2,2] [1.0,1.0,1.0,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.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_T05 :: Node Bool
r1211_T05 = Node "R1211_T05" "Choose variables" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat1Step1","MagicTrick_Ans1Strat2Step1"] (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])

r121_T05 :: Node Bool
r121_T05 = Node "R121_T05" "Set up algebraic expressions" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat2Step1","MagicTrick_Ans1Strat1Step2","MagicTrick_Ans1Strat2Step2","MagicTrick_Ans1Strat2Step3","MagicTrick_Ans1Strat2Step4","MagicTrick_Ans1Strat2Step5","MagicTrick_Ans1Strat2Step6","MagicTrick_Ans1Strat2Step7"] (NoisyAdder [1,2,2,2,2,2,2,2,2] [1.0,1.0,1.0,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.8,0.2,0.4,0.6,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.7,0.3,0.3,0.7,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])

r31_T05 :: Node Bool
r31_T05 = Node "R31_T05" "Use numerical expressions" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat2Step3","MagicTrick_Ans1Strat2Step6","MagicTrick_Ans1Strat3Step2","MagicTrick_Ans1Strat4Step1","MagicTrick_Ans1Strat4Step2","MagicTrick_Ans1Strat4Step3","MagicTrick_Ans1Strat4Step4","MagicTrick_Ans1Strat4Step5","MagicTrick_Ans1Strat4Step6","MagicTrick_Ans1Strat4Step7"] (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.7,0.3,0.3,0.7,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])

r3221_T05 :: Node Bool
r3221_T05 = Node "R3221_T05" "Expand expressions" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat1Step3","MagicTrick_Ans1Strat2Step2","MagicTrick_Ans1Strat2Step5","MagicTrick_Ans1Strat1Step5"] (NoisyAdder [1,2,2,2,2] [1.0,1.0,1.0,1.0,0.1] [0.7,0.3,0.3,0.7,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])

r3223_T05 :: Node Bool
r3223_T05 = Node "R3223_T05" "Combine like terms" [("Yes", True),("No", False)] ["MagicTrick_Ans1Strat1Step4","MagicTrick_Ans1Strat1Step6","MagicTrick_Ans1Strat2Step4","MagicTrick_Ans1Strat2Step7"] (NoisyAdder [1,2,2,2,2] [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.7,0.3,0.3,0.7,0.0,1.0,0.6,0.4,0.2,0.8,0.0,1.0,0.5,0.5])