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

import Bayes.Network
import Bayes.SVG

network :: Network ()
network = makeNetwork "Pattern" [node_ ans1,node_ ans1Strat,node_ ans1Strat1Step11,node_ ans1Strat1Step12,node_ ans1Strat1Step1Path,node_ ans1Strat1Step2,node_ ans1Strat1Step31,node_ ans1Strat1Step32,node_ ans1Strat1Step3Path,node_ ans1Strat1Step41,node_ ans1Strat1Step42,node_ ans1Strat1Step51,node_ ans1Strat1Step52,node_ ans1Strat1Step6,node_ ans1Strat2Step1,node_ ans1Strat2Step2,node_ ans1Strat2Step3,node_ ans1Strat3Step1,node_ ans1Strat3Step2,node_ ans1Strat3Step3,node_ ans1Strat3Step4,node_ ans1Strat3Step5,node_ r1211_T03,node_ r1213_T03,node_ r12_T03,node_ r13_T03,node_ r31_T03,node_ r323_T03,node_ r324_T03]

layout :: Layout
layout = [("Ans1",pt 567.0 714.0),("Ans1Strat3Step1",pt 845.0 101.0),("Ans1Strat3Step2",pt 848.0 235.0),("Ans1Strat3Step3",pt 851.0 371.0),("Ans1Strat",pt 607.0 30.0),("Ans1Strat1Step11",pt 253.0 58.0),("Ans1Strat1Step12",pt 427.0 178.0),("Ans1Strat1Step2",pt 261.0 197.0),("Ans1Strat1Step31",pt 97.0 295.0),("Ans1Strat1Step41",pt 99.0 382.0),("Ans1Strat2Step1",pt 645.0 124.0),("Ans1Strat2Step2",pt 645.0 375.0),("Ans1Strat2Step3",pt 644.0 615.0),("Ans1Strat3Step4",pt 853.0 496.0),("Ans1Strat1Step51",pt 102.0 474.0),("Ans1Strat1Step32",pt 427.0 290.0),("Ans1Strat1Step42",pt 428.0 382.0),("Ans1Strat1Step52",pt 428.0 473.0),("Ans1Strat3Step5",pt 851.0 640.0),("Ans1Strat1Step6",pt 272.0 642.0),("R1211_T03",pt 91.0 103.0),("R12_T03",pt 245.0 342.0),("R13_T03",pt 552.0 206.0),("R31_T03",pt 680.0 257.0),("R323_T03",pt 231.0 420.0),("R324_T03",pt 231.0 509.0),("R1213_T03",pt 96.0 169.0),("Ans1Strat1Step3Path",pt 260.0 271.0),("Ans1Strat1Step1Path",pt 429.0 89.0)]

ans1 :: Node Bool
ans1 = Node "Pattern_Ans1" "Final Answer" [("Correct", True),("Incorrect", False)] ["Pattern_Ans1Strat1Step6","Pattern_Ans1Strat2Step3","Pattern_Ans1Strat3Step5"] (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 "Pattern_Ans1Strat" "Solution Strategy" [("Algebraic", "Algebraic"),("Numeric1", "Numeric1"),("Numeric2", "Numeric2")] [] (CPT [0.8,0.15,4.999999999999996e-2])

ans1Strat1Step11 :: Node (Maybe Bool)
ans1Strat1Step11 = Node "Pattern_Ans1Strat1Step11" "n: pattern; G: tiles" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat","Pattern_Ans1Strat1Step1Path"] (CPT [0.595,0.395,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,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99])

ans1Strat1Step12 :: Node (Maybe Bool)
ans1Strat1Step12 = Node "Pattern_Ans1Strat1Step12" "Start: 4; Step: 3" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat","Pattern_Ans1Strat1Step1Path"] (CPT [5.0e-3,5.0e-3,0.99,0.395,0.595,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,5.0e-3,5.0e-3,0.99])

ans1Strat1Step1Path :: Node String
ans1Strat1Step1Path = Node "Pattern_Ans1Strat1Step1Path" "Solution Path" [("Variables", "Variables"),("No_variables", "No_variables")] [] (CPT [0.5,0.5])

ans1Strat1Step2 :: Node (Maybe Bool)
ans1Strat1Step2 = Node "Pattern_Ans1Strat1Step2" "G = 4 + 3n" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step11","Pattern_Ans1Strat1Step12"] (NoisyMax [0,1,2,0,1,2] [0.6,0.39,1.0e-2,0.1899999999999999,0.8,1.0e-2,0.0,0.0,1.0,0.6,0.39,1.0e-2,0.1899999999999999,0.8,1.0e-2,0.0,0.0,1.0,4.999999999999449e-4,4.999999999999449e-4,0.999])

ans1Strat1Step31 :: Node (Maybe Bool)
ans1Strat1Step31 = Node "Pattern_Ans1Strat1Step31" "4+3n = 50" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step2","Pattern_Ans1Strat1Step3Path"] (CPT [0.6,0.39,1.0e-2,5.0e-3,5.0e-3,0.99,0.19,0.8,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])

ans1Strat1Step32 :: Node (Maybe Bool)
ans1Strat1Step32 = Node "Pattern_Ans1Strat1Step32" "4+3n > 50" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step2","Pattern_Ans1Strat1Step3Path"] (CPT [5.0e-3,5.0e-3,0.99,0.6,0.39,1.0e-2,5.0e-3,5.0e-3,0.99,0.19,0.8,1.0e-2,5.0e-3,5.0e-3,0.99,5.0e-3,5.0e-3,0.99])

ans1Strat1Step3Path :: Node String
ans1Strat1Step3Path = Node "Pattern_Ans1Strat1Step3Path" "Solution Path" [("Equation", "Equation"),("Inequality", "Inequality")] [] (CPT [0.8,0.2])

ans1Strat1Step41 :: Node (Maybe Bool)
ans1Strat1Step41 = Node "Pattern_Ans1Strat1Step41" "3n = 46" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step31"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step42 :: Node (Maybe Bool)
ans1Strat1Step42 = Node "Pattern_Ans1Strat1Step42" "3n > 46" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step32"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step51 :: Node (Maybe Bool)
ans1Strat1Step51 = Node "Pattern_Ans1Strat1Step51" "n = 15.33" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step41"] (CPT [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat1Step52 :: Node (Maybe Bool)
ans1Strat1Step52 = Node "Pattern_Ans1Strat1Step52" "n > 15.33" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step42"] (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 "Pattern_Ans1Strat1Step6" "Answer: \"16\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat1Step51","Pattern_Ans1Strat1Step52"] (NoisyMax [0,1,2,0,1,2] [0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,0.0,0.0,1.0,0.8,0.19,1.0e-2,0.39,0.6,1.0e-2,0.0,0.0,1.0,4.999999999999449e-4,4.999999999999449e-4,0.999])

