(defun demo-task3 ()
  (do32))

(defun do32 ()
  (let ((charts) (num 3))
    ;size(3, 300) culture(0, 100) criticality(0, 4) dynamisim(0, 40) team-alpha(0, .35)
    (clampValue '((size 30) (culture 20) (criticality 0) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 0) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 0) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 0) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 4) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 4) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 4) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 20) (criticality 4) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 0) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 0) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 0) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 0) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 4) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 4) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 4) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 30) (culture 80) (criticality 4) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 0) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 0) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 0) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 0) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 4) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 4) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 4) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 20) (criticality 4) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 0) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 0) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 0) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 0) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 4) (dynamisim 3) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 4) (dynamisim 3) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 4) (dynamisim 35) (team-alpha 0.05)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (clampValue '((size 200) (culture 80) (criticality 4) (dynamisim 35) (team-alpha .35)) :reset t) (multiple-value-bind (chartrandom number) (POM2 num t) (push (list chartrandom number (getClamp)) charts))
    (makeChartFile charts)))
      
(defun makeChartFile (charts)
  (with-open-file (out "/home/bryanl/public_html/AI/index.html" :direction :output :if-exists :supersede :if-does-not-exist :create)
    (format out "<html><head><title>POM2 Charts</title></head><body><h1>POM2 Charts</h1><a href='index2.html'>See POM1 Charts</a><hr />")
    
    (dolist (chart charts)
      (format out "Static Values: ")
      (dolist (clamp (third chart))
	(format out "~A=~A, " (first clamp) (second clamp)))
      (format out "<br />")
      (dotimes (x (second chart))
	(format out "<a href='http://csee.wvu.edu/~~bryanl/AI/AI-chart-~A-~A.png'><img height='33%' width='33%' border='0' src='http://csee.wvu.edu/~~bryanl/AI/AI-chart-~A-~A.png' /></a>" 
		(first chart) (1+ x) (first chart) (1+ x)))
      (format out "<hr />"))

    (format out "</body></html>")))