Up プログラム 作成: 2022-03-04
更新: 2022-03-04


/**********************************************************************************************/ /********** 地域ブロック・国 *******************************************************/ /**********************************************************************************************/ /****** 北米 **********************************/ $t = 0; $block[$t] = "北米"; $bc[$t] = "#ccccff"; $j = 0; $nation[$t][$j++] = "米国"; $nation[$t][$j++] = "カナダ"; $nation_n[$t] = $j; /****** ヨーロッパ **********************************/ $t++; $block[$t] = "ヨーロッパ"; $bc[$t] = "#eeeeff"; $j = 0; $nation[$t][$j++] = "アイスランド"; $nation[$t][$j++] = "アイルランド"; $nation[$t][$j++] = "アゼルバイジャン"; $nation[$t][$j++] = "アルバニア"; $nation[$t][$j++] = "アルメニア"; $nation[$t][$j++] = "アンドラ"; $nation[$t][$j++] = "英国"; $nation[$t][$j++] = "イタリア"; $nation[$t][$j++] = "ウクライナ"; $nation[$t][$j++] = "エストニア"; $nation[$t][$j++] = "オランダ"; $nation[$t][$j++] = "オーストリア"; $nation[$t][$j++] = "オーランド島"; $nation[$t][$j++] = "ガーンジー島"; $nation[$t][$j++] = "キプロス"; $nation[$t][$j++] = "ギリシャ"; $nation[$t][$j++] = "クロアチア"; $nation[$t][$j++] = "グリーンランド"; $nation[$t][$j++] = "サンマリノ"; $nation[$t][$j++] = "ジブラルタル"; $nation[$t][$j++] = "ジャージー島"; $nation[$t][$j++] = "ジョージア"; $nation[$t][$j++] = "スイス"; $nation[$t][$j++] = "スウェーデン"; $nation[$t][$j++] = "スバールバル諸島・ヤンマイエン島"; $nation[$t][$j++] = "スペイン"; $nation[$t][$j++] = "スロバキア"; $nation[$t][$j++] = "スロベニア"; $nation[$t][$j++] = "セルビア"; $nation[$t][$j++] = "チェコ"; $nation[$t][$j++] = "デンマーク"; $nation[$t][$j++] = "ドイツ"; $nation[$t][$j++] = "ノルウェー"; $nation[$t][$j++] = "ハンガリー"; $nation[$t][$j++] = "バチカン"; $nation[$t][$j++] = "フィンランド"; $nation[$t][$j++] = "フェロー諸島"; $nation[$t][$j++] = "フランス"; $nation[$t][$j++] = "ブルガリア"; $nation[$t][$j++] = "ベラルーシ"; $nation[$t][$j++] = "ベルギー"; $nation[$t][$j++] = "ボスニア・ヘルツェゴヴィナ"; $nation[$t][$j++] = "ポルトガル"; $nation[$t][$j++] = "ポーランド"; $nation[$t][$j++] = "北マケドニア"; $nation[$t][$j++] = "マルタ"; $nation[$t][$j++] = "マン島"; $nation[$t][$j++] = "モナコ"; $nation[$t][$j++] = "モルドバ"; $nation[$t][$j++] = "モンテネグロ"; $nation[$t][$j++] = "ラトビア"; $nation[$t][$j++] = "リトアニア"; $nation[$t][$j++] = "リヒテンシュタイン"; $nation[$t][$j++] = "ルクセンブルク"; $nation[$t][$j++] = "ルーマニア"; $nation[$t][$j++] = "ロシア"; $nation_n[$t] = $j; /****** 中東 **********************************/ $t++; $block[$t] = "中東"; $bc[$t] = "#ffff33"; $j = 0; $nation[$t][$j++] = "アフガニスタン"; $nation[$t][$j++] = "アラブ首長国連邦"; $nation[$t][$j++] = "イエメン"; $nation[$t][$j++] = "イスラエル"; $nation[$t][$j++] = "イラク"; $nation[$t][$j++] = "イラン"; $nation[$t][$j++] = "オマーン"; $nation[$t][$j++] = "カタール"; $nation[$t][$j++] = "クウェート"; $nation[$t][$j++] = "サウジアラビア"; $nation[$t][$j++] = "シリア"; $nation[$t][$j++] = "トルコ"; $nation[$t][$j++] = "バーレーン"; $nation[$t][$j++] = "パレスチナ"; $nation[$t][$j++] = "ヨルダン"; $nation[$t][$j++] = "レバノン"; $nation_n[$t] = $j; /****** アジア **********************************/ $t++; $block[$t] = "アジア"; $bc[$t] = "#ffddaa"; $j = 0; $nation[$t][$j++] = "イギリス領インド洋地域"; $nation[$t][$j++] = "インド"; $nation[$t][$j++] = "インドネシア"; $nation[$t][$j++] = "ウズベキスタン"; $nation[$t][$j++] = "カザフスタン"; $nation[$t][$j++] = "韓国"; $nation[$t][$j++] = "カンボジア"; $nation[$t][$j++] = "北朝鮮"; $nation[$t][$j++] = "キルギス"; $nation[$t][$j++] = "ココス諸島"; $nation[$t][$j++] = "コモロ"; $nation[$t][$j++] = "シンガポール"; $nation[$t][$j++] = "スリランカ"; $nation[$t][$j++] = "タイ"; $nation[$t][$j++] = "台湾"; $nation[$t][$j++] = "タジキスタン"; $nation[$t][$j++] = "中国"; $nation[$t][$j++] = "トルクメニスタン"; $nation[$t][$j++] = "日本"; $nation[$t][$j++] = "ネパール"; $nation[$t][$j++] = "バングラデシュ"; $nation[$t][$j++] = "パキスタン"; $nation[$t][$j++] = "東ティモール"; $nation[$t][$j++] = "フィリピン"; $nation[$t][$j++] = "フランス領南方・南極地域"; $nation[$t][$j++] = "ブルネイ"; $nation[$t][$j++] = "ブータン"; $nation[$t][$j++] = "ヘアド島・マクドナルド諸島"; $nation[$t][$j++] = "ベトナム"; $nation[$t][$j++] = "香港"; $nation[$t][$j++] = "マカオ"; $nation[$t][$j++] = "マレーシア"; $nation[$t][$j++] = "ミャンマー"; $nation[$t][$j++] = "モルディブ"; $nation[$t][$j++] = "モンゴル"; $nation[$t][$j++] = "ラオス"; $nation_n[$t] = $j; /****** 中南米 **********************************/ $t++; $block[$t] = "中南米"; $bc[$t] = "#ccffcc"; $j = 0; $nation[$t][$j++] = "アルゼンチン"; $nation[$t][$j++] = "アルバ"; $nation[$t][$j++] = "アンギラ"; $nation[$t][$j++] = "アンティグア・バーブーダ"; $nation[$t][$j++] = "イースター島"; $nation[$t][$j++] = "ウルグアイ"; $nation[$t][$j++] = "エクアドル"; $nation[$t][$j++] = "エルサルバドル"; $nation[$t][$j++] = "ガイアナ"; $nation[$t][$j++] = "キュラソー"; $nation[$t][$j++] = "キューバ"; $nation[$t][$j++] = "グアテマラ"; $nation[$t][$j++] = "グアドループ"; $nation[$t][$j++] = "グレナダ"; $nation[$t][$j++] = "ケイマン諸島"; $nation[$t][$j++] = "コスタリカ"; $nation[$t][$j++] = "コロンビア"; $nation[$t][$j++] = "ジャマイカ"; $nation[$t][$j++] = "スリナム"; $nation[$t][$j++] = "セントクリストファー・ネイビス"; $nation[$t][$j++] = "セントビンセント・グレナディーン"; $nation[$t][$j++] = "サンタルチア"; $nation[$t][$j++] = "セント・マーチン"; $nation[$t][$j++] = "タークス&ケイコス諸島"; $nation[$t][$j++] = "チリ"; $nation[$t][$j++] = "トリニダード・トバゴ"; $nation[$t][$j++] = "ドミニカ共和国"; $nation[$t][$j++] = "ドミニカ国"; $nation[$t][$j++] = "ニカラグア"; $nation[$t][$j++] = "ハイチ"; $nation[$t][$j++] = "バハマ"; $nation[$t][$j++] = "バミューダ"; $nation[$t][$j++] = "バルバドス"; $nation[$t][$j++] = "バージン諸島(イギリス)"; $nation[$t][$j++] = "パナマ"; $nation[$t][$j++] = "パラグアイ"; $nation[$t][$j++] = "フォークランド諸島"; $nation[$t][$j++] = "フランス領ギアナ"; $nation[$t][$j++] = "ブラジル"; $nation[$t][$j++] = "プエルトリコ"; $nation[$t][$j++] = "ベネズエラ"; $nation[$t][$j++] = "ベリーズ"; $nation[$t][$j++] = "BES諸島"; $nation[$t][$j++] = "ペルー"; $nation[$t][$j++] = "ホンジュラス"; $nation[$t][$j++] = "ボリビア"; $nation[$t][$j++] = "ヴァージン諸島(アメリカ)"; $nation[$t][$j++] = "マルティニーク"; $nation[$t][$j++] = "南ジョージア島・南サンドイッチ諸島"; $nation[$t][$j++] = "メキシコ"; $nation[$t][$j++] = "モンセラート"; $nation_n[$t] = $j; /****** アフリカ **********************************/ $t++; $block[$t] = "アフリカ"; $bc[$t] = "#ffbbee"; $j = 0; $nation[$t][$j++] = "アルジェリア"; $nation[$t][$j++] = "アンゴラ"; $nation[$t][$j++] = "ウガンダ"; $nation[$t][$j++] = "エジプト"; $nation[$t][$j++] = "エスワティニ"; $nation[$t][$j++] = "エチオピア"; $nation[$t][$j++] = "エリトリア"; $nation[$t][$j++] = "カメルーン"; $nation[$t][$j++] = "カーボ・ベルデ"; $nation[$t][$j++] = "ガボン"; $nation[$t][$j++] = "ガンビア"; $nation[$t][$j++] = "ガーナ"; $nation[$t][$j++] = "ギニア"; $nation[$t][$j++] = "ギニアビサウ"; $nation[$t][$j++] = "ケニア"; $nation[$t][$j++] = "コンゴ共和国"; $nation[$t][$j++] = "コンゴ民主共和国"; $nation[$t][$j++] = "コートジボワール"; $nation[$t][$j++] = "サントメ・プリンシペ"; $nation[$t][$j++] = "ザンビア"; $nation[$t][$j++] = "シエラレオネ"; $nation[$t][$j++] = "ジブチ"; $nation[$t][$j++] = "ジンバブエ"; $nation[$t][$j++] = "スワジランド"; $nation[$t][$j++] = "スーダン共和国"; $nation[$t][$j++] = "セーシェル"; $nation[$t][$j++] = "赤道ギニア"; $nation[$t][$j++] = "セネガル"; $nation[$t][$j++] = "セントヘレナ島"; $nation[$t][$j++] = "ソマリア"; $nation[$t][$j++] = "タンザニア"; $nation[$t][$j++] = "チャド"; $nation[$t][$j++] = "中央アフリカ"; $nation[$t][$j++] = "チュニジア"; $nation[$t][$j++] = "トーゴ"; $nation[$t][$j++] = "ナイジェリア"; $nation[$t][$j++] = "ナミビア"; $nation[$t][$j++] = "西サハラ"; $nation[$t][$j++] = "ニジェール"; $nation[$t][$j++] = "ブルキナファソ"; $nation[$t][$j++] = "ブルンジ"; $nation[$t][$j++] = "ベナン"; $nation[$t][$j++] = "ボツワナ"; $nation[$t][$j++] = "マダガスカル"; $nation[$t][$j++] = "マヨット島"; $nation[$t][$j++] = "マラウイ"; $nation[$t][$j++] = "マリ"; $nation[$t][$j++] = "南アフリカ"; $nation[$t][$j++] = "南スーダン"; $nation[$t][$j++] = "モザンビーク"; $nation[$t][$j++] = "モロッコ"; $nation[$t][$j++] = "モーリシャス"; $nation[$t][$j++] = "モーリタニア"; $nation[$t][$j++] = "リビア"; $nation[$t][$j++] = "リベリア"; $nation[$t][$j++] = "ルワンダ"; $nation[$t][$j++] = "レソト"; $nation[$t][$j++] = "レユニオン"; $nation_n[$t] = $j; /****** オセアニア **********************************/ $t++; $block[$t] = "オセアニア"; $bc[$t] = "#99f7ff"; $j = 0; $nation[$t][$j++] = "アメリカ領太平洋諸島"; $nation[$t][$j++] = "アメリカン・サモア"; $nation[$t][$j++] = "ウォリス&フトゥナ"; $nation[$t][$j++] = "オーストラリア"; $nation[$t][$j++] = "キリバス"; $nation[$t][$j++] = "クック諸島"; $nation[$t][$j++] = "クリスマス島"; $nation[$t][$j++] = "グアム"; $nation[$t][$j++] = "サイパン"; $nation[$t][$j++] = "サモア"; $nation[$t][$j++] = "ソロモン諸島"; $nation[$t][$j++] = "タヒチ"; $nation[$t][$j++] = "ツバル"; $nation[$t][$j++] = "トケラウ諸島"; $nation[$t][$j++] = "トンガ"; $nation[$t][$j++] = "ナウル"; $nation[$t][$j++] = "ニウエ"; $nation[$t][$j++] = "ニューカレドニア"; $nation[$t][$j++] = "ニュージーランド"; $nation[$t][$j++] = "ノーフォーク島"; $nation[$t][$j++] = "バヌアツ"; $nation[$t][$j++] = "パプアニューギニア"; $nation[$t][$j++] = "パラオ"; $nation[$t][$j++] = "ピトケアン"; $nation[$t][$j++] = "フィジー"; $nation[$t][$j++] = "マーシャル諸島"; $nation[$t][$j++] = "ミクロネシア"; $nation_n[$t] = $j; $t++; $block_n = $t; /**********************************************************************************************/ /********** カテゴリー *******************************************************/ /**********************************************************************************************/ /****** 賛成(141カ国) **********************************/ $s = 0; $category[$s] = "賛成 (141カ国)"; $i = 0; $member[$s][$i++] = "アフガニスタン"; $member[$s][$i++] = "アルバニア"; $member[$s][$i++] = "アンドラ"; $member[$s][$i++] = "アンティグア・バーブーダ"; $member[$s][$i++] = "アルゼンチン"; $member[$s][$i++] = "オーストラリア"; $member[$s][$i++] = "オーストリア"; $member[$s][$i++] = "バハマ"; $member[$s][$i++] = "バルバドス"; $member[$s][$i++] = "ベルギー"; $member[$s][$i++] = "ベリーズ"; $member[$s][$i++] = "ボスニア・ヘルツェゴヴィナ"; $member[$s][$i++] = "ボツワナ"; $member[$s][$i++] = "ブルガリア"; $member[$s][$i++] = "カンボジア"; $member[$s][$i++] = "カナダ"; $member[$s][$i++] = "チリ"; $member[$s][$i++] = "コロンビア"; $member[$s][$i++] = "コスタリカ"; $member[$s][$i++] = "クロアチア"; $member[$s][$i++] = "キプロス"; $member[$s][$i++] = "チェコ"; $member[$s][$i++] = "コンゴ民主共和国"; $member[$s][$i++] = "デンマーク"; $member[$s][$i++] = "エクアドル"; $member[$s][$i++] = "エストニア"; $member[$s][$i++] = "フィジー"; $member[$s][$i++] = "フィンランド"; $member[$s][$i++] = "フランス"; $member[$s][$i++] = "ガンビア"; $member[$s][$i++] = "ジョージア"; $member[$s][$i++] = "ドイツ"; $member[$s][$i++] = "ガーナ"; $member[$s][$i++] = "ギリシャ"; $member[$s][$i++] = "グレナダ"; $member[$s][$i++] = "グアテマラ"; $member[$s][$i++] = "ガイアナ"; $member[$s][$i++] = "ハイチ"; $member[$s][$i++] = "ハンガリー"; $member[$s][$i++] = "アイスランド"; $member[$s][$i++] = "インドネシア"; $member[$s][$i++] = "アイルランド"; $member[$s][$i++] = "イスラエル"; $member[$s][$i++] = "イタリア"; $member[$s][$i++] = "ジャマイカ"; $member[$s][$i++] = "日本"; $member[$s][$i++] = "キリバス"; $member[$s][$i++] = "クウェート"; $member[$s][$i++] = "ラトビア"; $member[$s][$i++] = "リベリア"; $member[$s][$i++] = "リヒテンシュタイン"; $member[$s][$i++] = "リトアニア"; $member[$s][$i++] = "ルクセンブルク"; $member[$s][$i++] = "マラウイ"; $member[$s][$i++] = "マルタ"; $member[$s][$i++] = "マーシャル諸島"; $member[$s][$i++] = "ミクロネシア"; $member[$s][$i++] = "モナコ"; $member[$s][$i++] = "モンテネグロ"; $member[$s][$i++] = "ミャンマー"; $member[$s][$i++] = "オランダ"; $member[$s][$i++] = "ニュージーランド"; $member[$s][$i++] = "ニジェール"; $member[$s][$i++] = "北マケドニア"; $member[$s][$i++] = "ノルウェー"; $member[$s][$i++] = "パラオ"; $member[$s][$i++] = "パナマ"; $member[$s][$i++] = "パプアニューギニア"; $member[$s][$i++] = "パラグアイ"; $member[$s][$i++] = "ペルー"; $member[$s][$i++] = "ポーランド"; $member[$s][$i++] = "ポルトガル"; $member[$s][$i++] = "カタール"; $member[$s][$i++] = "韓国"; $member[$s][$i++] = "モルドバ"; $member[$s][$i++] = "ルーマニア"; $member[$s][$i++] = "セントクリストファー・ネイビス"; $member[$s][$i++] = "サモア"; $member[$s][$i++] = "サンマリノ"; $member[$s][$i++] = "シンガポール"; $member[$s][$i++] = "スロバキア"; $member[$s][$i++] = "スロベニア"; $member[$s][$i++] = "スペイン"; $member[$s][$i++] = "スリナム"; $member[$s][$i++] = "スウェーデン"; $member[$s][$i++] = "スイス"; $member[$s][$i++] = "東ティモール"; $member[$s][$i++] = "トンガ"; $member[$s][$i++] = "トリニダード・トバゴ"; $member[$s][$i++] = "トルコ"; $member[$s][$i++] = "ツバル"; $member[$s][$i++] = "ウクライナ"; $member[$s][$i++] = "英国"; $member[$s][$i++] = "米国"; $member[$s][$i++] = "ウルグアイ"; $member[$s][$i++] = "バーレーン"; $member[$s][$i++] = "ベナン"; $member[$s][$i++] = "ブータン"; $member[$s][$i++] = "ブラジル"; $member[$s][$i++] = "ブルネイ"; $member[$s][$i++] = "カーボ・ベルデ"; $member[$s][$i++] = "チャド"; $member[$s][$i++] = "コモロ"; $member[$s][$i++] = "コートジボワール"; $member[$s][$i++] = "ジブチ"; $member[$s][$i++] = "ドミニカ共和国"; $member[$s][$i++] = "ドミニカ国"; $member[$s][$i++] = "エジプト"; $member[$s][$i++] = "ガボン"; $member[$s][$i++] = "ホンジュラス"; $member[$s][$i++] = "ヨルダン"; $member[$s][$i++] = "ケニア"; $member[$s][$i++] = "レバノン"; $member[$s][$i++] = "レソト"; $member[$s][$i++] = "リビア"; $member[$s][$i++] = "マレーシア"; $member[$s][$i++] = "モルディブ"; $member[$s][$i++] = "モーリタニア"; $member[$s][$i++] = "モーリシャス"; $member[$s][$i++] = "メキシコ"; $member[$s][$i++] = "ナウル"; $member[$s][$i++] = "ネパール"; $member[$s][$i++] = "ナイジェリア"; $member[$s][$i++] = "オマーン"; $member[$s][$i++] = "フィリピン"; $member[$s][$i++] = "ルワンダ"; $member[$s][$i++] = "サンタルチア"; $member[$s][$i++] = "セントビンセント・グレナディーン"; $member[$s][$i++] = "サントメ・プリンシペ"; $member[$s][$i++] = "サウジアラビア"; $member[$s][$i++] = "セルビア"; $member[$s][$i++] = "セーシェル"; $member[$s][$i++] = "シエラレオネ"; $member[$s][$i++] = "ソロモン諸島"; $member[$s][$i++] = "ソマリア"; $member[$s][$i++] = "タイ"; $member[$s][$i++] = "チュニジア"; $member[$s][$i++] = "アラブ首長国連邦"; $member[$s][$i++] = "バヌアツ"; $member[$s][$i++] = "イエメン"; $member[$s][$i++] = "ザンビア"; $member_n[$s] = $i; /****** 反対(5カ国) **********************************/ $s++; $category[$s] = "反対 (5カ国)"; $i = 0; $member[$s][$i++] = "ロシア"; $member[$s][$i++] = "ベラルーシ"; $member[$s][$i++] = "シリア"; $member[$s][$i++] = "北朝鮮"; $member[$s][$i++] = "エリトリア"; $member_n[$s] = $i; /****** 無投票(12カ国) **********************************/ $s++; $category[$s] = "無投票 (12カ国)"; $i = 0; $member[$s][$i++] = "アゼルバイジャン"; $member[$s][$i++] = "ブルキナファソ"; $member[$s][$i++] = "カメルーン"; $member[$s][$i++] = "エスワティニ"; $member[$s][$i++] = "エチオピア"; $member[$s][$i++] = "ギニア"; $member[$s][$i++] = "ギニアビサウ"; $member[$s][$i++] = "モロッコ"; $member[$s][$i++] = "トーゴ"; $member[$s][$i++] = "トルクメニスタン"; $member[$s][$i++] = "ウズベキスタン"; $member[$s][$i++] = "ベネズエラ"; $member_n[$s] = $i; /****** 棄権(35カ国) **********************************/ $s++; $category[$s++] = "棄権 (35カ国)"; $i = 0; $member[$s][$i++] = "アルジェリア"; $member[$s][$i++] = "アンゴラ"; $member[$s][$i++] = "アルメニア"; $member[$s][$i++] = "バングラデシュ"; $member[$s][$i++] = "ボリビア"; $member[$s][$i++] = "ブルンジ"; $member[$s][$i++] = "中央アフリカ"; $member[$s][$i++] = "中国"; $member[$s][$i++] = "コンゴ共和国"; $member[$s][$i++] = "キューバ"; $member[$s][$i++] = "エルサルバドル"; $member[$s][$i++] = "赤道ギニア"; $member[$s][$i++] = "インド"; $member[$s][$i++] = "イラン"; $member[$s][$i++] = "イラク"; $member[$s][$i++] = "カザフスタン"; $member[$s][$i++] = "キルギス"; $member[$s][$i++] = "ラオス"; $member[$s][$i++] = "マダガスカル"; $member[$s][$i++] = "マリ"; $member[$s][$i++] = "モンゴル"; $member[$s][$i++] = "モザンビーク"; $member[$s][$i++] = "ナミビア"; $member[$s][$i++] = "ニカラグア"; $member[$s][$i++] = "パキスタン"; $member[$s][$i++] = "セネガル"; $member[$s][$i++] = "南アフリカ"; $member[$s][$i++] = "南スーダン"; $member[$s][$i++] = "スーダン共和国"; $member[$s][$i++] = "スリランカ"; $member[$s][$i++] = "タジキスタン"; $member[$s][$i++] = "ウガンダ"; $member[$s][$i++] = "タンザニア"; $member[$s][$i++] = "ベトナム"; $member[$s][$i++] = "ジンバブエ"; $member_n[$s] = $i; $s++; $category_n = $s; /**********************************************************************************************/ /****** (地域ブロック・国) に,カテゴリーを対応 ( $position ) **********/ /**********************************************************************************************/ /****** 地域ブロック **************/ for( $t = 0; $t < $block_n; $t++ ){ /****** 地域ブロックごとの国 **************/ for( $j = 0; $j < $nation_n[$t]; $j++ ){ /****** カテゴリー **************/ $flag = 0; for( $s = 0; $s < $category_n; $s++ ){ if( $flag == 1 ){ break; } /****** カテゴリーごとの国 **************/ for( $i = 0; $i < $member_n[$s]; $i++ ){ if( strcmp( $member[$s][$i], $nation[$t][$j] ) == 0 ) { /* (地域ブロック・国) に,カテゴリーを対応 */ $position[$t][$j] = $s; $flag = 1; break; } } } } } /**********************************************************************************************/ /********* 表の書き出し*****************************************************************/ /**********************************************************************************************/ /****** 地域の色 **************/ for( $t = 0; $t < $block_n; $t++ ){ print " <font color=\"".$bc[$t]."\">■</font> ".$block[$t]." "; } print " <br><br> <table><tr>"; /****** カテゴリー **************/ for( $s = 0; $s < $category_n; $s++ ){ print " <td valign=top align=center> ".$category[$s]." <table border=1 cellspacing=0 cellpadding=2>"; /****** 地域ブロック **************/ for( $t = 0; $t < $block_n; $t++ ){ /****** 地域ブロックごとの国 **************/ for( $j = 0; $j < $nation_n[$t]; $j++ ){ if( isset( $position[$t][$j] ) ){ if( $position[$t][$j] == $s ){ print " <tr bgcolor=\"".$bc[$t]."\"><td>".$nation[$t][$j]."</td></tr>"; } } } } print " </table>"; if( $s < $category_n - 1 ){ print " <td> </td>"; } } print " </tr></table>