ST 516 Experimental Statistics for Engineers II
The Fitted Response Surface
Graph the fitted surface and its standard error: response.R
1 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
The Fitted Response Surface Graph the fitted surface and its - - PowerPoint PPT Presentation
ST 516 Experimental Statistics for Engineers II The Fitted Response Surface Graph the fitted surface and its standard error: response.R 1 / 17 Response Surface Methods Analyzing a Second-Order Response Surface ST 516 Experimental Statistics
ST 516 Experimental Statistics for Engineers II
1 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time Temperature
7 4 75 75 75.5 7 5 . 5 76 76 7 6 . 5 76.5 77 77 77.5 7 8 7 8 . 5 78.5 79 79.5 80
78 80 82 84 86 88 90 92 168 170 172 174 176 178 180 182
2 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time 80 85 90 Temperature 170 175 180 Yield 74 76 78 80
3 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time Temperature
0.12 . 1 4 0.16 0.18 0.2 0.22 0.22 0.22 0.22 0.24 . 2 4 0.24 . 2 4 . 2 6 0.26 . 2 6 0.26 0.28 0.28 . 3 . 3 0.32 0.32 0.32 0.32
78 80 82 84 86 88 90 92 168 170 172 174 176 178 180 182
4 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time 80 85 90 Temperature 170 175 180 Standard Error 0.15 0.20 0.25 0.30 0.35
5 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
1 2 ˆ
1 2 ˆ
1 2 ˆ
1 2 ˆ
1 2 ˆ
1 2 ˆ
6 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
l <- lm(y ~ x1 + x2 + I(x1^2) + I(x2^2) + x1:x2, t11d6) lc <- coefficients(l) b <- lc[2:3] B <- matrix(c(lc[4], lc[6]/2, lc[6]/2, lc[5]), 2, 2) cat("Stationary point:", -solve(B, b) / 2, "\n")
Stationary point: 0.3892304 0.3058466
7 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
8 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
0 + β∗ 1,1
1
2,2
2
1,2
1
2
9 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
x10 <- (87 - 85) / 5 x20 <- (177 - 175) / 5 summary(aov(y ~ I((x1 - x10)^2) + I((x2 - x20)^2) + I((x1 - x10)*(x2 - x20)) + x1 + x2, t11d6))
Df Sum Sq Mean Sq F value Pr(>F) I((x1 - x10)^2) 1 18.901 18.901 266.553 7.88e-07 *** I((x2 - x20)^2) 1 8.681 8.681 122.423 1.09e-05 *** I((x1 - x10) * (x2 - x20)) 1 0.526 0.526 7.415 0.0296 * x1 1 0.004 0.004 0.057 0.8186 x2 1 0.134 0.134 1.895 0.2110 Residuals 7 0.496 0.071
0 *** 0.001 ** 0.01 * 0.05 . 0.1 1
10 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
1 + β1,2x1x2 + β2,2x2 2;
1
2
2
1
11 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
1
2
1
2
12 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
betaHat <- coefficients(l) V <- summary(l)$cov.unscaled msE <- summary(l)$sigma^2 L <- rbind(c(0, 1, 0, 2 * x10, 0, x20), c(0, 0, 1, 0, 2 * x20, x10)) LbetaHat <- L %*% betaHat ssL <- sum(LbetaHat * solve(L %*% V %*% t(L), LbetaHat)) msL <- ssL / 2 F <- msL / msE
13 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time Temperature
20 4 60 8 100 120 140
78 80 82 84 86 88 90 92 168 170 172 174 176 178 180 182
4.737414
14 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time 80 85 90 Temperature 170 175 180 F−Statistic 50 100 150
15 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
Time Temperature
5 1 15 2 2 5 25 3 3 35 3 5 40
86 87 88 89 90 175 176 177 178 179 180
4.737414
16 / 17 Response Surface Methods Analyzing a Second-Order Response Surface
ST 516 Experimental Statistics for Engineers II
17 / 17 Response Surface Methods Analyzing a Second-Order Response Surface