ans1Strat2Step1 :: Node (Maybe Bool)
ans1Strat2Step1 = Node "Pattern_Ans1Strat2Step1" "try <n> < 16 (7,10,...)" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat"] (CPT [5.0e-3,5.0e-3,0.99,0.595,0.395,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat2Step2 :: Node (Maybe Bool)
ans1Strat2Step2 = Node "Pattern_Ans1Strat2Step2" "try <n> == 16 (52)" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_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 "Pattern_Ans1Strat2Step3" "Answer: \"16\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat2Step2"] (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 "Pattern_Ans1Strat3Step1" "Start: 7; Step: 3" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_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])

ans1Strat3Step2 :: Node (Maybe Bool)
ans1Strat3Step2 = Node "Pattern_Ans1Strat3Step2" "50-7=43" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat3Step1"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step3 :: Node (Maybe Bool)
ans1Strat3Step3 = Node "Pattern_Ans1Strat3Step3" "43/3=14.3" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat3Step2"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step4 :: Node (Maybe Bool)
ans1Strat3Step4 = Node "Pattern_Ans1Strat3Step4" "14.3+1=15.3" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat3Step3"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

ans1Strat3Step5 :: Node (Maybe Bool)
ans1Strat3Step5 = Node "Pattern_Ans1Strat3Step5" "Answer: \"16\"" [("Correct", Just True),("Incorrect", Just False),("Not_taken", Nothing)] ["Pattern_Ans1Strat3Step4"] (CPT [0.7,0.29,1.0e-2,0.29,0.7,1.0e-2,5.0e-3,5.0e-3,0.99])

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

r1213_T03 :: Node Bool
r1213_T03 = Node "R1213_T03" "Set up linear model" [("Yes", True),("No", False)] ["Pattern_Ans1Strat1Step2"] (NoisyAdder [1,2] [1.0,0.1] [0.8,0.2,0.4,0.6,0.0,1.0,0.5,0.5])

r12_T03 :: Node Bool
r12_T03 = Node "R12_T03" "Set up algebraic equations" [("Yes", True),("No", False)] ["Pattern_Ans1Strat1Step31"] (NoisyAdder [1,2] [1.0,0.1] [0.8,0.2,0.4,0.6,0.0,1.0,0.5,0.5])

r13_T03 :: Node Bool
r13_T03 = Node "R13_T03" "Set up algebraic inequalities" [("Yes", True),("No", False)] ["Pattern_Ans1Strat1Step32"] (NoisyAdder [1,2] [1.0,0.1] [0.8,0.2,0.4,0.6,0.0,1.0,0.5,0.5])

r31_T03 :: Node Bool
r31_T03 = Node "R31_T03" "Use numerical expressions" [("Yes", True),("No", False)] ["Pattern_Ans1Strat2Step1","Pattern_Ans1Strat2Step2","Pattern_Ans1Strat3Step2","Pattern_Ans1Strat3Step3","Pattern_Ans1Strat3Step4"] (NoisyAdder [1,2,2,2,2,2] [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.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])

r323_T03 :: Node Bool
r323_T03 = Node "R323_T03" "Simplify by addition and subtraction" [("Yes", True),("No", False)] ["Pattern_Ans1Strat1Step41","Pattern_Ans1Strat1Step42"] (NoisyAdder [1,2,2] [1.0,1.5,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.5,0.5])

r324_T03 :: Node Bool
r324_T03 = Node "R324_T03" "Simplify by multiplication and division" [("Yes", True),("No", False)] ["Pattern_Ans1Strat1Step51","Pattern_Ans1Strat1Step52"] (NoisyAdder [1,2,2] [1.0,1.5,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.5,0.5])