(*
Bank 002
*)
(*
by Tom De Vries
*)
(*
The question generators in this package ask about simple geometric terms and \
definitions. These are all static problems
*)
(*
Setup and usage messages
*)
Off[General::spell];
Off[General::spell1];
(*
Set up the package context, including public imports
*)
BeginPackage["TMKR`Bank2`",
"TMKR`Setup`"];
(*
Usage messages for the exported functions and the context itself
*)
Bank2::usage = "Bank2.m is a package that has questions that ask about simple \
geometric terms and definitions. These are all static problems
.";
bank2::usage = "bank2[]will choose a question at random from bank2, \
bank2[question#] will run question # in bank2, bank2[{questionlist}]
will choose a number at random from question list and run that question from
bank1. There are 34 questions.";
(*
Implementation
*)
(*
Begin the private context
*)
Begin["`Private`"];
(*
Question generators
*)
(*
bank2[]
*)
bank2[] := bank2[Random[Integer, {1,34}]]
SetAttributes[bank2, Listable]
(*
bank2[1]
*)
bank2[1] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with three sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with three sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
triangle"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
1"
}], "Text"]];
]
(*
bank2[2]
*)
bank2[2] := Module[{}, qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with four sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with four sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
quadrilateral"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
2"
}], "Text"]];
]
(*
bank2[3]
*)
bank2[3] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with five sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with five sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
pentagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
3"
}], "Text"]];
]
(*
bank2[4]
*)
bank2[4] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with six sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with six sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
hexagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
4"
}], "Text"]];
]
(*
bank2[5]
*)
bank2[5] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with seven sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with seven sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
heptagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
5"
}], "Text"]];
NotebookWrite[response, Cell[TextData[{qnum, ".\t"
}], "Text"]];
]
(*
bank2[6]
*)
bank2[6] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with eight sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with eight sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An
octagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
6"
}], "Text"]];
]
(*
bank2[7]
*)
bank2[7] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with nine sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with nine sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
nonagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
7"
}], "Text"]];
]
(*
bank2[8]
*)
bank2[8] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with ten sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with ten sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
decagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
8"
}], "Text"]];
]
(*
bank2[9]
*)
bank2[9] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with eleven sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with eleven sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An
undecagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
9"
}], "Text"]];
]
(*
bank2[10]
*)
bank2[10] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with twelve sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a polygon with twelve sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
dodecagon"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
10"
}], "Text"]];
]
(*
bank2[11]
*)
bank2[11] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a quadrilateral that has two pairs of parallel sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name
of a quadrilateral that has two pairs of parallel sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
parallelogram"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
11"
}], "Text"]];
]
(*
bank2[12]
*)
bank2[12] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of a quadrilateral that has exactly two parallel sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name of a
quadrilateral that has exactly two parallel sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A
trapezoid"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
12"
}], "Text"]];
]
(*
bank2[13]
*)
bank2[13] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"Describe a
rhombus in your own words."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"Describe a rhombus in
your own words."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A rhombus is a parallelogram that
is equilateral. In other words, a quadrilateral that has two pairs of \
parallel sides, and all the sides are the same
length"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
13"
}], "Text"]];
]
(*
bank2[14]
*)
bank2[14] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What angles are formed by lines that are perpendicular?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What angles are formed by lines that are perpendicular?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Right angles."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
14"
}], "Text"]];
]
(*
bank2[15]
*)
bank2[15] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the name
of the angle formed by two right angles?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the name of the
angle formed by two right angles?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A straight angle."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
15"
}], "Text"]];
]
(*
bank2[16]
*)
bank2[16] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an acute
angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an acute angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An acute angle is an angle that is
smaller than a right angle. An acute angle is larger than 0 degrees and \
smaller than 90 degrees."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
16"
}], "Text"]];
]
(*
bank2[17]
*)
bank2[17] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an obtuse
angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an obtuse angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An obtuse angle is an angle that
is larger than a right angle but smaller than a straight angle. An obtuse
angle is larger than 90 degrees and smaller than 180 degrees."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank
2,17"
}], "Text"]];
]
(*
bank2[18]
*)
bank2[18] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the
degree measure of a right angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the degree measure of a right angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A right angle measures 90 degrees."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
18"
}], "Text"]];
]
(*
bank2[19]
*)
bank2[19] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the
degree measure of a straight angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the degree measure of a straight angle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A straight angle measures 180 degrees."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
19"
}], "Text"]];
]
(*
bank2[20]
*)
bank2[20] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"How many degrees
are in a circle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"How many degrees are
in a circle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A circle has 360
degrees."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
20"
}], "Text"]];
]
(*
bank2[21]
*)
bank2[21] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What are polygons
called in which all the sides have the same length and all the angles have \
the same measure?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What are polygons called in which all the sides have the same length and \
all the angles have the same measure?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Regular polygons"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
21"
}], "Text"]];;
]
(*
bank2[22]
*)
bank2[22] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is a right triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is a right triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"A right triangle is a triangle
that contains one right angle."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank
2,22"
}], "Text"]];
]
(*
bank2[23]
*)
bank2[23] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an acute
triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an acute triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An acute triangle is a triangle that contains three acute angles."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
23"
}], "Text"]];
]
(*
bank2[24]
*)
bank2[24] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an obtuse
triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an obtuse triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An obtuse triangle is a triangle that contains one obtuse angle."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
24"
}], "Text"]];
]
(*
bank2[25]
*)
bank2[25] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an equiangular triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an equiangular
triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An equiangular triangle is a triangle that contains three angles of \
equal measure."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
25"
}], "Text"]];
]
(*
bank2[26]
*)
bank2[26] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an isosceles triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an isosceles triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An isosceles triangle is a
triangle that has at least two sides of equal length."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
26"
}], "Text"]];
]
(*
bank2[27]
*)
bank2[27] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an equilateral triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an equilateral
triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An equilateral triangle is a triangle that has three sides of equal \
length."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank
2,27"
}], "Text"]];
]
(*
bank2[28]
*)
bank2[28] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is an
scalene triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is an scalene triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"An scalene triangle is a triangle
that has three sides of unequal length."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
28"
}], "Text"]];
]
(*
bank2[29]
*)
bank2[29] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What is the sum
of the measures of the three angles of any triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What is the sum of the
measures of the three angles of any triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"180 degrees"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
29"
}], "Text"]];
]
(*
bank2[30]
*)
bank2[30] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What are the measures of the angles of an equiangular triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What are the measures
of the angles of an equiangular triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"60 degrees"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
30"
}], "Text"]];;
]
(*
bank2[31]
*)
bank2[31] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"What are the measures of the angles of an equilateral triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"What are the measures
of the angles of an equilateral triangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"60 degrees"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
31"
}], "Text"]];
]
(*
bank2[32]
*)
bank2[32] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"If two angles of
a triangle have equal measures, then what is true about the sides opposite \
those angles?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"If two angles of a triangle have equal measures, then what is true about \
the sides opposite those angles?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"The sides opposite the angles of equal measure have equal lengths."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
32"
}], "Text"]];
]
(*
bank2[33]
*)
bank2[33] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"If two sides of a
triangle have equal lengths, then what is true about the angles opposite \
these sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"If two sides of a triangle have equal lengths, then what is true about the \
angles opposite these sides?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"The angles opposite the sides of equal length have equal measures."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
33"
}], "Text"]];
]
(*
bank2[34]
*)
bank2[34] := Module[{},
qnum = qnum + 1;
NotebookWrite[questions, Cell[TextData[{qnum, ".\t",
"Is every square also a rectangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{qnum, ".\t",
"Is every square also a
rectangle?"
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Yes, a square satisfies the definition of a rectangle."
}], "Text"]];
NotebookWrite[answers, Cell[TextData[{
"Question I.D., Bank 2,
34"
}], "Text"]];
]
(*
End the private context
*)
End[ ];
(*
Finish things off
*)
(*
End the package context
*)
EndPackage[ ];