新しく発言する EXIT インデックスへ
数直線作成プロ

  数直線作成プロ もりの 2004/01/28 19:31:47 
  数直線上に長方形や図を描くってどういうこ... 青木太一 2004/01/28 22:31:40 
   ├ちょっと強く書きすぎました。 青木太一 2004/01/28 22:35:23 
   └イメージ的にはあれでいいです もりの 2004/01/28 23:06:24 
    ├ごめんなさい、長方形のあたりは説明がよく... 青木太一 2004/01/29 01:13:10 
    │└長方形は細長い線分図です もりの 2004/01/29 07:17:33 
    └ん? 青木太一 2004/01/29 22:02:42 
     └大体いいですが? もりの 2004/01/29 23:08:47 
      └こういうことですか? 青木太一 2004/01/30 00:27:14 
       └よくなりました もりの 2004/01/30 00:39:09 
        └いってることはわかります。 青木太一 2004/01/30 09:56:20 
         └青木さんのいっていることは もりの 2004/01/30 18:55:10 
          └<<文法エラーの件>> 青木太一 2004/01/30 21:10:25 
           └そうですよね、私もプログラムに関しては全...2004/01/31 09:06:21 

  数直線作成プロ もりの 2004/01/28 19:31:47  ツリーへ

数直線作成プロ 返事を書く
もりの 2004/01/28 19:31:47



-----------------------------------------------------
0 1 2 3 (単位)
数直線上に自由に長方形や弧、単位などが描けるプログラムが
あると使いたいです。
どなたか作れますか?・^^





  数直線上に長方形や図を描くってどういうこ... 青木太一 2004/01/28 22:31:40  ツリーへ

Re: 数直線作成プロ 返事を書く
青木太一 2004/01/28 22:31:40
数直線上に長方形や図を描くってどういうことですか?

算数教材作成支援ツール「こうぐ」の説明
http://www.kagawa-edu.jp/kasana02/kougu/demo/demo.htm
の、この下のリンク先の図の、
http://www.kagawa-edu.jp/kasana02/kougu/demo/image6.gif
テープ図=長方形
線分図=弧
というですか?

一応、線分図を書きやすくする副プログラムを書きます。

set text justify "center","base"
set window 0,1,0,1
plot lines:0,0.5;1,0.5
for x=0 to 1 step 0.1
plot lines:x,0.51;x,0.49
plot text,at x,0.51:str$(x)
next x
call plot_range("最初に入れた量", 0, 0.3, 0.1)
call plot_range("追加した量", 0.3, 0.7, 0.1)
call plot_range("全体の量", 0, 0.7, 0.2)

sub plot_range(label$,from,to,height)
LET center_x=(from+to)/2
LET rx=(to-from)/2
LET ry=height
plot text,at center_x,0.5+height:label$
for angle=0 to pi step pi/100
LET x=center_x+rx*cos(angle)
LET y=0.5+ry*sin(angle)
plot lines:x,y;
next angle
end sub
END

テープ図や、それとも(なんのためかはわかりませんが)ただ単に
弧や長方形を自由に数直線の上に描き足したいだけなのであれば、
めちゃくちゃ簡単ですからとりあえずご自分で書いてこの掲示板に載せてはいかがですか?
そのうえでわからないことがあったら、お答えできると思います。

(お仕事忙しいのでしょうけど、もりのさん要求ばかりじゃなくて、プログラム書いてもらいたいです)

   ├ちょっと強く書きすぎました。 青木太一 2004/01/28 22:35:23  ツリーへ

Re: 数直線上に長方形や図を描くってどういうこ... 返事を書く
青木太一 2004/01/28 22:35:23
ちょっと強く書きすぎました。
「めちゃくちゃ簡単」かどうかは経験によるし、
もりのさんは「要求」しているわけではなく、ただ「希望を述べる」だけでした。
失礼。

   └イメージ的にはあれでいいです もりの 2004/01/28 23:06:24  ツリーへ

