data/Problem5.9.R

Problem5.9 <- data.frame(
	"DepthOfCut" = c(
		0.15,
		0.15,
		0.15,
		0.18,
		0.18,
		0.18,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.15,
		0.15,
		0.15,
		0.18,
		0.18,
		0.18,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.15,
		0.15,
		0.15,
		0.18,
		0.18,
		0.18,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25
	),
	"FeedRate" = c(
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3,
		0.3
	),
	"SurfaceFinish" = c(
		74,
		64,
		60,
		79,
		68,
		73,
		82,
		88,
		92,
		99,
		104,
		96,
		92,
		86,
		88,
		98,
		104,
		88,
		99,
		108,
		95,
		104,
		110,
		99,
		99,
		98,
		102,
		104,
		99,
		95,
		108,
		110,
		99,
		114,
		107,
		111
	))
ehassler/MontgomeryDAE documentation built on March 20, 2021, 7:08 p.m.