ログ速トップ
1 : デフォルトの名無しさん[sage] 投稿日:2007/05/01(火) 14:52:44
【英語サイト】
プロジェクト本拠地
http://tcl.sourceforge.net/
最新版ソースコード
ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/
The Tcler's Wiki
http://wiki.tcl.tk/
The comp.lang.tcl Newsgroup
http://groups.google.com/group/comp.lang.tcl/
ActiveTcl
http://www.activestate.com/products/activetcl/

【日本語サイト】
もっとTcl/Tk
http://www.interq.or.jp/japan/s-imai/tcltk/
Tcl/Tk Scripting Laboratory
http://www.geocities.jp/urano343/tcltk.html
Tcl/Tk Primer
http://mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/
Tcl 8.4.1 Manual Command Reference
http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm
CategoryTclTk - mynote
http://reddog.s35.xrea.com/wiki/CategoryTclTk.html

【前スレ】
●●●●TCL/TKなら俺に聞け●●●●
http://pc11.2ch.net/test/read.cgi/tech/1033628416/
931 : デフォルトの名無しさん[] 投稿日:2013/02/22(金) 21:07:25.94
C:\Program Files\Tcl\demos\Tk8.5\widget.tcl
Scales and Progress Bars 4. Progress bar
はupdate なし
configure命令
932 : デフォルトの名無しさん[] 投稿日:2013/02/23(土) 21:44:59.02
Tkの部品はconfig命令を使うと色や形の現在値は変更できるが、Tkは高速化の為に画面への反映は遅延表示させているので途中経過を表示せずにいきなり最終結果が表示されたりする。
プロバー表示では現在値を強制表示させる為にupdate命令を使うのが定石だがこれが禁じ手になると結構難しいか。

①930番さんの様にまとめて一発表示
②update命令間隔をを10秒置きとか極端に長くする
③その他の部品はforgetオプション等で退避しておいて後で表示
④?
ところでTkのtext表示は普通はそんなに遅くはないが改行文字なしの長い行を表示させると異様に遅くなるみたい。
933 : デフォルトの名無しさん[sage] 投稿日:2013/03/06(水) 21:36:21.62
SSD環境なので参考にならんかもしれませんが、2000文字x5000行のファイルでは、
5行おきのアップデートにすると秒単位で高速化されました。
それでもプログレスバー表示しない場合の11.5倍時間がかかりました。

create_file: 483288 microseconds per iteration
gets_lines: 271409 microseconds per iteration
read_bulk: 252275 microseconds per iteration

test_full_update: 5123759 microseconds per iteration
test_skip_update: 3374500 microseconds per iteration
test_no_update: 291779 microseconds per iteration
test_bulk_insert: 285029 microseconds per iteration
934 : デフォルトの名無しさん[sage] 投稿日:2013/03/09(土) 03:48:33.45
最初にファイルサイズ取得して、サイズに応じてupdateする行数変更するとか。
5000行のファイルに5行おきにプログレスバーを更新するってのが...
935デフォルトの名無しさん[sage] 投稿日:2013/03/12(火) 17:51:41.39
tcl8.6爆速なんだけど↓からだいぶ状況変わったの?
http://d.hatena.ne.jp/satosystems/20121228/1356655565
この速さはただの再帰もループになってる?

5桁とかになると1分以上かかって他に大きく離される
これはループにしても変わらないから多倍長ライブラリの性能かな
936 : デフォルトの名無しさん[sage] 投稿日:2013/03/12(火) 18:29:56.59
すまん関数名同じだからかんちがいした
fib 38は固まるわ
937デフォルトの名無しさん[] 投稿日:2013/03/12(火) 22:01:59.60
>>935
私の中古機械で試してみた。式をまとめると約10倍速くなった
どうしてこんなに違うのか??
fib <39088169> term <80312600 microseconds per iteration>
proc fib {n} {
if {$n < 2} { return $n }
return [expr {[fib [expr {$n - 1}]] +[fib [expr {$n - 2}]]}]
}

fib <39088169> term <714145387 microseconds per iteration>
proc fib {n} {
if {$n < 2} { return $n }
set a [expr $n - 2]
set b [expr $n - 1]
set x [fib $a]
set y [fib $b]
return [expr $x + $y]
}
938 : デフォルトの名無しさん[sage] 投稿日:2013/03/15(金) 22:54:42.21
>>937
exprの引数を{ }で囲むだけでだいぶ違うな
939 : デフォルトの名無しさん[sage] 投稿日:2013/03/15(金) 23:06:47.65
初心者が初心者に嘘を教えるスレです
940 : デフォルトの名無しさん[sage] 投稿日:2013/03/15(金) 23:08:30.06
exprの引数を{ }で囲むのは8.6以前からの定石。
2回評価させないようにする。
941 : デフォルトの名無しさん[] 投稿日:2013/03/23(土) 22:06:55.05
937です。より速くより汚く
proc fib {n} {
if {$n < 2} { return $n }
return [expr {[fib [incr n -2]] +[fib [incr n ]]}]
}
fib <39088169> term <72891401 microseconds per iteration> でした。