Re: 数直線上に長方形や図を描くってどういうこ... 返事を書く
もりの 2004/01/28 23:06:24
イメージ的にはあれでいいです
ただ細長い長方形を一つ分と全体との間に書き
一つ分がいくらで
それがいくつ分あるのかがわかる
数の直線がひょうじされれば
いいのです
ただ一つ分はいくらか
単位はなにか
全体では何個ありますか?
とかがどんな種類の品物や長さなどでも
入力枠があって入力し
弧の中央部上に表示されるといいんですが
パワーポイントでつくっていたんですが
プログラムなら一回つくれば
いつでも使えると思ったんです

    ├ごめんなさい、長方形のあたりは説明がよく... 青木太一 2004/01/29 01:13:10  ツリーへ

Re: イメージ的にはあれでいいです 返事を書く
青木太一 2004/01/29 01:13:10
ごめんなさい、長方形のあたりは説明がよくわかりません。

>ただ一つ分はいくらか、単位はなにか、全体では何個ありますか?
>とかがどんな種類の品物や長さなどでも入力枠があって入力し
>弧の中央部上に表示されるといいんですが
よくわからないのですが、表示される文字をinputで指定するのではだめですか?
input a$
call plot_range(a$, 0, 0.3, 0.1)

    │└長方形は細長い線分図です もりの 2004/01/29 07:17:33  ツリーへ

Re: ごめんなさい、長方形のあたりは説明がよく... 返事を書く
もりの 2004/01/29 07:17:33
長方形は細長い線分図です
下の数直線の1,2,3の目盛りに
対応したものです
あっそうか
できれば」本屋サンで小学3年の教科書を
みてください^^
教育出版のものです

    └ん? 青木太一 2004/01/29 22:02:42  ツリーへ

Re: イメージ的にはあれでいいです 返事を書く
青木太一 2004/01/29 22:02:42
ん?
>ただ一つ分はいくらか
>単位はなにか
>全体では何個ありますか?
というのはこういうことかな?

LET all=32!全体で
LET unit=8!一人で
set text justify "center","base"
LET max=40
set window 0,max,0,1
plot lines:0,0.5;max,0.5
for x=0 to max
plot lines:x,0.51;x,0.49
if mod(x,5)=0 then plot text,at x,0.51:str$(x)
next x

call plot_range("全体で"&str$(all), 0, 32, 0.2)
for x=0 to all step unit
call plot_range("一人で"&str$(unit), x, x+unit, 0.05)
next x
sub plot_range(label$,from,to,height)
LET center_x=(from+to)/2
LET rx=(to-from)/2
LET ry=height
plot text,at center_x,0.5+height:label$
for angle=0 to pi step pi/100
LET x=center_x+rx*cos(angle)
LET y=0.5+ry*sin(angle)
plot lines:x,y;
next angle
end sub
END

テープ図にするのは簡単なので自分でやってください。plot linesの使い方はわかりますね。
(わからなかったらヘルプやサンプルファイルを見ながら試行錯誤してください)

入力枠をグラフィックウィンドウに出すのは面倒なのでやりません。
input文でいいのなら簡単ですからご自分でどうぞ。

     └大体いいですが? もりの 2004/01/29 23:08:47  ツリーへ

Re: ん? 返事を書く
もりの 2004/01/29 23:08:47
大体いいですが?
一人ぶんはいくらで
全体では・・・
一人分の量を変えると
全体の量も(弧の大きさも)
スライドするように
してほしいのです。
わかりますか?
よこの目盛りは10まででもいいです
太い線がいいです。

      └こういうことですか? 青木太一 2004/01/30 00:27:14  ツリーへ

Re: 大体いいですが? 返事を書く
青木太一 2004/01/30 00:27:14
こういうことですか?

マウスでスライドするようにしました。
・マウスの横位置xが一人文の量になります
・左ボタンを押し続けているときは量は整数だけになります。
・右ボタンを押すと終了します。

