(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[      8876,        304]*)
(*NotebookOutlinePosition[      9867,        336]*)
(*  CellTagsIndexPosition[      9823,        332]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[{
  "On \"",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Natsu no Gakkou\"\n (",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Summer School)"
}], "Title"],

Cell["1999/8/24 IMS'99 #41", "Subtitle",
  TextAlignment->0.5,
  TextJustification->0],

Cell["\<\
Kenji YOSHIDA (Konan Boy's High School)
Shinya OHASHI (Kashiwa Municipal High School)\
\>", "Author",
  TextAlignment->Right,
  TextJustification->0],

Cell[CellGroupData[{

Cell["Abstract", "Section"],

Cell["\<\
In this presentation, I want to talk about how the \"Mathematica \
Natsu no Gakko\" program is run. 
I also want to show some of the materials made there. 
Then I want to discuss the problems we confronted, and plans for developing \
teaching materials in the future.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
About \"Mathematica Natsu no Gakkou\"\
\>", "Section"],

Cell["\<\
Mathematica,  a software system for mathematics, is well known \
among secondary school (high school) teachers in Japan. 
But not many of them have used Mathematica in the classroom or have developed \
teaching materials that use it.
Even if some teachers have developed materials based on Mathematica, the use \
of those materials was limited to that teacher's school and seldom went \
beyond that school.
There weren't any opportunites for most teachers to use such materials even \
if they existed.
For teachers who are Mathematica novices, what is necessary is an opportunity \
to learn how to use Mathematica in the classroom and how to develop materials \
based on Mathematica.\
\>", "Text"],

Cell["\<\
A few years ago, we started Mathematica workshops for teachers of \
mathematics in several prefectures. 
Many teachers who attended it realized that it was possible to use \
Mathematica in future mathematics education.
Unfortunately, these workshops were held in limited locations.\
\>", "Text"],

Cell[TextData[{
  "\" Mathematica Natsu no Gakkou\" is a project for providing the \
opportunity to develop Mathematica-related materials for teachers who do not \
have enough information on how to use Mathematica. \nThe first \"Mathematica \
Natsu no Gakkou\" was held in the summer of 1996 with the cooperation of \
Wolfram Research Asia Limited, the Mathematica User's Group in Japan, and \
Mathematica dealers inJapan. \nIt was a three-day event. About 20 teachers of \
secondary education who were eager to develop Mathematica-related materials \
worked together. \nEach teacher completed one lesson based on an idea he/she \
brought. \nThe 4th workshop was held this summer. \nSo far, about 70 teachers \
have attended these workshops and various teaching materials have been \
developed. \nAnyone can download and use them freely. \n",
  StyleBox[ButtonBox["http://www.hs.konan-u.ac.jp/math/Mathematica/",
    ButtonData:>{
      URL[ "http://www.hs.konan-u.ac.jp/math/Mathematica/"], None},
    ButtonStyle->"Hyperlink"],
    FontWeight->"Bold"],
  "\n(This pages is Japanese pages, English pages comming soon.)\nThis, I \
think, is the first place where mathematics teachers from all parts of the \
country can communicate with one another."
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Types of materials", "Section"],

Cell["\<\
The objective of this workshop is to develop materials which can be \
used in a classroom setting. 
Many types of materials have been made. 
They are:\
\>", "Text"],

Cell[CellGroupData[{

Cell["1) materials to present ideas to students", "Subsection"],

Cell["\<\
Many teachers are interested in 3D models and animations.
Because we cannot draw them on black-board.\
\>", "Text"],

Cell["\<\
Example 1.1
Example 1.2
Example 1.3
\
\>", "Text",
  TextAlignment->Left]
}, Open  ]],

Cell[CellGroupData[{

Cell["2) materials to be used by students for self-teaching", "Subsection"],

Cell["Some teaches can make materials such as text books.", "Text"],

Cell["\<\
Example 1.1
Example 2.2
Example 2.3
\
\>", "Text",
  TextAlignment->Left]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
3) materials to introduce Mathematica as a programming \
language\
\>", "Subsection"],

Cell[TextData[{
  "There are some programming languages in mathematics text books in Japan.\n\
BASIC is the most popular language for high schools level in Japan .\nBut ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " is the most suitable language in our carriculum."
}], "Text"],

Cell["\<\
Example 3.1
\
\>", "Text",
  TextAlignment->Left],

Cell["\<\
Thorough examination as to whether or not all of the materials \
developed at workshops can be used in all kinds of schools will be necessary.\
\
\>", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Some Problems in this project", "Section"],

Cell["\<\
This project can create the teacher's network beyond the school and \
the prefecture.
Now, there are many staffs in this project.
We have about 100 teaching materials in this project.
But, there are some probrems in this project.
They are:\
\>", "Text"],

Cell[CellGroupData[{

Cell["1) Some teaching materials cannot be used by every teacher.", \
"Subsection"],

Cell["\<\
Every teacher made the teaching material with his individual \
teaching method.
But other teacher cannot use that material, because of the difference of \
teaching methods.
\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2) Some teaching materials are out of our carriculum.", "Subsection"],

Cell["\<\
Some teacher made the teaching material as out of our carriculum.
Then that material cannot be used all kinds of school.
\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
  "3) Many ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " novices cannot attend this project. "
}], "Subsection"],

Cell[TextData[{
  "Many ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " power users in high school have attended this project.\nBut ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " novices have not come. Novices avoided this poject.\nMany novices thought \
this project was too hard.\nSome novices have made some materials in this \
project.\nWe will make another project , as beginner's training for teachers.\
\n"
}], "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Contents of teaching materials", "Section"],

Cell["Natsu no Gakkou 1996", "Subsection"],

Cell["Natsu no Gakkou 1997", "Subsection"],

Cell["Natsu no Gakkou 1998", "Subsection"],

Cell[CellGroupData[{

Cell["Natsu no Gakkou 1999", "Subsection"],

Cell["Under Construction", "Text"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["About the future education in Japan", "Section"],

Cell["\<\
In Japan,  it seems to have become a requirement in the mathematics \
curriculum to not only utilize computers in mathematics, but to also teach \
programming in information science classes. 
Internet or LAN is becoming essential to schools. 
The possibility of introducing remote education or a credit system along with \
traditional classroom teaching is now being discussed. 
There will be a demand for teaching materials that students in any situation \
can use.\
\>", "Text"]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{639, 552},
WindowMargins->{{3, Automatic}, {Automatic, 4}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification->1,
StyleDefinitions -> "Classroom.nb",
MacintoshSystemPageSetup->"\<\
00@0009H0UP000006G<AM_l6oa0JKA9VhT85N`?N0080004/0B`000003;T8^`01
0000I00000800@4100800BL?00400@d]W_000000000002@201T1T00001EP0@0Q
224<0A0Q50400000000000000010P000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 191, 8, 92, "Title"],
Cell[1911, 59, 86, 2, 40, "Subtitle"],
Cell[2000, 63, 159, 5, 52, "Author"],

Cell[CellGroupData[{
Cell[2184, 72, 27, 0, 55, "Section"],
Cell[2214, 74, 291, 6, 85, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2542, 85, 64, 2, 55, "Section"],
Cell[2609, 89, 707, 13, 194, "Text"],
Cell[3319, 104, 305, 6, 85, "Text"],
Cell[3627, 112, 1262, 20, 340, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4926, 137, 37, 0, 55, "Section"],
Cell[4966, 139, 174, 5, 85, "Text"],

Cell[CellGroupData[{
Cell[5165, 148, 63, 0, 45, "Subsection"],
Cell[5231, 150, 125, 3, 56, "Text"],
Cell[5359, 155, 83, 6, 114, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5479, 166, 75, 0, 45, "Subsection"],
Cell[5557, 168, 67, 0, 27, "Text"],
Cell[5627, 170, 83, 6, 114, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5747, 181, 95, 3, 45, "Subsection"],
Cell[5845, 186, 289, 6, 85, "Text"],
Cell[6137, 194, 59, 4, 56, "Text"],
Cell[6199, 200, 168, 4, 44, "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[6416, 210, 48, 0, 55, "Section"],
Cell[6467, 212, 263, 7, 143, "Text"],

Cell[CellGroupData[{
Cell[6755, 223, 83, 1, 45, "Subsection"],
Cell[6841, 226, 197, 6, 85, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7075, 237, 75, 0, 45, "Subsection"],
Cell[7153, 239, 145, 4, 85, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7335, 248, 141, 5, 45, "Subsection"],
Cell[7479, 255, 448, 11, 173, "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[7976, 272, 49, 0, 53, "Section"],
Cell[8028, 274, 42, 0, 43, "Subsection"],
Cell[8073, 276, 42, 0, 43, "Subsection"],
Cell[8118, 278, 42, 0, 43, "Subsection"],

Cell[CellGroupData[{
Cell[8185, 282, 42, 0, 43, "Subsection"],
Cell[8230, 284, 34, 0, 26, "Text"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{
Cell[8313, 290, 54, 0, 53, "Section"],
Cell[8370, 292, 490, 9, 142, "Text"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)