前々回の分析「競輪分析データNo30 ガールズケイリン周回予想プログラムの作成」で
102期生を対象とした周回予想プログラムを作成しましたが、
今回は、これに ５月にデビューした104期生のデータを付加し、また、
102期生のデータも最新版への差し替え を行いました。
104期生は5月にデビューし、5月30日現在で全員が２開催(計6レース)の実戦を終えました。
まだまだ実レース数は少ないのですが、公表されている在校成績のデータにはＳ回数が付加されており
（競輪分析データNo30 104期生（ガールズ）在校時成績とデビュー期成績推測の 表１.のＳ回数の項目を参照ください）、
これを利用して「選手毎の周回位置の傾向」表を作成します。
在校成績の全選手のＳ回数を全て加えると 104となり、これはほぼ競走訓練のレース数になるので、 このＳ回数を 周回位置の１番手とみなしてよさそうです。
競走訓練の"車立て"の平均は 5.8車 です。実レースでは 7車立てとなるので、5.8/7 を乗じて補正します。
例えば 石井寛子選手は、在校時の競走訓練で 57レースに参戦し、16回のSを取っていますが、7車立レースに
換算すると、
16 x 5.8/7 = 13.3 (回)
であり、これを 競走訓練 57レースで、周回位置の１番手に位置した回数 とします。
また、デビュー後 5月30日までの実戦では 6レース中3レースで周回位置の１番手に位置していますので、合計で、
63 レース中 16.3 回
周回位置の１番手に位置していた とします。割合（％）で表すと、
16.3/63 x100 =25.8 (%)
です。 在校成績では周回位置の２番手〜７番手に位置した回数は不明なので、
100％から 上でもとめた １番手にいる割合を減算し、これを均等に割って ２〜７番手に位置する割合とみなします。
石井寛子選手の場合は、 ２〜７番手にいる割合は それぞれ、
(100-25.8)/6=12.4 (%)
です。
同様にして 104期生全選手分を計算して、割合を累計値で表した「選手毎の周回位置の傾向」表は次のようになります。
表中の項目は、
順位 -- 先頭位置の割合が高い順です。この表は昇順で選手を並べています。
脚質 -- 現在(2013.5.30)の電子競輪新聞で使用している各選手の脚質です。参考として付加しました。
１番手〜７番手 -- 周回中の１〜７番手に位置した「割合(％) , １番手からの累計割合(％)」です。
| 順位 | 選手名 | 脚質 | 出走数 | １番手 % | 2番手 % (累計%) | 3番手 % (累計%) | 4番手 % (累計%) | 5番手 % (累計%) | 6番手 % (累計%) | 7番手 % (累計%) |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 小坂知子 | 追捲 | 76 | 48.1 | 8.7 (56.7) | 8.7 (65.4) | 8.7 (74.0) | 8.7 (82.7) | 8.7 (91.3) | 8.7 (100.0) |
| 2 | 梶田舞 | 先捲 | 68 | 40.5 | 9.9 (50.4) | 9.9 (60.4) | 9.9 (70.3) | 9.9 (80.2) | 9.9 (90.1) | 9.9 (100.0) |
| 3 | 奈良岡彩 | 捲追 | 76 | 34.1 | 11.0 (45.1) | 11.0 (56.1) | 11.0 (67.0) | 11.0 (78.0) | 11.0 (89.0) | 11.0 (100.0) |
| 4 | 石井寛子 | 先捲 | 63 | 25.8 | 12.4 (38.2) | 12.4 (50.6) | 12.4 (62.9) | 12.4 (75.3) | 12.4 (87.6) | 12.4 (100.0) |
| 5 | 田中まい | 先捲 | 76 | 23.6 | 12.7 (36.3) | 12.7 (49.1) | 12.7 (61.8) | 12.7 (74.5) | 12.7 (87.3) | 12.7 (100.0) |
| 6 | 石井貴子 | 自在 | 65 | 19.4 | 13.4 (32.8) | 13.4 (46.3) | 13.4 (59.7) | 13.4 (73.1) | 13.4 (86.6) | 13.4 (100.0) |
| 7 | 矢野光世 | 捲追 | 74 | 17.1 | 13.8 (30.9) | 13.8 (44.7) | 13.8 (58.5) | 13.8 (72.4) | 13.8 (86.2) | 13.8 (100.0) |
| 8 | 三宅愛梨 | 捲追 | 64 | 15.6 | 14.1 (29.6) | 14.1 (43.7) | 14.1 (57.8) | 14.1 (71.9) | 14.1 (85.9) | 14.1 (100.0) |
| 9 | 明珍裕子 | 自在 | 76 | 15.5 | 14.1 (29.6) | 14.1 (43.7) | 14.1 (57.8) | 14.1 (71.8) | 14.1 (85.9) | 14.1 (100.0) |
| 10 | 菅田賀子 | 自在 | 75 | 12.2 | 14.6 (26.8) | 14.6 (41.4) | 14.6 (56.1) | 14.6 (70.7) | 14.6 (85.4) | 14.6 (100.0) |
| 11 | 手柴敦子 | 追込 | 74 | 4.7 | 15.9 (20.6) | 15.9 (36.5) | 15.9 (52.4) | 15.9 (68.2) | 15.9 (84.1) | 15.9 (100.0) |
| 12 | 猪頭香緒 | 追込 | 72 | 3.5 | 16.1 (19.5) | 16.1 (35.6) | 16.1 (51.7) | 16.1 (67.8) | 16.1 (83.9) | 16.1 (100.0) |
| 13 | 杉沢毛伊 | 自在 | 76 | 2.4 | 16.3 (18.7) | 16.3 (34.9) | 16.3 (51.2) | 16.3 (67.5) | 16.3 (83.7) | 16.3 (100.0) |
| 14 | 猪子真実 | 追込 | 71 | 1.4 | 16.4 (17.8) | 16.4 (34.3) | 16.4 (50.7) | 16.4 (67.1) | 16.4 (83.6) | 16.4 (100.0) |
| 15 | 井上玲美 | 追込 | 72 | 0.0 | 16.7 (16.7) | 16.7 (33.3) | 16.7 (50.0) | 16.7 (66.7) | 16.7 (83.3) | 16.7 (100.0) |
| 16 | 青木志都 | 追込 | 74 | 0.0 | 16.7 (16.7) | 16.7 (33.3) | 16.7 (50.0) | 16.7 (66.7) | 16.7 (83.3) | 16.7 (100.0) |
| 17 | 倉野由紀 | 追込 | 75 | 0.0 | 16.7 (16.7) | 16.7 (33.3) | 16.7 (50.0) | 16.7 (66.7) | 16.7 (83.3) | 16.7 (100.0) |
| 18 | 山原さく | 先捲 | 72 | 0.0 | 16.7 (16.7) | 16.7 (33.3) | 16.7 (50.0) | 16.7 (66.7) | 16.7 (83.3) | 16.7 (100.0) |
| 全選手平均 | 14.3 | 14.3(28.6) | 14.3(42.9) | 14.3(57.1) | 14.3(71.4) | 14.3(85.7) | 14.3(100.0) | |||
「競輪分析データNo30 ガールズケイリン周回予想プログラムの作成」で、 平成25年2月10日までの データで「表2-1-1 選手毎の周回位置の傾向」を作成しましたが、これを 平成25日5月30日までの データで再作成しました。
| 順位 | 選手名 | 脚質 | 出走数 | １番手 % | 2番手 % (累計%) | 3番手 % (累計%) | 4番手 % (累計%) | 5番手 % (累計%) | 6番手 % (累計%) | 7番手 % (累計%) |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 浦部郁里 | 自在 | 56 | 57.1 | 16.1(73.2) | 10.7(83.9) | 3.6(87.5) | 3.6(91.1) | 7.1(98.2) | 1.8(100.0) |
| 2 | 篠崎新純 | 自在 | 52 | 53.8 | 11.5(65.4) | 7.7(73.1) | 3.8(76.9) | 3.8(80.8) | 7.7(88.5) | 11.5(100.0) |
| 3 | 中川諒子 | 先捲 | 50 | 48.0 | 10.0(58.0) | 0.0(58.0) | 10.0(68.0) | 20.0(88.0) | 12.0(100.0) | 0.0(100.0) |
| 4 | 小林莉子 | 先捲 | 50 | 46.0 | 18.0(64.0) | 8.0(72.0) | 0.0(72.0) | 6.0(78.0) | 12.0(90.0) | 10.0(100.0) |
| 5 | 渡辺ゆかり | 捲先 | 56 | 28.6 | 25.0(53.6) | 10.7(64.3) | 5.4(69.6) | 14.3(83.9) | 7.1(91.1) | 8.9(100.0) |
| 6 | 山口菜津子 | 追捲 | 49 | 24.5 | 24.5(49.0) | 14.3(63.3) | 12.2(75.5) | 14.3(89.8) | 4.1(93.9) | 6.1(100.0) |
| 7 | 関口美穂 | 自在 | 42 | 19.0 | 26.2(45.2) | 16.7(61.9) | 14.3(76.2) | 9.5(85.7) | 7.1(92.9) | 7.1(100.0) |
| 8 | 中山麗敏 | 捲先 | 43 | 18.6 | 32.6(51.2) | 23.3(74.4) | 7.0(81.4) | 7.0(88.4) | 4.7(93.0) | 7.0(100.0) |
| 9 | 藍野美穂 | 追込 | 50 | 18.0 | 30.0(48.0) | 26.0(74.0) | 6.0(80.0) | 12.0(92.0) | 4.0(96.0) | 4.0(100.0) |
| 10 | 中村由香里 | 捲先 | 56 | 17.9 | 35.7(53.6) | 25.0(78.6) | 12.5(91.1) | 5.4(96.4) | 1.8(98.2) | 1.8(100.0) |
| 11 | 松尾智佳 | 追捲 | 54 | 16.7 | 25.9(42.6) | 16.7(59.3) | 14.8(74.1) | 13.0(87.0) | 9.3(96.3) | 3.7(100.0) |
| 12 | 森美紀 | 自在 | 54 | 16.7 | 9.3(25.9) | 13.0(38.9) | 5.6(44.4) | 16.7(61.1) | 14.8(75.9) | 24.1(100.0) |
| 13 | 増茂るるこ | 捲先 | 58 | 13.8 | 15.5(29.3) | 12.1(41.4) | 12.1(53.4) | 22.4(75.9) | 8.6(84.5) | 15.5(100.0) |
| 14 | 荒牧聖未 | 捲先 | 44 | 13.6 | 9.1(22.7) | 27.3(50.0) | 9.1(59.1) | 18.2(77.3) | 11.4(88.6) | 11.4(100.0) |
| 15 | 白井美早子 | 捲先 | 54 | 13.0 | 18.5(31.5) | 20.4(51.9) | 20.4(72.2) | 7.4(79.6) | 13.0(92.6) | 7.4(100.0) |
| 16 | 野口諭実可 | 追込 | 47 | 12.8 | 23.4(36.2) | 4.3(40.4) | 10.6(51.1) | 12.8(63.8) | 19.1(83.0) | 17.0(100.0) |
| 17 | 尾上明子 | 追込 | 57 | 12.3 | 12.3(24.6) | 7.0(31.6) | 12.3(43.9) | 17.5(61.4) | 19.3(80.7) | 19.3(100.0) |
| 18 | 田畑茉利名 | 自在 | 62 | 11.3 | 16.1(27.4) | 11.3(38.7) | 16.1(54.8) | 8.1(62.9) | 16.1(79.0) | 21.0(100.0) |
| 19 | 近内稚明 | 追捲 | 48 | 6.3 | 8.3(14.6) | 14.6(29.2) | 8.3(37.5) | 14.6(52.1) | 27.1(79.2) | 20.8(100.0) |
| 20 | 藤原亜衣里 | 追込 | 54 | 3.7 | 20.4(24.1) | 9.3(33.3) | 14.8(48.1) | 22.2(70.4) | 16.7(87.0) | 13.0(100.0) |
| 21 | 重光啓代 | 先捲 | 54 | 3.7 | 5.6( 9.3) | 9.3(18.5) | 33.3(51.9) | 20.4(72.2) | 14.8(87.0) | 13.0(100.0) |
| 22 | 大和久保美 | 先捲 | 54 | 3.7 | 3.7( 7.4) | 9.3(16.7) | 14.8(31.5) | 24.1(55.6) | 27.8(83.3) | 16.7(100.0) |
| 23 | 飯塚朋子 | 追込 | 51 | 2.0 | 13.7(15.7) | 23.5(39.2) | 17.6(56.9) | 11.8(68.6) | 19.6(88.2) | 11.8(100.0) |
| 24 | 田中麻衣美 | 追捲 | 53 | 1.9 | 7.5( 9.4) | 17.0(26.4) | 5.7(32.1) | 22.6(54.7) | 20.8(75.5) | 24.5(100.0) |
| 25 | 三輪梓乃 | 捲追 | 53 | 1.9 | 5.7( 7.5) | 18.9(26.4) | 30.2(56.6) | 15.1(71.7) | 20.8(92.5) | 7.5(100.0) |
| 26 | 戸田みよ子 | 捲追 | 54 | 1.9 | 13.0(14.8) | 24.1(38.9) | 9.3(48.1) | 18.5(66.7) | 14.8(81.5) | 18.5(100.0) |
| 27 | 高松美代子 | 追込 | 54 | 1.9 | 9.3(11.1) | 31.5(42.6) | 22.2(64.8) | 9.3(74.1) | 11.1(85.2) | 14.8(100.0) |
| 28 | 門脇真由美 | 先捲 | 58 | 1.7 | 6.9( 8.6) | 19.0(27.6) | 29.3(56.9) | 13.8(70.7) | 17.2(87.9) | 12.1(100.0) |
| 29 | 加瀬加奈子 | 先捲 | 53 | 0.0 | 9.4( 9.4) | 7.5(17.0) | 26.4(43.4) | 26.4(69.8) | 18.9(88.7) | 11.3(100.0) |
| 30 | 後閑百合亜 | 追捲 | 52 | 0.0 | 7.7( 7.7) | 15.4(23.1) | 25.0(48.1) | 13.5(61.5) | 25.0(86.5) | 13.5(100.0) |
| 31 | 岡村育子 | 自在 | 57 | 0.0 | 5.3( 5.3) | 12.3(17.5) | 29.8(47.4) | 14.0(61.4) | 24.6(86.0) | 14.0(100.0) |
| 32 | 伊木雪乃 | 追込 | 48 | 0.0 | 2.1( 2.1) | 6.3( 8.3) | 18.8(27.1) | 31.3(58.3) | 18.8(77.1) | 22.9(100.0) |
| 33 | 越田恵美子 | 先捲 | 56 | 0.0 | 0.0( 0.0) | 1.8( 1.8) | 1.8( 3.6) | 3.6( 7.1) | 23.2(30.4) | 69.6(100.0) |
| 全選手平均 | 14.3 | 14.3(28.6) | 14.3(42.9) | 14.3(57.1) | 14.3(71.4) | 14.3(85.7) | 14.3(100.0) | |||
周回予想プログラムの 計算式 ，アルゴリズム については 「競輪分析データNo30 ガールズケイリン周回予想プログラムの作成」 を参照ください。今回は 計算式
Ｐposi(a,n,m) = Ｐ242(n,m) + ((Ｐ211(a,m)-Ｐ211(全選手平均,m))) ---- （ 式3-1-1 ）
のＰ211(a,m) の値を上の 表2-1-1_104 および 表2-1-1_102 の値で差し替えます。
（プログラムの @Name211 および @P211 の 配列変数の値を更新しています。）
以下が更新したプログラム grposi.pl のリストです。
ご利用の場合は、カット＆ペーストで notepad等のエディタに取り込み、
grposi.pl という名前で保存して下さい。）
プログラムの使用方法は 前回から変更がありません。 「競輪分析データNo30 ガールズケイリン周回予想プログラムの作成」 の ◆プログラムの実行例 を参照ください。
# grposi.pl 作成：遠山競輪研究所
# ガールズケイリンの周回位置を予想する。
# 2013.2.11 初版
# 2013.3.14 (公開用の変更)
# 2013.3.23 (公開用の変更２）
# 2013.5.30 102期生のデータ更新(〜2013.5.28のデータ) および 104期生のデータ追加（在校データによる）
#
# Usage: perl grposi.pl 32 21 19 11 16 2 20
#
## ----------------------------------------------
## ----------- 設定パラメータ --------------
$gm102=33; ## 102期生データ数
$gm104=18; ## 104期生データ数
$gmnum=$gm102+$gm104+1; ## 全データ数 : 全選手＋1(未設定選手分)
$dif_pposi=2.0; ## ２つめの周回予想を作成する Pposi計算値差
## ------------ 車番毎の初期位置確率 ------------- http://toh.to/Data-p30.htm で分析した結果を利用。 ---
## 例えば $www[1][3] の値は、 １番車選手の 初期位置 3番手以内にいる確率を示している
@P242=([0,0,0,0,0,0,0,0],
[0.0,20.7,51.0,73.3,88.0,95.9,98.8,100.0],
[0.0,15.7,38.1,60.0,79.0,91.0,95.8,100.0],
[0.0,14.7,29.8,49.0,69.0,84.5,93.0,100.0],
[0.0,13.7,24.4,38.5,54.5,72.0,88.5,100.0],
[0.0,12.7,20.9,30.4,43.0,61.1,81.0,100.0],
[0.0,11.7,18.7,25.7,35.5,50.5,75.0,100.0],
[0.0,10.7,17.3,23.4,31.4,45.0,68.0,100.0]);
@Name211=("----","浦部郁里","篠崎新純","中川諒子","小林莉子","渡辺ゆかり","山口菜津子","関口美穂","中山麗敏",
"藍野美穂","中村由香里","松尾智佳","森美紀","増茂るるこ","荒牧聖未","白井美早子","野口諭実可",
"尾上明子","田畑茉利名","近内稚明","藤原亜衣里","重光啓代","大和久保美","飯塚朋子","田中麻衣美",
"三輪梓乃","戸田みよ子","高松美代子","門脇真由美","加瀬加奈子","後閑百合亜","岡村育子","伊木雪乃",
"越田恵美子",
"小坂知子","梶田舞","奈良岡彩子","石井寛子","田中まい","石井貴子","矢野光世","三宅愛梨",
"明珍裕子","菅田賀子","手柴敦子","猪頭香緒里","杉沢毛伊子","猪子真実","井上玲美","青木志都加",
"倉野由紀","山原さくら","未設定選手");
@P211=([ 0.0,14.3,28.6,42.9,57.1,71.4,85.7,100,0], ### 平均値 ( = 0, 1/7, 2/7, 3/7, 4/7, 5/7, 6/7, 7/7 )
[ 0.0,57.1,73.2,83.9,87.5,91.1,98.2,100.0],
[ 0.0,53.8,65.4,73.1,76.9,80.8,88.5,100.0],
[ 0.0,48.0,58.0,58.0,68.0,88.0,100.0,100.0],
[ 0.0,46.0,64.0,72.0,72.0,78.0,90.0,100.0],
[ 0.0,28.6,53.6,64.3,69.6,83.9,91.1,100.0],
[ 0.0,24.5,49.0,63.3,75.5,89.8,93.9,100.0],
[ 0.0,19.0,45.2,61.9,76.2,85.7,92.9,100.0],
[ 0.0,18.6,51.2,74.4,81.4,88.4,93.0,100.0],
[ 0.0,18.0,48.0,74.0,80.0,92.0,96.0,100.0],
[ 0.0,17.9,53.6,78.6,91.1,96.4,98.2,100.0],
[ 0.0,16.7,42.6,59.3,74.1,87.0,96.3,100.0],
[ 0.0,16.7,25.9,38.9,44.4,61.1,75.9,100.0],
[ 0.0,13.8,29.3,41.4,53.4,75.9,84.5,100.0],
[ 0.0,13.6,22.7,50.0,59.1,77.3,88.6,100.0],
[ 0.0,13.0,31.5,51.9,72.2,79.6,92.6,100.0],
[ 0.0,12.8,36.2,40.4,51.1,63.8,83.0,100.0],
[ 0.0,12.3,24.6,31.6,43.9,61.4,80.7,100.0],
[ 0.0,11.3,27.4,38.7,54.8,62.9,79.0,100.0],
[ 0.0, 6.3,14.6,29.2,37.5,52.1,79.2,100.0],
[ 0.0, 3.7,24.1,33.3,48.1,70.4,87.0,100.0],
[ 0.0, 3.7, 9.3,18.5,51.9,72.2,87.0,100.0],
[ 0.0, 3.7, 7.4,16.7,31.5,55.6,83.3,100.0],
[ 0.0, 2.0,15.7,39.2,56.9,68.6,88.2,100.0],
[ 0.0, 1.9, 9.4,26.4,32.1,54.7,75.5,100.0],
[ 0.0, 1.9, 7.5,26.4,56.6,71.7,92.5,100.0],
[ 0.0, 1.9,14.8,38.9,48.1,66.7,81.5,100.0],
[ 0.0, 1.9,11.1,42.6,64.8,74.1,85.2,100.0],
[ 0.0, 1.7, 8.6,27.6,56.9,70.7,87.9,100.0],
[ 0.0, 0.0, 9.4,17.0,43.4,69.8,88.7,100.0],
[ 0.0, 0.0, 7.7,23.1,48.1,61.5,86.5,100.0],
[ 0.0, 0.0, 5.3,17.5,47.4,61.4,86.0,100.0],
[ 0.0, 0.0, 2.1, 8.3,27.1,58.3,77.1,100.0],
[ 0.0, 0.0, 0.0, 1.8, 3.6, 7.1,30.4,100.0],
[ 0.0,48.1,56.7,65.4,74.0,82.7,91.3,100.0],
[ 0.0,40.5,50.4,60.4,70.3,80.2,90.1,100.0],
[ 0.0,34.1,45.1,56.1,67.0,78.0,89.0,100.0],
[ 0.0,25.8,38.2,50.6,62.9,75.3,87.6,100.0],
[ 0.0,23.6,36.3,49.1,61.8,74.5,87.3,100.0],
[ 0.0,19.4,32.8,46.3,59.7,73.1,86.6,100.0],
[ 0.0,17.1,30.9,44.7,58.5,72.4,86.2,100.0],
[ 0.0,15.6,29.6,43.7,57.8,71.9,85.9,100.0],
[ 0.0,15.5,29.6,43.7,57.8,71.8,85.9,100.0],
[ 0.0,12.2,26.8,41.4,56.1,70.7,85.4,100.0],
[ 0.0, 4.7,20.6,36.5,52.4,68.2,84.1,100.0],
[ 0.0, 3.5,19.5,35.6,51.7,67.8,83.9,100.0],
[ 0.0, 2.4,18.7,34.9,51.2,67.5,83.7,100.0],
[ 0.0, 1.4,17.8,34.3,50.7,67.1,83.6,100.0],
[ 0.0, 0.0,16.7,33.3,50.0,66.7,83.3,100.0],
[ 0.0, 0.0,16.7,33.3,50.0,66.7,83.3,100.0],
[ 0.0, 0.0,16.7,33.3,50.0,66.7,83.3,100.0],
[ 0.0, 0.0,16.7,33.3,50.0,66.7,83.3,100.0],
[ 0.0,14.3,28.6,42.9,57.1,71.4,85.7,100,0]); ### 未登録選手 (=平均値)
for($ii=0; $ii<=$#ARGV; ++$ii){
if(($sno[++$snum]=$ARGV[$ii])<1 || $sno[$snum]>$gmnum){
$snerr=1;
}
}
if($#ARGV<0 || $snerr>0 || $snum<5 || $snum>7){
print "$0 -- ガールズケイリンの周回位置を予\想する。 \n";
print "Usage: perl $0 n1 n2 n3 n4 n5 n6 n7 \n";
print " (n1 〜 n7 には下表\の選手番号を１番車から順に並べて入力する。)\n";
print " ---- 選手番号一覧 102期生 -----------\n";
for($ii=1; $ii<=$gmnum; ++$ii){
printf "%2d %-10s ",$ii,$Name211[$ii];
print "\n" if(($ii%5==0 && $ii<=$gm102) || (($ii-$gm102)%5==0 && $ii>=$gm102)
|| $ii==$gm102+$gm104 || $ii==$gmnum || $ii==$gm102);
print " ---------------- 104期生 ---------\n" if($ii==$gm102);
}
print "\n*** Error! : 選手番号の個数は5個〜7個にして下さい！ ($snum)\n" if($snum>0 && ($snum<5 || $snum>7));
print "\n*** Error! : 選手番号は 1〜$gmnum の範囲で 指定してください!\n" if($snerr>0);
exit();
}
&pposi_prt(); ## Pposi[nn][mm]の計算と表記
&make_posi1(); ## 周回予想位置の作成
print "\n周回予\想１ ← $posi_str\n";
if(&make_posi2()>0){ ## 周回予想位置２の作成
print "周回予\想２ ← $posi_str2\n";
}
#----- make_posi1 周回予想１の作成 -------
sub make_posi1 {
my($nn,$mm,$maxp,$nx,@fixed);
for($mm=1; $mm<=$snum; ++$mm){
$maxp=-100;
$nx=0;
for($nn=1; $nn<=$snum; ++$nn){
if($fixed[$nn]==0 && $Pposi[$nn][$mm]>$maxp){
$maxp=$Pposi[$nn][$mm];
$nx=$nn;
}
}
$fixed[$nx]=1;
$posi_str .= $nx;
}
}
#----- make_posi2 周回予想２の作成 -------
sub make_posi2 {
my($nn,$mm,$maxp,$nx,$flg_another,@fixed);
## for($nn=1; $nn<=$snum; ++$nn){ $fixed[$nn]=0; }
for($mm=1; $mm<=$snum; ++$mm){
$maxp=-100;
$nx=0;
$org_nn=substr($posi_str,$mm-1,1);
for($nn=1; $nn<=$snum; ++$nn){
if($fixed[$nn]==0 && $Pposi[$nn][$mm]>$maxp && ($flg_another==1 || $nn!=$org_nn)){
$maxp=$Pposi[$nn][$mm];
$nx=$nn;
}
}
if($flg_another==0 && $maxp+ $dif_pposi > $Pposi[$org_nn][$mm] && $mm<$snum){ $flg_another=1; }
elsif($flg_another==0) { $nx=$org_nn; }
$fixed[$nx]=1;
$posi_str2 .= $nx;
}
return $flg_another;
}
### ------- Pposi[nn][mm] の計算と表示 -------------------------------
sub pposi_prt {
my($nn,$mm);
print "車番 選手名 1番手 〜2番手 〜3番手 〜4番手 〜5番手 〜6番手 〜7番手\n";
for($nn=1; $nn<=$snum; ++$nn){
printf " $nn %-10s",$Name211[$sno[$nn]];
for($mm=1; $mm<=$snum; ++$mm){
$Pposi[$nn][$mm]=$P242[$nn][$mm] + ($P211[$sno[$nn]][$mm] - $P211[0][$mm]);
printf " %5.1f",$Pposi[$nn][$mm];
}
print "\n";
}
}