935 引用のページからC++を複写してVisualC++Express2008(要するに無料ソフト)を使って実行してみた
fib44=701408733
fib45=1134903170
fib46=1836311903
fib47=-1323752223
fib48=512559680

tcl/tk(ver8.5.13)でfib47 は
fib <2971215073> term <1253824233 microseconds per iteration>
1254秒!!。鈍足で正確でした。なっとく

速度、精度、価格、安直さ、どれも一つの側面でしかなく、それらを総合的に評価して最適ソフトを選択することが肝要だと思う。
942 : 929[sage] 投稿日:2013/03/24(日) 10:09:02.93
ありがとうございます。規制されてて遅くなりました。
progressbarはupdate idletasksで表示が更新されましたが、古いPCのWindowsXPでは5~6秒程度updateしないと
メニュー部分が白くなって、その後はprogressbarも更新されなくなります。(update idletasksではダメ)
ということで、数秒おきにupdateしないとprogressbarが更新されません。
見た目を重視しているので無駄はあきらめることにしました。
943 : デフォルトの名無しさん[] 投稿日:2013/03/31(日) 08:08:41.45
Tcl/Tk 8.4.20予告 6/1(随分さきの話だが)に最終版リリース予定らしい。まだ8.4.を改良してたのか。
Tcl/Tk 8.4.20 Release Announcement
June 1, 2013

The Tcl Core Team is pleased to announce the 8.4.20 releases of the Tcl
dynamic language and the Tk toolkit. This is the twentieth and *FINAL*
patch release of Tcl/Tk 8.4. With this release, support for Tcl/Tk 8.4
comes to an end.
944 : デフォルトの名無しさん[] 投稿日:2013/04/03(水) 22:36:01.28
Tcl/Tk 8.5.14 Release Announcement
April 3, 2013
945 : デフォルトの名無しさん[sage] 投稿日:2013/04/09(火) 21:46:20.56
>>5の予想を裏切り2014年まで持つ勢いだが、
ActiveTcl 8.6.1.0とTclDevKit 6.0の登場が変えてくれることを願う。
946 : デフォルトの名無しさん[sage] 投稿日:2013/04/20(土) 09:26:13.99
947 : デフォルトの名無しさん[] 投稿日:2013/04/20(土) 09:26:55.27
まだTCLなんてあったんだ。10年前に学校の授業で使ったのが懐かしい。
948 : デフォルトの名無しさん[sage] 投稿日:2013/04/20(土) 09:51:28.05
まだTCLなんてあったんだ。20年前に学校の授業で使ったのが懐かしい。
949 : デフォルトの名無しさん[] 投稿日:2013/04/20(土) 10:29:53.36
まだTCLなんてあったんだ。30年前に学校の授業で使ったのが懐かしい。
950 : デフォルトの名無しさん[sage] 投稿日:2013/04/20(土) 10:31:56.44
30年前には存在しない
951 : デフォルトの名無しさん[] 投稿日:2013/04/20(土) 10:47:05.42
おーまいがー
952 : デフォルトの名無しさん[sage] 投稿日:2013/04/24(水) 15:08:39.78
http://wiki.tcl.tk/37866

なるほどなぁ…centos 5.5かぁ…
953 : デフォルトの名無しさん[] 投稿日:2013/05/07(火) 12:31:39.81
age
954 : デフォルトの名無しさん[sage] 投稿日:2013/05/10(金) 09:11:32.01
ActiveTcl 8.5.14.0 released
http://code.activestate.com/lists/tcl-core/13226/
955 : デフォルトの名無しさん[sage] 投稿日:2013/06/05(水) 20:40:09.70
Tcl/Tk 8.4.20 final patch release
code.activestate.com/lists/tcl-core/13294/
956 : デフォルトの名無しさん[sage] 投稿日:2013/07/11(木) 10:16:18.38 ID:YGMQYZf2! [1/1回(海外)]
海外ですらもtkはディスられていた。
957 : デフォルトの名無しさん[sage] 投稿日:2013/07/11(木) 10:19:00.80
TKは衰退しました
958 : デフォルトの名無しさん[sage] 投稿日:2013/07/15(月) ??:??:??
そろそろ次スレ立てた方がいいと思う
959 : デフォルトの名無しさん[sage] 投稿日:2013/07/17(水) ??:??:??
新このホストではしばらくスレ立てられません