set line width 2
LET n=4!個数
set text justify "center","base"
LET max=40
set window 0,max,0,1
do
mouse poll mx,my,ml,mr
LET unit=mx
plot text ,at max/2,0.8:"マウス操作 左ボタン:整数に限定 右ボタン:終了"
if ml=1 then LET unit=int(unit)!左ボタンが押されていれば、大きさは整数だけになる
plot lines:0,0.5;max,0.5
for x=0 to max
plot lines:x,0.51;x,0.49
if mod(x,5)=0 then plot text,at x,0.51:str$(x)
next x

call plot_range("全体で"&str$(n*unit), 0,n*unit, 0.2)
for i=1 to n
LET x=(i-1)*unit
call plot_range("一人で"&str$(unit), x, x+unit, 0.05)
next i
set draw mode explicit
if mr=1 then exit do !右クリックで終了
set draw mode hidden
clear
loop

sub plot_range(label$,from,to,height)
LET center_x=(from+to)/2
LET rx=(to-from)/2
LET ry=height
plot text,at center_x,0.5+height:label$
for angle=0 to pi step pi/100
LET x=center_x+rx*cos(angle)
LET y=0.5+ry*sin(angle)
plot lines:x,y;
next angle
end sub
END

       └よくなりました もりの 2004/01/30 00:39:09  ツリーへ

Re: こういうことですか? 返事を書く
もりの 2004/01/30 00:39:09
よくなりました
使えそうです
あとパソコンの
画面一杯に大きく
表示することは
できますか?
また数直線のめもりを
選ぶようにはできますか?

3までとか
10までとか
30までとか
問題によって
数直線の目盛りを変えたいのですが
いってること
わかりますかね?

        └いってることはわかります。 青木太一 2004/01/30 09:56:20  ツリーへ

Re: よくなりました 返事を書く
青木太一 2004/01/30 09:56:20
いってることはわかります。

数直線の目盛りかえるのは自分でやってください。
maxの値を変えればいいだけです。

画面いっぱいにするには、お使いのパソコンの解像度や
プロジェクタの解像度がわからないとどうしようもありません。
自分でset bitmap size してください。

(掲示板に聞く前に、自分でプログラムを調べて、修正する努力をしていますか?)
・○○できますか
ではなく
・○○の動作をしてほしいので、××を修正したけどうまくいきません、どうすればいいですか?
という聞き方をした方がいいですよ。
最初から答えを聞いていてはいつまでたっても成長しません。
論文で忙しいのはわかるし、十進BASIC以外でいろいろなソフトを作ったというのはもうわかりましたが、
だからといってポンポンと掲示板に質問するのは感心されないとおもいます。

         └青木さんのいっていることは もりの 2004/01/30 18:55:10  ツリーへ

Re: いってることはわかります。 返事を書く
もりの 2004/01/30 18:55:10
青木さんのいっていることは
わかりますよ
でも今すぐ

電子教材がほしいのです
授業や論文やメディア研究の
発展のために

僕はプログラマーになろうと
しているのではなく

総合的なネットワークや
生涯学習社会の中で
学習者の学習内容が高度化したり
多様化したりしてきているので
それに対応するソフトも
たくさんあったほうがいいと思って
いるのです

エルネットやマナビネット
ヴェクターなんでも
いいじゃありませんか?

今必要なのは今の子供や
学習をしたい人を伸ばすための
メディアなのです
ここはソフトがつくれる人と
作ってほしい人がいるのだから
両者が満足できるような
ものが作りやすいと思います

コミュニケーション
コラボレーション

を通して子供や社会に貢献しましょうよ

あまり余計なことを考えずに
バンバンつくって提示していきましょうよ

君がつくってくれた線分図今日
職場で紹介しましたよ

日立では

set line width 2

で文法エラーになってしまいましたので

