;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Demo program for FEDF StarPlot ;;; blood pressure data for girls ;;; (def f11 (list 110 116 106 112 120 102 116 108 106 106 86 118 98 100 82 110 108 102 102 106 108 98 88 92 108 94 98 108 98 92 96 90 92 92 94 100 96 128 98 84 100 86 104 112 100 100 84 100 110 118 84 74 86 98 86 106 106 86 96 88 110 86 86 102 90 104 110 90 108 104 124 96 102 116 92 114 102 116 102 96 86 102 116 88 96 100 92 100 90 88 106 92 94 102 120 98 94 80 100 100 90 104 106 112 108 84 100 104 92 98 86 88 102 92 86 88 106 90 90 106 100 88 102 94 98 90 104 112 106 82 86 90 88 108 116 106 112 120 90 96 92 106 104 100 108 86 104 96 108 96 86 108 106 96 98 100 80 96 96)) (def f21 (list 114 96 98 96 108 106 116 112 96 96 104 118 112 118 94 102 120 98 94 118 108 88 96 98 108 88 88 106 96 106 104 106 108 94 96 110 102 118 104 88 94 92 102 110 90 112 98 100 104 112 92 92 104 100 92 106 106 100 108 94 100 90 76 94 114 94 106 90 102 100 116 104 114 108 92 100 94 112 92 112 96 102 124 110 104 94 96 104 86 98 100 90 96 100 114 110 98 84 92 128 94 96 108 102 108 94 86 104 96 104 96 88 102 92 78 98 108 92 88 96 102 84 104 98 108 88 104 120 114 106 94 104 94 112 108 116 118 108 90 90 94 90 98 104 102 94 102 92 98 110 88 104 94 98 96 104 94 108 94)) (def f31 (list 102 102 110 104 112 96 118 122 108 100 110 118 100 116 74 102 116 106 86 104 112 96 94 96 98 100 98 102 98 108 104 92 108 104 98 114 92 112 94 88 98 98 104 108 92 114 106 108 112 116 98 92 96 118 100 98 104 102 108 88 104 88 82 92 114 94 110 102 110 102 114 122 108 94 92 104 98 130 104 108 94 96 134 112 94 94 98 106 86 110 94 90 90 104 102 118 90 96 108 124 96 98 128 114 112 104 98 94 100 106 110 96 110 104 86 114 108 90 90 94 98 98 94 96 104 94 114 108 112 104 112 108 104 118 102 114 118 118 98 94 100 110 106 88 118 108 106 108 124 116 102 120 126 118 96 106 104 128 104)) (def f41 (list 108 106 100 112 106 100 114 104 102 98 104 106 94 120 86 100 118 100 90 102 106 94 102 110 108 88 98 104 94 106 114 94 112 104 100 106 94 104 106 104 90 94 104 98 96 132 104 110 106 110 96 96 112 118 96 96 112 106 106 98 112 94 90 120 106 94 114 96 108 94 112 108 100 108 92 110 92 116 94 110 96 102 112 118 94 100 110 110 86 104 106 88 98 108 98 116 104 94 102 138 108 96 120 100 110 96 104 104 96 116 104 88 112 104 90 130 114 96 94 110 100 94 118 98 120 102 100 116 106 118 94 104 108 128 102 126 110 126 100 98 100 112 94 98 114 96 106 98 124 122 96 112 120 104 102 108 108 112 114)) (def f51 (list 108 128 106 110 116 92 126 104 100 108 108 116 116 120 96 102 118 106 90 110 114 116 118 116 100 84 110 118 100 124 116 112 106 110 110 92 100 108 134 110 110 100 104 114 102 126 112 118 120 120 108 96 108 134 98 106 102 130 116 104 126 106 90 114 130 90 130 116 120 114 110 102 116 118 116 100 98 136 104 116 96 98 128 124 104 116 116 110 100 110 110 100 98 120 104 136 128 98 112 134 124 104 130 120 120 104 100 106 116 120 120 104 128 110 104 120 114 102 100 120 106 96 112 114 106 106 112 116 112 102 94 92 98 120 104 124 122 118 100 98 98 104 108 106 116 96 96 98 110 112 88 116 124 114 92 96 100 116 122)) (def f61 (list 106 116 94 126 110 104 118 100 106 112 108 128 110 124 102 110 120 98 92 126 118 118 116 106 100 120 114 136 106 116 106 104 110 112 102 100 104 106 120 108 116 96 128 108 116 122 108 124 104 128 110 100 104 108 100 118 100 134 126 104 128 100 104 110 132 96 130 110 112 114 122 110 108 106 130 118 108 128 100 126 110 96 114 124 96 108 98 132 84 124 106 108 102 116 120 142 130 102 112 142 110 114 148 118 130 106 106 128 106 110 114 100 126 98 108 128 116 104 106 116 110 98 128 104 120 112 118 116 102 122 98 102 102 134 114 120 116 132 104 118 108 118 98 102 120 124 104 104 120 112 86 110 132 118 106 114 100 130 116)) (def f12 (list 110 114 100 98 120 86 120 96 100 102 92 110 106 112 86 108 122 94 94 108 104 72 58 88 108 84 86 104 88 88 92 86 86 64 82 100 82 110 90 88 96 94 104 84 78 104 84 86 106 96 84 72 80 92 92 94 78 88 92 76 94 72 90 90 88 84 108 88 100 100 112 86 116 106 90 98 104 116 90 94 90 92 102 100 80 94 84 90 80 86 100 76 84 92 98 94 82 82 100 102 86 92 108 98 104 82 80 78 72 98 90 84 100 102 80 88 100 86 88 100 80 88 94 92 92 92 80 102 114 98 90 104 84 96 110 110 88 120 82 84 98 106 98 98 114 80 102 92 90 106 84 100 104 94 92 98 70 92 96 )) (def f22 (list 100 98 94 94 108 96 118 102 90 98 96 104 110 112 92 106 116 96 92 110 104 86 96 92 104 82 94 102 96 102 104 102 108 94 90 108 98 112 104 88 92 92 100 108 96 112 86 96 100 112 92 88 100 100 96 100 98 96 104 90 104 88 80 92 110 92 102 92 98 96 112 106 112 104 90 96 92 112 92 110 92 94 120 114 98 86 96 100 84 98 102 88 96 94 104 110 96 84 94 124 92 94 106 104 104 92 92 102 96 104 98 84 100 90 74 102 100 92 84 98 102 84 104 92 104 90 108 118 112 116 96 102 92 114 106 122 116 108 78 96 96 104 98 108 104 96 102 90 100 112 84 102 102 98 94 102 94 110 94)) (def f32 (list 104 104 106 104 110 96 114 124 106 102 110 118 106 114 76 102 118 106 90 104 106 92 92 94 90 100 98 100 104 108 106 94 110 104 100 114 92 110 92 92 96 98 104 106 92 114 106 106 104 116 100 92 100 116 100 98 100 104 100 90 106 88 84 94 112 92 112 104 110 100 114 114 108 96 92 106 96 130 104 106 94 96 132 116 94 92 92 102 86 110 92 90 86 112 102 120 90 94 108 126 94 98 120 114 112 102 98 96 100 104 106 98 110 102 90 110 104 90 86 96 96 98 100 96 104 96 106 110 106 104 110 106 104 120 98 114 116 116 102 94 102 110 106 90 122 108 104 106 124 116 100 120 126 106 100 108 100 120 110 ) ) (def f42 (list 102 102 102 120 96 94 112 104 96 106 106 114 104 126 88 102 116 98 92 102 104 96 116 104 114 90 94 114 106 108 108 90 112 98 98 116 96 122 104 106 90 92 102 108 94 128 106 122 108 108 96 98 106 118 96 96 108 112 112 92 108 90 104 116 102 88 114 98 112 94 108 116 98 98 100 116 92 118 102 114 102 102 110 126 92 104 104 106 88 108 106 94 98 108 98 114 98 94 102 138 100 100 124 106 112 104 98 100 100 118 106 92 108 106 86 124 106 86 96 118 94 98 110 104 108 94 116 120 108 120 102 98 108 132 108 122 96 124 92 96 104 122 104 102 126 100 108 96 124 114 98 120 124 110 104 112 108 116 118)) (def f52 (list 106 124 104 108 120 88 124 96 96 110 108 120 116 118 96 98 120 110 92 106 118 114 118 118 98 92 114 114 96 110 104 108 108 108 108 94 98 116 132 110 108 100 98 114 102 128 112 118 120 120 110 98 106 134 102 104 100 130 114 106 136 110 90 114 130 104 130 114 110 110 122 104 110 112 118 110 100 126 104 114 94 104 124 120 104 110 116 114 100 112 110 100 98 120 106 136 120 96 110 132 120 100 142 112 122 104 100 112 118 122 110 102 126 120 116 114 114 98 106 118 110 94 116 104 104 104 112 118 96 106 94 100 96 132 100 114 118 116 98 106 98 104 100 104 110 102 96 90 116 120 88 114 124 112 90 104 100 116 118)) (def f62 (list 110 116 106 108 116 92 112 108 108 110 118 136 106 120 102 112 120 98 94 110 118 110 112 102 106 104 104 136 100 116 104 100 126 110 100 102 110 104 122 108 118 96 118 106 112 120 108 116 102 130 110 96 100 104 100 100 108 120 120 106 120 100 100 108 138 100 140 110 110 104 122 112 112 100 116 114 98 120 102 124 108 98 114 120 98 110 102 132 80 120 120 108 100 114 114 146 130 96 116 142 110 120 146 116 130 100 104 122 106 114 114 102 122 108 98 126 120 92 106 110 100 98 124 106 116 110 120 128 108 108 96 100 102 136 108 118 122 128 106 114 106 116 100 102 130 116 104 102 116 110 86 108 122 118 104 112 102 130 122 )) (def blood-var-labels (list "grade-1" "grade-2" "grade-3" "grade-4" "grade-5" "grade-6")) (def data1 (list f11 f21 f31 f41 f51 f61)) (def data2 (list f12 f22 f32 f42 f52 f62)) (def blood-data (* .5 (+ data1 data2))) (def blood-title "blood-pressure-girls") (star-plot blood-data :title blood-title :var-labels blood-var-labels)