【英語サイト】
プロジェクト本拠地
http://tcl.sourceforge.net/
最新版ソースコード
ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/
The Tcler's Wiki
http://wiki.tcl.tk/
The comp.lang.tcl Newsgroup
http://groups.google.com/group/comp.lang.tcl/
ActiveTcl
http://www.activestate.com/products/activetcl/

【日本語サイト】
もっとTcl/Tk
http://www.interq.or.jp/japan/s-imai/tcltk/
Tcl/Tk Scripting Laboratory
http://www.geocities.jp/urano343/tcltk.html
Tcl/Tk Primer
http://mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/ ← 応答なし
Tcl 8.4.1 Manual Command Reference
http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm
CategoryTclTk - mynote
http://reddog.s35.xrea.com/wiki/CategoryTclTk.html

【前スレ】
●●●●TCL/TKなら俺に聞け 2●●●●
http://toro.2ch.net/test/read.cgi/tech/1177998764/
●●●●TCL/TKなら俺に聞け●●●●
http://pc11.2ch.net/test/read.cgi/tech/1033628416/
960デフォルトの名無しさん[sage] 投稿日:2013/07/17(水) ??:??:??
次スレですん

●●●●TCL/TKなら俺に聞け 3●●●●
http://toro.2ch.net/test/read.cgi/tech/1374052935/
961 : デフォルトの名無しさん[] 投稿日:2013/07/18(木) ??:??:??
保守あげ
962 : デフォルトの名無しさん[sage] 投稿日:2013/07/24(水) ??:??:??
うげ
963 : デフォルトの名無しさん[] 投稿日:2013/07/24(水) ??:??:??
うめとくか
964 : デフォルトの名無しさん[] 投稿日:2013/07/24(水) ??:??:??
965 : デフォルトの名無しさん[] 投稿日:2013/07/24(水) ??:??:??
966 : デフォルトの名無しさん[] 投稿日:2013/07/24(水) ??:??:??
967 : デフォルトの名無しさん[sage] 投稿日:2013/07/24(水) ??:??:??
968 : デフォルトの名無しさん[sage] 投稿日:2013/07/24(水) ??:??:??
969 : 忍法帖【Lv=40,xxxPT】(0+0:5)[sage] 投稿日:2013/07/25(木) ??:??:??
マンコ
970 : デフォルトの名無しさん[sage] 投稿日:2013/07/25(木) ??:??:??
971 : デフォルトの名無しさん[sage] 投稿日:2013/07/27(土) ??:??:??
972 : デフォルトの名無しさん[sage] 投稿日:2013/08/02(金) ??:??:??
>>960
先に落ちてしまった?
973 : デフォルトの名無しさん[] 投稿日:2013/08/02(金) ??:??:??
2020年まで持たなかったなw
974 : デフォルトの名無しさん[sage] 投稿日:2013/08/02(金) ??:??:??
前スレは4年半も持ったので、このスレも2012年くらいまではいけるという予言

このスレは6年2か月も持ったので、次スレも2020年くらいまではいけるという予言

次スレは流産だったので、次々スレもいつ落ちるか判らないという予言

こうですね
975 : デフォルトの名無しさん[] 投稿日:2013/08/02(金) ??:??:??
>いつ落ちるか判らない

って予言ちゃうし
976 : デフォルトの名無しさん[] 投稿日:2013/08/02(金) ??:??:??
ume
977 : デフォルトの名無しさん[sage] 投稿日:2013/08/02(金) ??:??:??
天才チンパンジーのアイちゃんを召喚しなかったから落ちたんだな。
978 : デフォルトの名無しさん[] 投稿日:2013/08/02(金) ??:??:??
ume
979 : デフォルトの名無しさん[] 投稿日:2013/08/02(金) ??:??:??
埋め
980 : デフォルトの名無しさん[sage] 投稿日:2013/08/04(日) ??:??:??
次スレ消滅するの早過ぎだろ…
981 : デフォルトの名無しさん[sage] 投稿日:2013/08/05(月) ??:??:??
次スレです

●●●●TCL/TKなら俺に聞け 4●●●●
http://toro.2ch.net/test/read.cgi/tech/1375678740/

終了したスレッドです

おすすめスレッド

PR

みんなが見ているスレッド

PR

スポンサードリンク