この行をふくめて3箇所削除し
やっとうごきました
改良版つくってくれますか?
いつもnecのマシンではうごくけど
日立ではうごかないんでしょ
ほんと 日立は  やだ

          └<<文法エラーの件>> 青木太一 2004/01/30 21:10:25  ツリーへ

Re: 青木さんのいっていることは 返事を書く
青木太一 2004/01/30 21:10:25
<<文法エラーの件>>
http://freebbs.around.ne.jp/article/b/basic/26/izoxrh/xanbff.html#xanbff
で書いたとおり、使用ソフト(十進BASIC)のバージョンを示してください。

日立の方に入っているのが、まだset line widthがサポートされていないバージョンなのかもしれません。とりあえず最新版にすることをおすすめします。

それでも解決しない場合、
・他の削除が必要だったという2カ所も示してください。
・文法エラーのダイアログの文章も示してください。
・バージョンを示してください。

十進BASICのバージョンは「ヘルプ」-「バージョン情報」で出てくるダイアログの
(仮称)十進BASIC Version5.1.6
OS情報 RICHED32.DLL 5.0.2134.1
RICHED20.DLL 5.30.23.1215
を書いてください。(上のは私の環境)

私はWindows2000を使っていますが、
もりのさんは
http://freebbs.around.ne.jp/article/b/basic/26/izoxrh/mnneje.html#mnneje
によると両方Windows98ということで間違いないですね。

<<コラボレーションの件>>
以下、あくまで私の感じるところなので、無視していただいていいですが、
私はコラボレーションするつもりはありません。
その責任を負うこともしたくないですし、報酬もいただけませんから。
(お金もらえるわけでも、論文の共著者になれるわけでもない。
別に報酬がほしいわけではない。)

教材の電子化がもりのさんの仕事(の一部?)なんですよね。
自分でプログラム書くのが嫌なら予算とって業者にたのむのがスジじゃないですか?
自分の仕事(の一部)をぽんぽんWebに投げているようで、私は違和感を感じる次第です。

たとえば調理人が釣り堀の掲示板に、
「今度、ニジマスを使った料理をつくりたいのだけれど、誰か釣れる人いる?」
と書くようなものです。
市場にいくなり、自分で釣るなりすればいいと思います。
しかも、
・毎日のように違う魚を「釣れる人いますか」と書く
・釣ってくると、「実は雄じゃなくて雌がよかった」などという。
 最初のあいまいな説明のせいで、釣った人は無駄骨を折る。
・釣り方を知りたいなら教えようと言うと、「私は釣り人ではない」
 「料理作るのに忙しい」という。
・「この料理でレシピ本を出版するつもりだ」
 「おいしい料理をいっしょにつくろう」
 「自分は昔イノシシ狩りならしたことある」
 など、釣り堀にとってはあまり関係ない話題を振る。
・「あまりよけいなこと考えずにばんばん釣ってよ」
 なんであいまいな説明を補完するためにわざわざたくさん釣る労を負わなければいけないのだ?

釣り人にとっておいしい料理について聞けるのは、興味深いし、
コラボレーションでおいしい料理が次々と生み出されたらすばらしいですけどね。
料理人はそんな方法とらず、市場に行ってプロから買うのでは?

           └そうですよね、私もプログラムに関しては全...2004/01/31 09:06:21  ツリーへ

Re: <<文法エラーの件>> 返事を書く
2004/01/31 09:06:21
そうですよね、私もプログラムに関しては全くの素人ですが、仕事で使うなら素人に頼んで良いもの、信頼できる使い物になるものが手に入ると思うなら大間違いでしょう。
フリーソフトを見れば、このような分野でソフトを作っている人は数え切れないほどいますから、そんな人に依頼すれば良いでしょうし、
シェアウエアを作っている人は必要があれば要求に応じて完全なものを、喜んで作ってくれるでしょうから、そのような人に依頼すべきでしょう。
それにしても、人にお願いするときの言葉づかいは生徒に頼んでるようでもっと気を使うべきでしょうが、
先生ってこんなに非常識なんでしょうか?


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。