こぼれネット | ページ 277 | 江端智一のホームページ

「え! そんな重大な背信行為を江端さんに働いたのですか？」

2015年3月8日2015,江端さんの忘備録

先日、夕食を食べる為に、本を1冊持って食堂に行こうとした時に、後輩に見つかりました。

The other day, when I was going to go to the dining room to eat dinner with a book, I was found by a junior.

後輩A：「江端さん、夕食ですか。一緒に行きましょう」

A:"Ebata-san, are you going to dinner?" Let's go together"

江端：「本、読むから、駄目」

Ebata: "No. Because I read this book"

後輩A：「私と一緒に飯を食うより、本を読むのが大切だと言うのですか」

A: "Do you say that it is more important to read a book than you eat a meal with me?"

江端：「当然だろうが。君にこの本の価値の1/100でもあると思っているのか。ずうずうしいぞ」

Ebata: "Of course. Do you think it is 1/100 of the value of this book to you? How impudent you are!"

後輩A：「何読んでいるんですか」

A: "What do you read?"

江端：「これは、大逆事件を扱った小説だ」

Ebata: "This is the novel which handled a case of high treason"

後輩A：「明治時代にあった、天皇陛下暗殺計画の話でしたっけ」

A: "Was it the story of the His Majesty the Emperor's Assassination plan in the Meiji era?"

江端：「ま、そんなところだが、どうでもいいだろう」

Ebata: "Sort of. Anyway, it is not your business."

後輩A：「じゃあ、江端さんは本を読んでいてもいいです。一緒に御飯食べましょう」

A: "Then Ebata-san may read a book. Let's go to dinner together"

江端：「意味が分からん」

Ebata: "Nonsense"

後輩A：「それとも私と飯食べるのが、そんなに嫌ですか」

A: "Do you hate eating with me?"

江端：「全身全霊で、君と飯を食うのは嫌だ。飯くらい一人で食え」

Ebata:" I hate eating with you at the bottom of my heart. Eat a meal alone"

後輩A：「本当は嬉しいくせに」

A:"You are actually glad aren't you?"

江端：「私の一日に2回しかない『一人飯パラダイス』の時間を奪う奴は、全て敵だ。とっとと失せろ」

Ebata: "Any person who eats up my two times a day of "the one meal paradise" is enemy. Get out quickly"

後輩A：「頑固だなー、このオッサンは」

A: "How stubborn this old man is!"

江端：「分からん奴だなー、お前も。それとも、お前にこの本を超えるだけのネタを提供する自信あるのか」

Ebata: "How stupid this guy is! Do you have any good small talk that gives pleasure to me?"

後輩A：「ありますよ。当然じゃないですか」

A: "Of course, I have"

―― そして、翌日

The next day,

江端：「おい、後輩Aを監視するのはお前の仕事だろうが。一体何をしている。あいつが、私の一人メシの邪魔にきたぞ」

Ebata: "Hey, watching A is your work isn't it? What are you doing? A was coming to destroy my "meal alone" yesterday"

後輩B：「え! そんな重大な背信行為を江端さんに働いたのですか？」

B: "Really? Did he commit such a serious betrayal to Ebata-san?"

江端：「何故、奴を放し飼いにしているんだ。監督不行届だぞ」

Ebata: "Why do you keep him loose? It is your responsibility"

後輩B：「まさか、江端さんに対して、そのような大逆を謀るとは、思いもよりませんでしたので」

B: "Such his bestial wickedness for Ebata-San is beyond my imagination"

江端：「まあ、今回に限っては、コラムネタを1本提供したので、許すことにしたが、以後、持ちネタもなく、私の至高の一人メシ時間を邪魔した日には・・・」

Ebata: "Well, I decided to forgive him only this time, because he donated one column topic. But if he does the same thing without topics, I will..."

後輩B：「分かっております。皆までおっしゃらずとも結構です」

B: "Understood. You don't have to say it all"

------

娘たちにこの話をしたら「それ、本当に地球上で行われた会話？」と尋ねられましたが、

When I told this above story to my daughters, they asked me "Was that a real conversation in the world".

―― 概ね実話です。

It was almost a true story.

『こういうバカがいるから、自分の借金の金利の計算もできないまま、自己破産していく人が断たないのだ』

2015年3月2日2015,江端さんの忘備録

最近、本屋やテレビで「日本が誇る○○技術」という言葉を聞きます。

Recently, I have often heard the phrase "Technology that Japan boasts to the world" in a bookstore and TV program.

凄い違和感と(ときおり嫌悪感も)感じます。

Whenever I hear the phrase, I have an incredible feeling of wrongness and disgust.

-----

以前、学費の調査を行ったときに、日本の文系、理系比率を日本の全部の出身大学から算出してみたことがあります。

Previously, when I investigated school expressions in Japan, I calculated a ratio between the humanities and sciences departments.

ざっくり、7：3。

It's almost 7:3.

理系学部出身者が、全部、科学者やエンジニアになっている訳ではないことを考えると、さらに文系比率が高いことになりそうです。

The ratio of the humanities department might become high because not all of the students who graduated from the sciences department become scientists and engineers.

今、この日記を電車の中で書いているのですが、この車両に30人ほどいますので、理系の職業についている人は9人程度となる訳です。

I am writing this daily on a commuter train, and I can find almost 30 people in this cargo. So, there are only nine people who work in the science field.

それはさておき。

The above aside.

-----

以前、我が国が「ゆとり教育」という試みを行った時、

When Japan used to try a new education concept of "pressure-free education," the so-called,

―― 二次方程式などは社会へ出て何の役にも立たないので、このようなものは追放すべきだ

"Quadratic equations are not useful for our lives at all, so we should banish them."

という、奥方(作家)の意見を間に受けて、我が国の数学力の低下に最大限の貢献をした作家がいたそうです。

There seemed to be a fatuous novelist who contributed significantly to lowering mathematics in Japan, taking his wife's comment seriously.

『こういう奴がいるから、自分の借金の金利の計算もできないまま、自己破産していく人が断たないのだ』

"Because of the existence of such a fool, the number of people who go bankrupt without calculating their rate of debt is increasing.

と思ったことを、よく覚えています。

I remember very well at that time.

(続く)

(To be continued)

「一本ピンと筋の通った、頑固一徹な、イチャイチャベタベタ」

2014年12月26日2014,江端さんの忘備録

若いカップルの皆さん。

Dear young couples.

クリスマスイブならびにクリスマスを、公共の場所で、イチャイチャベタベタして良い日だと勝手な解釈をしていませんか。

Do you stretch a point that you are allowed to behave "lovey-dovey" in public during Christmas days?

私は、そういうの大嫌いなんですよ。

I wouldn't say I like the thought.

いえ、イチャイチャベタベタが嫌いなのではありません。

No. I don't hate "lovey-dovey" in public.

私は、「イチャイチャベタベタなくして、何の為の恋愛か」と考えることができる、リア充擁護派の一人です。

I am a fruitful life apologist who can think about "why we should fall in love without "lovey-dovey."

-----

私が大嫌いなことは、クリスマスになると、まるで免罪符のように、イチャイチャベタベタを始めるという、その定見のなさです。

I hate that some couples, who have no definite opinion, begin "lovey-dovey" like an indulgence when the Christmas period starts.

その大衆に迎合し、権力に阿る(おもねる)、『クリスマスに限っては、世間が許している』と思う、その甘えの構造です

I also hate the structure of emotional dependence that is playing to the gallery, bowing before authority, and the thought of "we are allowed during the Christmas days."

―― この、唾棄すべき小市民めが!

"Abominable petty bourgeoisies"

私は、若いカップル達に、いついかなる時にも、どこにいようと、何を言われようと、どんな視線に晒されようとも、イチャイチャベタベタし続けるという、

I want young couples to enforce continuing "lovey-dovey" whenever, wherever, whatever anybody says, what anybody valuates.

That means

「一本ピンと筋の通った、頑固一徹な、イチャイチャベタベタ」

"Coherent and stubborn "lovey-dovey."

を実施して欲しいのです。

-----

と、ここまでが建前です。

The above is just my words.

昨日(クリスマス)の夜に、比較的早い時間に帰宅した私も悪いんですけどね。

I was wrong because I came back home at a relatively earlier time than every day.

帰宅の小田急電車中で、おたがいの髪を愛撫したり、抱きついたり、キスしたりするカップルを発見して、イライラしているのに気がつきました。

On the commuting train, I noticed that I was annoyed by watching the young couple who caressed their hair each other, hugged, and kissed.

自分で自分にビックリしました。

I was shocked at what I was thinking.

そして、30年前の自分を省みて、

I remember thirty years ago,

―― あの頃、世間の人たちは、よく私たちのイチャイチャベタベタを見逃していてくれたものだなぁ

"Why could they overlook our "lovey-dovey" at that time?"

と、感謝の気持ちすら沸き起こってきます。

I even felt deep gratitude for this world.

-----

―― 世の中は、私たちにかなり優しかった

"The world has been considerably kind to us."

と気がつかせてくれる、クリスマスです。

It is the Christmas day that lets me know that.

ユダヤ問題、パレスチナ問題では、「シオニスト」という言葉が登場します。

2014年12月7日2014,江端さんの忘備録

池上彰さんの「そうだったのか! 現代史」を読み終えました。

I have finished reading "Contemporary History, I Got It!" written by Ikegami Akira-san.

この説明の巧さには、まったく舌を巻きます。

I am astonished at his understandable explanations at all times.

昨日も書きましたが、分かりやすい本は、それだけで価値があるのです。

I wrote the same thing in yesterday's diary. I think a book that is easy to read is valuable for that reason.

-----

ただ、「分かりやすい本」というのは、多分に主観が入るので難しいです。

However, it isn't easy to judge whether the book is easy to understand because it depends on each person's thoughts.

例えば、今、次女が凄い勢いで読んでいる「物語シリーズ」を、「難しい」から読まないといっている社会人の研究員もいます。

For example, the "Monogatari series" addicts my daughter, an adult researcher, who doesn't like it because he feels "difficult."

それはさておき。

That aside,

-----

ユダヤ問題、パレスチナ問題では、「シオニスト」という言葉が登場します。

We cannot avoid using the word "Zionist" when we have to talk about the "Jewish problem" and "Palestine problem."

この概念なくして、これらの問題は語れないからです。

We cannot discuss this problem without this concept.

しかし、日本人でもある私には、どうしても「塩ニスト」と見えてしまうのですよね。

However, I, also Japanese, cannot help reading "Salt-ist."

塩の英語発音「ソルト」とは「貨幣」と言う意味もあり、実際、古代では軍人の給与として取り扱われていました。

"Salt" also has a meaning of "money," and in fact, salt was used as a paycheck for soldiers in ancient times.

サラリーマンの語源は、この「ソルト」に由来するそうです。

I heard that the origin of "Salary man" was derived from the word "salt."

―― ということは、自由経済主義者とは、すべからく「塩ニスト」といってもいいかなぁ

That means,

Nobody blames me if I say, "the person who has a principle of the free economy might be called "Salt-ist"

などと、まあ、くだらないことを、ぼんやりと考えたりしています。

I am thinking that some worthless thing darkly in this weekend.

姉:「(市役所に)何かした？(しかけた？)」

2014年12月2日2014,江端さんの忘備録

今回、父の介護認定手続の為に、実家に帰省していました。

Last week, I was in my country home to apply for my father's nursing care insurance.

介護のランクを決める為に、市役所の人が直接やってきて父に質問等をするので、そのサポートをする為です。

To set the nursing level, a municipal officer visited my father's house and interviewed him, so I was supposed to help my father.

この様子については、いつかお話しようと思っています。

I am going to tell you about the interview at the next time.

姉の娘に、今回の申請書類の提出の為、市役所に行って貰ったそうです。

My sister's daughter went to the municipal office to submit the document for the nursing care insurance.

親戚から様々なアシストとして貰えて、大変助かっています。

I am happy that my relations helped me with several issues.

-----

姉が、その時の手続の様子を伝えてくれました。

My sister told me about the time when the daughter submitted the documents.

姉:「『係の人が、申請者指名に『江端智一』という記載を見つけたら、即座に市役所の係が手続を始めた』と言っていたよ」

Sis: "She said that "the person in the office started the process as soon as she found the name "Tomoichi Ebata" in the document."

江端:「ふーん」

Ebata:" I see."

姉:「(市役所に)何かした？(しかけた？)」

Sis: "Did you do something to the office?"

江端:「全く覚えはないんだけど・・・」

Ebata:" I don't know at all."

-----

私は、市役所の人に対して、脅迫したり、恫喝したり、賄賂をおくったり、その他、ありとあらゆる不正を、一切行ったことはありません。

I didn't take any action regarding threats, intimidation, bribes, and other unfair actions against the municipal office.

役所の人と、敵対関係になったことは、ないと思います。

In addition, I don't remember getting adversarial with the officer.

むしろ、手続を円滑に進める為に、書物やネットで徹底的に下調べをして、必要なら法律の条文まで読み込んでから、役所の窓口に出かけているくらいです。

Before going to the office, I studied the process very hard through books and the net, and I read letters of the law if necessary to go through the procedure.

自分では、これ以上もないくらい、親切で、友好的対応をしていると思っているのですが。

I believe that I am kind and give a friendly response to the office at an extreme level.

――　ママ友は、暗号を使ってメール通信を行っている

2014年10月6日2014,江端さんの忘備録

以前、ある人のブログで、いわゆる「ママ友」どうしのメールを読んだことがあります。

The other day, I read a so-called mail of "mother of my child friend" in a person's blog.

全然わからん。

I don't understand what she wants to say.

■一つのフレーズが非常に長い

- One phase is too long.

■そのフレーズ間の接続詞、「でもね」「だからね」が、そのフレーズの関連の役割を果たしていない。

- There are a lot of conjunctions in her mail, but the conjunction doesn't work well, for example "However" and "therefore"

■フレーズの語尾に、やたら「ごめんね」が多い。

- The words "Sorry" come at the end of the sentence.

総じて、「メールの趣旨が読みとれない」。

Generally speaking, I cannot understand the contents of the mail.

------

ところが、嫁さんは、そのメールを読むと、その趣旨を一読で理解して、的確にその要旨を解説してくれました。

However, as soon as my wife read the mail, she could understand and teach me the content.

私、そのとき、わかったのです。

At that time, I could find a fact.

――　ママ友は、暗号を使ってメール通信を行っている

"Mother of my child friend" uses cryptographs in her mail."

のだと。

そのメールは、その環境を理解できるものだけがもつ公開鍵で、その内容を理解することができるのだ、と。

The mail will be decoded and understood by an open key so that the particular persons can understand the background of each other.

-----

我々（特に理系頭脳の、さらには男性）は、このようなメールを、「意味がわからない」「論理破綻している」などと言ってきました。

We, especially men in the science and engineering majors, keep saying that these emails are "incomprehensible" or "unintelligible."

とんでもない誤解でした。

This is a ridiculous misunderstanding.

なんのことはない。

Nothing special.

私たちに、暗号解読のデコーダーがなかっただけだったのことだったのです。

We don't have a decode key to resolve the cryptograph mail.

批判されるべきは、ママ友が有する高度な情報解析能力機能を有しない、

――　私たち理系男だったのです。

Men in the science and engineering majors who do not have the ability for high information analysis function of the mothers should be criticized.

―― 江端さんって、ナチズムの信奉者なのですか？

2014年9月5日2014,江端さんの忘備録

めずらしく、海外のSF小説を読んでいました。

After a long time, I have finished reading a foreign book of science fiction.

「ナチの亡霊」という本なのですが、科学ネタが多くて、それなりに面白かったです。

The title was "Black order” that includes a lot of science tips. I enjoyed it.

私は、「ナチ」とか「ヒトラー」とかが含まれている本に、フラフラと近寄っていく性癖があるようです。

I seem to be disposed to approach books whose title includes "Nazi" or "Hitler".

それを見た、私の後輩が、

My junior coworker, who know the above, asked me that

―― 江端さんって、ナチズムの信奉者なのですか？

"Ebata-san. Are you a believer of Nazism?"

と質問してきたことがありました。

「逆だよ! 逆! 私は『ファッキン、ナチ』の側だよ」

"It's the other way around. I am standing on the side of "Fucking Nazi!""

-----

やっぱり「夜と霧」は、影響大きかったかなぁ。

Actually "…trotzdem Ja zum Leben sagen: Ein Psychologe erlebt das Konzentrationslager (Kosel-Verlag, Munchen 1977)" impressed me deeply with pain.

最近では「ヒトラーの贋札」(映画でなくて本の方)も、―― ゲッソリしながらも ―― 読了しましたが。

Recently, I managed to finished reading "Die Falscher" (not movie but book) with pinch-faced.

-----

私は、変な力(反動勢力とか)が蔓延ってきたら、真っ先に、テロの対象になる自信があるのです。

I am confident that I am going to become a victim against terrorist of reactionary forces easily.

だって、結構、「反権力的」とも読めるコラムを、いくつもリリースしてしまっていますからね。

I have already released several columns, that some person might believe that I am an ant establishmentarian.

もう取り消せないし。

Also, I could not erase the facts.

ですから、いつでも逃げ出す準備を怠らないように、こういう本で、自分を「オレンジアラート」の状態にしているのです。

Therefore I keep giving me an "Orange alert" caution, because I could always run away as soon as possible.

人口シミュレーションサンプルプログラム

2014年8月15日未分類

/////////////////////////////////////////
//  gcc -g life_0813.c -o life_0813
/////////////////////////////////////////

#include <stdio.h>
#include <stdlib.h>

/// グローバル変数で強行する
struct date
{
  int day;
  int month;
  int year;
};

enum sex {woman, man};
enum marrige {unmarried, married, divorce, remarriage};
 

struct person {
  int age; //年齢
  enum sex sex;  // 性別
  enum marrige marrige;  // 成婚

  struct person *prev;  /* 前の構造体を示すポインタ */
  struct person *next;  /* 次の構造体を示すポインタ */
};



double men[100],women[100]; // 年齢別人口 平成22年データ 単位は1000人
double men_death_rate[100],women_death_rate[100];  //死亡率 平成22年データ
double men_unmarried_rate[100],women_unmarried_rate[100];  //未婚率 平成22年データ

double men_existance_matching_rate[100];	// 有配偶率 (平成22年)
double women_existance_matching_rate[100];	// 有配偶率 (平成22年)
// 初婚、再婚関係なく、その世代に対して。
// 結婚している比率

double men_divorce_rate[100]; // 有配偶離婚率
double women_divorce_rate[100]; // 有配偶離婚率


// ○ 結婚している人に対する離婚率
double men_remarrige_ratio[100];
double women_remarrige_ratio[100]; // 再婚率 (2010年)

int initial_data();// 死亡率 平成22年データ (資料  厚生労働省大臣官房統計情報部人口動態・保健統計課「人口動態統計」)							

void delete_person(
				  struct person **p_person,
				  struct person **p_first_person,
				  struct person **p_last_person)   // メモリを消す処理e
{
  struct person *temp_p_person;

  if (*p_first_person == *p_last_person){
	//printf("p_first_person == p_last_person\n");
	exit(0);
  }

  if (*p_person == *p_first_person){ // 最初の場合
	*p_first_person = (*p_person)->next;
	(*p_first_person)->prev = NULL;
	//printf("C1");
	free(*p_person);
	*p_person = *p_first_person;
  }
  else if (*p_person == *p_last_person){ //最後の場合
	*p_last_person = (*p_person)->prev;
	(*p_last_person)->next = NULL;
	//printf("C2");
	free(*p_person);
	*p_person = *p_last_person;
  }
  else {
	(*p_person)->next->prev = (*p_person)->prev;
	(*p_person)->prev->next = (*p_person)->next;
	temp_p_person = (*p_person)->prev; // 一つ前のポインタに退避
	//printf("C3");
	free(*p_person);

	*p_person = temp_p_person;
  }

}


population_counter(struct person *p_first_person)
{
  struct person *p_person;
  int count;

  p_person = p_first_person;  //最初の一人
  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);
}


int main ()
{
  int i, k, count;
  struct person *p_person, *p_prev_person, *p_next_person;
  struct person *p_first_person, *p_last_person;
  int women_pop, men_pop;
  double dd;


  // 日本国民一億人のデータを作る 

  //printf("checked -1.\r\n");

  initial_data();  // 初期データ入力

  //printf("checked 0.\r\n");

  srand(10); // 乱数のシード


  ////////////  現状データの入力 ////////////
  
  // 最初の一人(0人目)  99歳の女性と仮定する。
  p_person= (struct person *)malloc(sizeof(struct person));
  if(p_person == NULL) {
      printf("メモリが確保できません\n");
      exit(EXIT_FAILURE);
   }
  p_person->sex = woman;
  p_person->age = 99;


  p_first_person = p_person;  //最初の一人

  // (最後に)ポインタをリンクする
  p_person->prev = NULL;
  p_prev_person = p_person;

  for(i=99; i>=0; i--){
	women_pop = women[i] * 1000;
	men_pop = men[i] * 1000;

	for(k=0; k<women_pop; k++){
	  p_person= (struct person *)malloc(sizeof(struct person));
	  if(p_person == NULL) {
		printf("メモリが確保できません %d\n",i);
		exit(EXIT_FAILURE);
	  }
	  
	  p_person->sex = woman;
	  p_person->age = i;

	  // (最後に)ポインタをリンクする
	  p_prev_person->next = p_person;
	  p_person->prev = p_prev_person;
	  p_person->next = NULL;
	  p_prev_person = p_person;
	  
	}

	for(k=0; k<men_pop; k++){
	  p_person= (struct person *)malloc(sizeof(struct person));
	  if(p_person == NULL) {
		printf("メモリが確保できません %d\n",i);
		exit(EXIT_FAILURE);
	  }
	  
	  p_person->sex = man;
	  p_person->age = i;

	  // (最後に)ポインタをリンクする
	  p_prev_person->next = p_person;
	  p_person->prev = p_prev_person;
	  p_person->next = NULL;
	  p_prev_person = p_person;
	  
	}
  }
  p_last_person = p_person;



  //printf("checked 1.\n");

  // 既婚(離婚も含む)・未婚の入力 (乱数で入力する) (離婚人口も含む)
  p_person = p_first_person;  //最初の一人
  while (p_person != NULL){

	if (p_person->sex == woman){ // 女性の場合
	  if (women_unmarried_rate[p_person->age] >= rand()/32768.0){
		p_person->marrige = unmarried;
	  }
	  else {
		p_person->marrige = married;
	  }
	}
	else{// 男性の場合
	  if (men_unmarried_rate[p_person->age] >= rand()/32768.0){
		p_person->marrige = unmarried;
	  }
	  else {
		p_person->marrige = married;
	  }
	}
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);

  // 離婚させる (ここは男女で分ける必要ないが、詳細データが手に入った時に反映)
  p_person = p_first_person;  //最初の一人
  while (p_person != NULL){

	if (p_person->sex == woman){ // 女性の場合
	  if ((p_person->marrige == married) || (p_person->marrige == remarriage)){ // 結婚している

		if( women_divorce_rate[p_person->age] >= rand()/32768.0){
		  p_person->marrige = divorce; // 離婚させる
		}
	  }
	}
	else{// 男性の場合
	  if ((p_person->marrige == married) || (p_person->marrige == remarriage)){ // 結婚している
		if( men_divorce_rate[p_person->age] >= rand()/32768.0){
		  p_person->marrige = divorce; // 離婚させる
		}
	  }
	}
	p_person = p_person->next;
  }

  // 再婚させる 

  // 離婚している人に対する再婚率 (に変換する式)
  //    = 
  // 再婚率 x その世代の人口数 / 離婚(×未婚、結婚)人口
  // としなければなない
  

  // 上記の解釈間違いの可能性あり


  // 離婚した人を再婚させる (ここは男女で分ける必要がある)

  p_person = p_first_person;  //最初の一人

  while (p_person != NULL){
	if (p_person->sex == woman){ // 女性の場合
	  if (p_person->marrige == divorce){ // 離婚している
		if( women_remarrige_ratio[p_person->age] >= rand()/32768.0){
		  p_person->marrige = remarriage; // 再婚させる
		}
	  }
	}
	else{// 男性の場合
	  if (p_person->marrige == divorce){ // 離婚している
		if( men_remarrige_ratio[p_person->age] >= rand()/32768.0){
		  p_person->marrige = remarriage; // 再婚させる
		}
	  }
	}
	p_person = p_person->next;
  }
		
 // (T.B.D.)
	
  //初期値チェックルーチン


#if 1
  p_person = p_first_person;  //最初の一人

  printf("性別,年齢,成婚\n");

  while (p_person != NULL){
	
	if (p_person->sex == woman)
	  printf("女性,");
	else
	  printf("男性,");

	printf("%d,",p_person->age);

	if (p_person->marrige == unmarried)
	  printf("未婚\n");
	else if (p_person->marrige == married)
	  printf("結婚\n");
	else if (p_person->marrige == divorce)
	  printf("離婚\n");
	else if (p_person->marrige == remarriage)
	  printf("再婚\n");
	
	p_person = p_person->next;
  }

  //printf("count=%d \n", count);

#endif


  //初期値チェックルーチン 終り

  ////////////  現状データの入力 終わり ////////////

  p_person = p_first_person;  //最初の一人

  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);

  // (1)100歳以上は、いない(死んだ)ことにする。
  //     → person->age が100になったらオブジェクトを開放

#if 0 
//時間計測の為、コメントアウト

  for(i=0; i<100; i++){//100年分を回す
	
	//printf("%d\n",i);
	
	p_person = p_first_person;  //最初の一人

	while (p_person != NULL){
	  p_person->age++;
	  if (p_person->age == 100){ //100歳以上は削除
		  delete_person(&p_person,&p_first_person,&p_last_person);
	  }
	  p_person = p_person->next;
	}

	population_counter(p_first_person);
  }

  
  p_person = p_first_person;  //最初の一人

  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);
  
#endif // 時間計測の為、コメントアウト

}



int initial_data()
{
	men[ 0]=549   ; men_death_rate[ 0]=0.0025   ;
	men[ 1]=535   ; men_death_rate[ 1]=0.0004   ;
	men[ 2]=535   ; men_death_rate[ 2]=0.0002   ;	
	men[ 3]=550   ; men_death_rate[ 3]=0.0002   ;	
	men[ 4]=548   ; men_death_rate[ 4]=0.0002   ;

	men[ 5]=544   ; men_death_rate[ 5]=0.0001   ;
	men[ 6]=542   ; men_death_rate[ 6]=0.0001   ;
	men[ 7]=562   ; men_death_rate[ 7]=0.0001   ;
	men[ 8]=574   ; men_death_rate[ 8]=0.0001   ;
	men[ 9]=589   ; men_death_rate[ 9]=0.0001   ;

	men[10]=597   ; men_death_rate[10]=0.0001   ;
	men[11]=604   ; men_death_rate[11]=0.0001   ;
	men[12]=604   ; men_death_rate[12]=0.0001   ;
	men[13]=613   ; men_death_rate[13]=0.0001   ;
	men[14]=610   ; men_death_rate[14]=0.0001   ;

	men[15]=607   ; men_death_rate[15]=0.0003   ;
	men[16]=627   ; men_death_rate[16]=0.0003   ;
	men[17]=632   ; men_death_rate[17]=0.0003   ;
	men[18]=621   ; men_death_rate[18]=0.0003   ;
	men[19]=631   ; men_death_rate[19]=0.0003   ;

	men[20]=623   ; men_death_rate[20]=0.0006   ;
	men[21]=632   ; men_death_rate[21]=0.0006   ;
	men[22]=648   ; men_death_rate[22]=0.0006   ;
	men[23]=668   ; men_death_rate[23]=0.0006   ;
	men[24]=683   ; men_death_rate[24]=0.0006   ;

	men[25]=697   ; men_death_rate[25]=0.0007   ;
	men[26]=723   ; men_death_rate[26]=0.0007   ;
	men[27]=745   ; men_death_rate[27]=0.0007   ;
	men[28]=754   ; men_death_rate[28]=0.0007   ;
	men[29]=754   ; men_death_rate[29]=0.0007   ;

	men[30]=764   ; men_death_rate[30]=0.0008   ;
	men[31]=797   ; men_death_rate[31]=0.0008   ;
	men[32]=818   ; men_death_rate[32]=0.0008   ;
	men[33]=852   ; men_death_rate[33]=0.0008   ;
	men[34]=873   ; men_death_rate[34]=0.0008   ;

	men[35]=917   ; men_death_rate[35]=0.0010   ;
	men[36]=960   ; men_death_rate[36]=0.0010   ;
	men[37]=1012  ; men_death_rate[37]=0.0010   ;
	men[38]=1028  ; men_death_rate[38]=0.0010   ;
	men[39]=1010  ; men_death_rate[39]=0.0010   ;

	men[40]=982   ; men_death_rate[40]=0.0015   ;
	men[41]=954   ; men_death_rate[41]=0.0015   ;
	men[42]=937   ; men_death_rate[42]=0.0015   ;
	men[43]=916   ; men_death_rate[43]=0.0015   ;
	men[44]=915   ; men_death_rate[44]=0.0015   ;

	men[45]=713   ; men_death_rate[45]=0.0024   ;
	men[46]=882   ; men_death_rate[46]=0.0024   ;
	men[47]=826   ; men_death_rate[47]=0.0024   ;
	men[48]=805   ; men_death_rate[48]=0.0024   ;
	men[49]=778   ; men_death_rate[49]=0.0024   ;

	men[50]=765   ; men_death_rate[50]=0.0038   ;
	men[51]=770   ; men_death_rate[51]=0.0038   ;
	men[52]=783   ; men_death_rate[52]=0.0038   ;
	men[53]=761   ; men_death_rate[53]=0.0038   ;
	men[54]=740   ; men_death_rate[54]=0.0038   ;

	men[55]=776   ; men_death_rate[55]=0.0063   ;
	men[56]=803   ; men_death_rate[56]=0.0063   ;
	men[57]=803   ; men_death_rate[57]=0.0063   ;
	men[58]=850   ; men_death_rate[58]=0.0063   ;
	men[59]=896   ; men_death_rate[59]=0.0063   ;

	men[60]=949   ; men_death_rate[60]=0.0093   ;
	men[61]=1018  ; men_death_rate[61]=0.0093   ;
	men[62]=1111  ; men_death_rate[62]=0.0093   ;
	men[63]=1099  ; men_death_rate[63]=0.0093   ;
	men[64]=1042  ; men_death_rate[64]=0.0093   ;

	men[65]=645   ; men_death_rate[65]=0.0146   ;
	men[66]=684   ; men_death_rate[66]=0.0146   ;
	men[67]=825   ; men_death_rate[67]=0.0146   ;
	men[68]=794   ; men_death_rate[68]=0.0146   ;
	men[69]=809   ; men_death_rate[69]=0.0146   ;

	men[70]=780   ; men_death_rate[70]=0.0227   ;
	men[71]=698   ; men_death_rate[71]=0.0227   ;
	men[72]=599   ; men_death_rate[72]=0.0227   ;
	men[73]=627   ; men_death_rate[73]=0.0227   ;
	men[74]=631   ; men_death_rate[74]=0.0227   ;

	men[75]=616   ; men_death_rate[75]=0.0396   ;
	men[76]=571   ; men_death_rate[76]=0.0396   ;
	men[77]=521   ; men_death_rate[77]=0.0396   ;
	men[78]=501   ; men_death_rate[78]=0.0396   ;
	men[79]=470   ; men_death_rate[79]=0.0396   ;

	men[80]=430   ; men_death_rate[80]=0.0705   ;
	men[81]=385   ; men_death_rate[81]=0.0705   ;
	men[82]=350   ; men_death_rate[82]=0.0705   ;
	men[83]=316   ; men_death_rate[83]=0.0705   ;
	men[84]=281   ; men_death_rate[84]=0.0705   ;

	men[85]=247   ; men_death_rate[85]=0.1200   ;
	men[86]=202   ; men_death_rate[86]=0.1200   ;
	men[87]=158   ; men_death_rate[87]=0.1200   ;
	men[88]=122   ; men_death_rate[88]=0.1200   ;
	men[89]=98    ; men_death_rate[89]=0.1200   ;

	men[90]=78    ; men_death_rate[90]=0.2025   ;
	men[91]=67    ; men_death_rate[91]=0.2025   ;
	men[92]=44    ; men_death_rate[92]=0.2025   ;
	men[93]=36    ; men_death_rate[93]=0.2025   ;
	men[94]=28    ; men_death_rate[94]=0.2025   ;

	men[95]=21    ; men_death_rate[95]=0.3188   ;
	men[96]=15    ; men_death_rate[96]=0.3188   ;
	men[97]=11    ; men_death_rate[97]=0.3188   ;
	men[98]=7     ; men_death_rate[98]=0.3188   ;
	men[99]=5     ; men_death_rate[99]=0.3188   ;

	women[ 0]=520; women_death_rate[ 0]=0.0021  ;
	women[ 1]=510; women_death_rate[ 1]=0.0004  ;
	women[ 2]=511; women_death_rate[ 2]=0.0002  ;
	women[ 3]=525; women_death_rate[ 3]=0.0001  ;
	women[ 4]=522; women_death_rate[ 4]=0.0001  ;

	women[ 5]=518; women_death_rate[ 5]=0.0001   ;
	women[ 6]=517; women_death_rate[ 6]=0.0001   ;
	women[ 7]=538; women_death_rate[ 7]=0.0001   ;
	women[ 8]=545; women_death_rate[ 8]=0.0001   ;
	women[ 9]=561; women_death_rate[ 9]=0.0001   ;

	women[10]=568; women_death_rate[10]=0.0001   ;
	women[11]=573; women_death_rate[11]=0.0001   ;
	women[12]=576; women_death_rate[12]=0.0001   ;
	women[13]=585; women_death_rate[13]=0.0001   ;
	women[14]=583; women_death_rate[14]=0.0001   ;

	women[15]=578; women_death_rate[15]=0.0002   ;
	women[16]=595; women_death_rate[16]=0.0002   ;
	women[17]=597; women_death_rate[17]=0.0002   ;
	women[18]=589; women_death_rate[18]=0.0002   ;
	women[19]=599; women_death_rate[19]=0.0002   ;

	women[20]=596; women_death_rate[20]=0.0003   ;
	women[21]=605; women_death_rate[21]=0.0003   ;
	women[22]=622; women_death_rate[22]=0.0003   ;
	women[23]=638; women_death_rate[23]=0.0003   ;
	women[24]=655; women_death_rate[24]=0.0003   ;

	women[25]=667; women_death_rate[25]=0.0003   ;
	women[26]=697; women_death_rate[26]=0.0003   ;
	women[27]=719; women_death_rate[27]=0.0003   ;
	women[28]=729; women_death_rate[28]=0.0003   ;
	women[29]=734; women_death_rate[29]=0.0003   ;

	women[30]=742; women_death_rate[30]=0.0004   ;
	women[31]=774; women_death_rate[31]=0.0004   ;
	women[32]=794; women_death_rate[32]=0.0004   ;
	women[33]=828; women_death_rate[33]=0.0004   ;
	women[34]=849; women_death_rate[34]=0.0004   ;

	women[35]=890; women_death_rate[35]=0.0006   ;
	women[36]=931; women_death_rate[36]=0.0006   ;
	women[37]=982; women_death_rate[37]=0.0006   ;
	women[38]=1001; women_death_rate[38]=0.0006   ;
	women[39]=981; women_death_rate[39]=0.0006   ;

	women[40]=958; women_death_rate[40]=0.0008   ;
	women[41]=931; women_death_rate[41]=0.0008   ;
	women[42]=920; women_death_rate[42]=0.0008   ;
	women[43]=902; women_death_rate[43]=0.0008   ;
	women[44]=898; women_death_rate[44]=0.0008   ;

	women[45]=705; women_death_rate[45]=0.0013   ;
	women[46]=872; women_death_rate[46]=0.0013   ;
	women[47]=815; women_death_rate[47]=0.0013   ;
	women[48]=798; women_death_rate[48]=0.0013   ;
	women[49]=772; women_death_rate[49]=0.0013   ;

	women[50]=760; women_death_rate[50]=0.0019   ;
	women[51]=768; women_death_rate[51]=0.0019   ;
	women[52]=783; women_death_rate[52]=0.0019   ;
	women[53]=765; women_death_rate[53]=0.0019   ;
	women[54]=744; women_death_rate[54]=0.0019   ;

	women[55]=783; women_death_rate[55]=0.0028   ;
	women[56]=810; women_death_rate[56]=0.0028   ;
	women[57]=813; women_death_rate[57]=0.0028   ;
	women[58]=868; women_death_rate[58]=0.0028   ;
	women[59]=918; women_death_rate[59]=0.0028   ;

	women[60]=975; women_death_rate[60]=0.0039   ;
	women[61]=1051; women_death_rate[61]=0.0039   ;
	women[62]=1152; women_death_rate[62]=0.0039   ;
	women[63]=1146; women_death_rate[63]=0.0039   ;
	women[64]=1090; women_death_rate[64]=0.0039   ;

	women[65]=685; women_death_rate[65]=0.0060   ;
	women[66]=741; women_death_rate[66]=0.0060   ;
	women[67]=903; women_death_rate[67]=0.0060   ;
	women[68]=875; women_death_rate[68]=0.0060   ;
	women[69]=899; women_death_rate[69]=0.0060   ;

	women[70]=873; women_death_rate[70]=0.0098   ;
	women[71]=793; women_death_rate[71]=0.0098   ;
	women[72]=690; women_death_rate[72]=0.0098   ;
	women[73]=738; women_death_rate[73]=0.0098   ;
	women[74]=755; women_death_rate[74]=0.0098   ;

	women[75]=753; women_death_rate[75]=0.0179   ;
	women[76]=718; women_death_rate[76]=0.0179   ;
	women[77]=675; women_death_rate[77]=0.0179   ;
	women[78]=671; women_death_rate[78]=0.0179   ;
	women[79]=646; women_death_rate[79]=0.0179   ;

	women[80]=614; women_death_rate[80]=0.0343   ;
	women[81]=573; women_death_rate[81]=0.0343   ;
	women[82]=547; women_death_rate[82]=0.0343   ;
	women[83]=515; women_death_rate[83]=0.0343   ;
	women[84]=482; women_death_rate[84]=0.0343   ;

	women[85]=454; women_death_rate[85]=0.0691   ;
	women[86]=405; women_death_rate[86]=0.0691   ;
	women[87]=349; women_death_rate[87]=0.0691   ;
	women[88]=313; women_death_rate[88]=0.0691   ;
	women[89]=276; women_death_rate[89]=0.0691   ;

	women[90]=236; women_death_rate[90]=0.1312   ;
	women[91]=213; women_death_rate[91]=0.1312   ;
	women[92]=146; women_death_rate[92]=0.1312   ;
	women[93]=128; women_death_rate[93]=0.1312   ;
	women[94]=106; women_death_rate[94]=0.1312   ;

	women[95]=87 ; women_death_rate[95]=0.2381   ;
	women[96]=63 ; women_death_rate[96]=0.2381   ;
	women[97]=49 ; women_death_rate[97]=0.2381   ;
	women[98]=35 ; women_death_rate[98]=0.2381   ;
	women[99]=25 ; women_death_rate[99]=0.2381   ;

	/////////////////////////////////////////////

	// 未婚率 (平成22年)

	men_unmarried_rate[ 0]=1.000   ;	
	men_unmarried_rate[ 1]=1.000   ;
	men_unmarried_rate[ 2]=1.000   ;
	men_unmarried_rate[ 3]=1.000   ;
	men_unmarried_rate[ 4]=1.000   ;

	men_unmarried_rate[ 5]=1.000   ;
	men_unmarried_rate[ 6]=1.000   ;
	men_unmarried_rate[ 7]=1.000   ;
	men_unmarried_rate[ 8]=1.000   ;
	men_unmarried_rate[ 9]=1.000   ;

	men_unmarried_rate[10]=1.000   ;
	men_unmarried_rate[11]=1.000   ;
	men_unmarried_rate[12]=1.000   ;
	men_unmarried_rate[13]=1.000   ;
	men_unmarried_rate[14]=1.000   ;

	men_unmarried_rate[15]=1.000   ;
	men_unmarried_rate[16]=1.000   ;
	men_unmarried_rate[17]=1.000   ;
	men_unmarried_rate[18]=0.975   ;
	men_unmarried_rate[19]=0.975   ;

	men_unmarried_rate[20]=0.910   ;
	men_unmarried_rate[21]=0.910   ;
	men_unmarried_rate[22]=0.910   ;
	men_unmarried_rate[23]=0.910   ;
	men_unmarried_rate[24]=0.910   ;

	men_unmarried_rate[25]=0.645   ;
	men_unmarried_rate[26]=0.645   ;
	men_unmarried_rate[27]=0.645   ;
	men_unmarried_rate[28]=0.645   ;
	men_unmarried_rate[29]=0.645   ;

	men_unmarried_rate[30]=0.413   ;
	men_unmarried_rate[31]=0.413   ;
	men_unmarried_rate[32]=0.413   ;
	men_unmarried_rate[33]=0.413   ;
	men_unmarried_rate[34]=0.413   ;

	men_unmarried_rate[35]=0.370   ;
	men_unmarried_rate[36]=0.370   ;
	men_unmarried_rate[37]=0.370   ;
	men_unmarried_rate[38]=0.370   ;
	men_unmarried_rate[39]=0.370   ;

	men_unmarried_rate[40]=0.229   ;
	men_unmarried_rate[41]=0.229   ;
	men_unmarried_rate[42]=0.229   ;
	men_unmarried_rate[43]=0.229   ;
	men_unmarried_rate[44]=0.229   ;

	men_unmarried_rate[45]=0.166   ;
	men_unmarried_rate[46]=0.166   ;
	men_unmarried_rate[47]=0.166   ;
	men_unmarried_rate[48]=0.166   ;
	men_unmarried_rate[49]=0.166   ;

	men_unmarried_rate[50]=0.189   ;
	men_unmarried_rate[51]=0.189   ;
	men_unmarried_rate[52]=0.189   ;
	men_unmarried_rate[53]=0.189   ;
	men_unmarried_rate[54]=0.189   ;

	men_unmarried_rate[55]=0.139   ;
	men_unmarried_rate[56]=0.139   ;
	men_unmarried_rate[57]=0.139   ;
	men_unmarried_rate[58]=0.139   ;
	men_unmarried_rate[59]=0.139   ;

	men_unmarried_rate[60]=0.068   ;
	men_unmarried_rate[61]=0.068   ;
	men_unmarried_rate[62]=0.068   ;
	men_unmarried_rate[63]=0.068   ;
	men_unmarried_rate[64]=0.068   ;

	men_unmarried_rate[65]=0.042   ;
	men_unmarried_rate[66]=0.042   ;
	men_unmarried_rate[67]=0.042   ;
	men_unmarried_rate[68]=0.042   ;
	men_unmarried_rate[69]=0.042   ;

	men_unmarried_rate[70]=0.015   ;
	men_unmarried_rate[71]=0.015   ;
	men_unmarried_rate[72]=0.015   ;
	men_unmarried_rate[73]=0.015   ;
	men_unmarried_rate[74]=0.015   ;

	men_unmarried_rate[75]=0.012   ;
	men_unmarried_rate[76]=0.012   ;
	men_unmarried_rate[77]=0.012   ;
	men_unmarried_rate[78]=0.012   ;
	men_unmarried_rate[79]=0.012   ;

	men_unmarried_rate[80]=0.012   ;
	men_unmarried_rate[81]=0.012   ;
	men_unmarried_rate[82]=0.012   ;
	men_unmarried_rate[83]=0.012   ;
	men_unmarried_rate[84]=0.012   ;

	men_unmarried_rate[85]=0.011   ;
	men_unmarried_rate[86]=0.011   ;
	men_unmarried_rate[87]=0.011   ;
	men_unmarried_rate[88]=0.011   ;
	men_unmarried_rate[89]=0.011   ;

	men_unmarried_rate[90]=0.011   ;
	men_unmarried_rate[91]=0.011   ;
	men_unmarried_rate[92]=0.011   ;
	men_unmarried_rate[93]=0.011   ;
	men_unmarried_rate[94]=0.011   ;

	men_unmarried_rate[95]=0.011   ;
	men_unmarried_rate[96]=0.011   ;
	men_unmarried_rate[97]=0.011   ;
	men_unmarried_rate[98]=0.011   ;
	men_unmarried_rate[99]=0.011   ;

	women_unmarried_rate[ 0]=1.000   ;	
	women_unmarried_rate[ 1]=1.000   ;	
	women_unmarried_rate[ 2]=1.000   ;	
	women_unmarried_rate[ 3]=1.000   ;	
	women_unmarried_rate[ 4]=1.000   ;	
	
	women_unmarried_rate[ 5]=1.000   ;	
	women_unmarried_rate[ 6]=1.000   ;	
	women_unmarried_rate[ 7]=1.000   ;	
	women_unmarried_rate[ 8]=1.000   ;	
	women_unmarried_rate[ 9]=1.000   ;	
	
	women_unmarried_rate[10]=1.000   ;	
	women_unmarried_rate[11]=1.000   ;	
	women_unmarried_rate[12]=1.000   ;	
	women_unmarried_rate[13]=1.000   ;	
	women_unmarried_rate[14]=1.000   ;	
	
	women_unmarried_rate[15]=1.000   ;
	women_unmarried_rate[16]=0.984   ;
	women_unmarried_rate[17]=0.984   ;
	women_unmarried_rate[18]=0.984   ;
	women_unmarried_rate[19]=0.984   ;
	
	women_unmarried_rate[20]=0.898   ;
	women_unmarried_rate[21]=0.898   ;
	women_unmarried_rate[22]=0.898   ;
	women_unmarried_rate[23]=0.898   ;
	women_unmarried_rate[24]=0.898   ;
	
	women_unmarried_rate[25]=0.607   ;
	women_unmarried_rate[26]=0.607   ;
	women_unmarried_rate[27]=0.607   ;
	women_unmarried_rate[28]=0.607   ;
	women_unmarried_rate[29]=0.607   ;
	
	women_unmarried_rate[30]=0.374   ; 
	women_unmarried_rate[31]=0.374   ; 
	women_unmarried_rate[32]=0.374   ; 
	women_unmarried_rate[33]=0.374   ; 
	women_unmarried_rate[34]=0.374   ; 
	
	women_unmarried_rate[35]=0.250   ;
	women_unmarried_rate[36]=0.250   ;
	women_unmarried_rate[37]=0.250   ;
	women_unmarried_rate[38]=0.250   ;
	women_unmarried_rate[39]=0.250   ;
	
	women_unmarried_rate[40]=0.224   ;
	women_unmarried_rate[41]=0.224   ;
	women_unmarried_rate[42]=0.224   ;
	women_unmarried_rate[43]=0.224   ;
	women_unmarried_rate[44]=0.224   ;
	
	women_unmarried_rate[45]=0.154   ; 
	women_unmarried_rate[46]=0.154   ; 
	women_unmarried_rate[47]=0.154   ; 
	women_unmarried_rate[48]=0.154   ; 
	women_unmarried_rate[49]=0.154   ; 
	
	women_unmarried_rate[50]=0.114   ;  
	women_unmarried_rate[51]=0.114   ;  
	women_unmarried_rate[52]=0.114   ;  
	women_unmarried_rate[53]=0.114   ;  
	women_unmarried_rate[54]=0.114   ;  
	
	women_unmarried_rate[55]=0.073   ;
	women_unmarried_rate[56]=0.073   ;
	women_unmarried_rate[57]=0.073   ;
	women_unmarried_rate[58]=0.073   ;
	women_unmarried_rate[59]=0.073   ;
	
	women_unmarried_rate[60]=0.055   ; 
	women_unmarried_rate[61]=0.055   ; 
	women_unmarried_rate[62]=0.055   ; 
	women_unmarried_rate[63]=0.055   ; 
	women_unmarried_rate[64]=0.055   ; 
	
	women_unmarried_rate[65]=0.053   ; 
	women_unmarried_rate[66]=0.053   ; 
	women_unmarried_rate[67]=0.053   ; 
	women_unmarried_rate[68]=0.053   ; 
	women_unmarried_rate[69]=0.053   ; 
	
	women_unmarried_rate[70]=0.033   ; 
	women_unmarried_rate[71]=0.033   ; 
	women_unmarried_rate[72]=0.033   ; 
	women_unmarried_rate[73]=0.033   ; 
	women_unmarried_rate[74]=0.033   ; 
	
	women_unmarried_rate[75]=0.044   ;
	women_unmarried_rate[76]=0.044   ;
	women_unmarried_rate[77]=0.044   ;
	women_unmarried_rate[78]=0.044   ;
	women_unmarried_rate[79]=0.044   ;
	
	women_unmarried_rate[80]=0.078   ;
	women_unmarried_rate[81]=0.078   ;
	women_unmarried_rate[82]=0.078   ;
	women_unmarried_rate[83]=0.078   ;
	women_unmarried_rate[84]=0.078   ;
	
	women_unmarried_rate[85]=0.033   ;
	women_unmarried_rate[86]=0.033   ;
	women_unmarried_rate[87]=0.033   ;
	women_unmarried_rate[88]=0.033   ;
	women_unmarried_rate[89]=0.033   ;
	
	women_unmarried_rate[90]=0.033   ;
	women_unmarried_rate[91]=0.033   ;
	women_unmarried_rate[92]=0.033   ;
	women_unmarried_rate[93]=0.033   ;
	women_unmarried_rate[94]=0.033   ;
	
	women_unmarried_rate[95]=0.033   ;
	women_unmarried_rate[96]=0.033   ;
	women_unmarried_rate[97]=0.033   ;
	women_unmarried_rate[98]=0.033   ;
	women_unmarried_rate[99]=0.033   ;
   
	// 有配偶率 (平成22年)

	// 初婚、再婚関係なく、その世代に対して。
	// 結婚している比率
	
	//国勢調査の男女別の有配偶者の数はなぜ違うのか

	men_existance_matching_rate[ 0]=0.000   ;	
	men_existance_matching_rate[ 1]=0.000   ;
	men_existance_matching_rate[ 2]=0.000   ;
	men_existance_matching_rate[ 3]=0.000   ;
	men_existance_matching_rate[ 4]=0.000   ;

	men_existance_matching_rate[ 5]=0.000   ;
	men_existance_matching_rate[ 6]=0.000   ;
	men_existance_matching_rate[ 7]=0.000   ;
	men_existance_matching_rate[ 8]=0.000   ;
	men_existance_matching_rate[ 9]=0.000   ;

	men_existance_matching_rate[10]=0.000   ;
	men_existance_matching_rate[11]=0.000   ;
	men_existance_matching_rate[12]=0.000   ;
	men_existance_matching_rate[13]=0.000   ;
	men_existance_matching_rate[14]=0.000   ;

	men_existance_matching_rate[15]=0.011   ;
	men_existance_matching_rate[16]=0.011   ;
	men_existance_matching_rate[17]=0.011   ;
	men_existance_matching_rate[18]=0.011   ;
	men_existance_matching_rate[19]=0.011   ;

	men_existance_matching_rate[20]=0.036   ;
	men_existance_matching_rate[21]=0.036   ;
	men_existance_matching_rate[22]=0.036   ;
	men_existance_matching_rate[23]=0.036   ;
	men_existance_matching_rate[24]=0.036   ;

	men_existance_matching_rate[25]=0.241   ;
	men_existance_matching_rate[26]=0.241   ;
	men_existance_matching_rate[27]=0.241   ;
	men_existance_matching_rate[28]=0.241   ;
	men_existance_matching_rate[29]=0.241   ;

	men_existance_matching_rate[30]=0.497   ;
	men_existance_matching_rate[31]=0.497   ;
	men_existance_matching_rate[32]=0.497   ;
	men_existance_matching_rate[33]=0.497   ;
	men_existance_matching_rate[34]=0.497   ;

	men_existance_matching_rate[35]=0.530   ;
	men_existance_matching_rate[36]=0.530   ;
	men_existance_matching_rate[37]=0.530   ;
	men_existance_matching_rate[38]=0.530   ;
	men_existance_matching_rate[39]=0.530   ;

	men_existance_matching_rate[40]=0.694   ;
	men_existance_matching_rate[41]=0.694   ;
	men_existance_matching_rate[42]=0.694   ;
	men_existance_matching_rate[43]=0.694   ;
	men_existance_matching_rate[44]=0.694   ;

	men_existance_matching_rate[45]=0.741   ;
	men_existance_matching_rate[46]=0.741   ;
	men_existance_matching_rate[47]=0.741   ;
	men_existance_matching_rate[48]=0.741   ;
	men_existance_matching_rate[49]=0.741   ;

	men_existance_matching_rate[50]=0.700   ;
	men_existance_matching_rate[51]=0.700   ;
	men_existance_matching_rate[52]=0.700   ;
	men_existance_matching_rate[53]=0.700   ;
	men_existance_matching_rate[54]=0.700   ;

	men_existance_matching_rate[55]=0.765   ;
	men_existance_matching_rate[56]=0.765   ;
	men_existance_matching_rate[57]=0.765   ;
	men_existance_matching_rate[58]=0.765   ;
	men_existance_matching_rate[59]=0.765   ;

	men_existance_matching_rate[60]=0.842   ;
	men_existance_matching_rate[61]=0.842   ;
	men_existance_matching_rate[62]=0.842   ;
	men_existance_matching_rate[63]=0.842   ;
	men_existance_matching_rate[64]=0.842   ;

	men_existance_matching_rate[65]=0.824   ;
	men_existance_matching_rate[66]=0.824   ;
	men_existance_matching_rate[67]=0.824   ;
	men_existance_matching_rate[68]=0.824   ;
	men_existance_matching_rate[69]=0.824   ;

	men_existance_matching_rate[70]=0.838   ;
	men_existance_matching_rate[71]=0.838   ;
	men_existance_matching_rate[72]=0.838   ;
	men_existance_matching_rate[73]=0.838   ;
	men_existance_matching_rate[74]=0.838   ;

	men_existance_matching_rate[75]=0.817   ;
	men_existance_matching_rate[76]=0.817   ;
	men_existance_matching_rate[77]=0.817   ;
	men_existance_matching_rate[78]=0.817   ;
	men_existance_matching_rate[79]=0.817   ;

	men_existance_matching_rate[80]=0.730   ;
	men_existance_matching_rate[81]=0.730   ;
	men_existance_matching_rate[82]=0.730   ;
	men_existance_matching_rate[83]=0.730   ;
	men_existance_matching_rate[84]=0.730   ;

	men_existance_matching_rate[85]=0.708   ;
	men_existance_matching_rate[86]=0.708   ;
	men_existance_matching_rate[87]=0.708   ;
	men_existance_matching_rate[88]=0.708   ;
	men_existance_matching_rate[89]=0.708   ;

	men_existance_matching_rate[90]=0.708   ;
	men_existance_matching_rate[91]=0.708   ;
	men_existance_matching_rate[92]=0.708   ;
	men_existance_matching_rate[93]=0.708   ;
	men_existance_matching_rate[94]=0.708   ;

	men_existance_matching_rate[95]=0.708   ;
	men_existance_matching_rate[96]=0.708   ;
	men_existance_matching_rate[97]=0.708   ;
	men_existance_matching_rate[98]=0.708   ;
	men_existance_matching_rate[99]=0.708   ;

	women_existance_matching_rate[ 0]=0.000   ;	
	women_existance_matching_rate[ 1]=0.000   ;	
	women_existance_matching_rate[ 2]=0.000   ;	
	women_existance_matching_rate[ 3]=0.000   ;	
	women_existance_matching_rate[ 4]=0.000   ;	
	
	women_existance_matching_rate[ 5]=0.000   ;	
	women_existance_matching_rate[ 6]=0.000   ;	
	women_existance_matching_rate[ 7]=0.000   ;	
	women_existance_matching_rate[ 8]=0.000   ;	
	women_existance_matching_rate[ 9]=0.000   ;	
	
	women_existance_matching_rate[10]=0.000   ;	
	women_existance_matching_rate[11]=0.000   ;	
	women_existance_matching_rate[12]=0.000   ;	
	women_existance_matching_rate[13]=0.000   ;	
	women_existance_matching_rate[14]=0.000   ;	
	
	women_existance_matching_rate[15]=0.008   ;
	women_existance_matching_rate[16]=0.008   ;
	women_existance_matching_rate[17]=0.008   ;
	women_existance_matching_rate[18]=0.008   ;
	women_existance_matching_rate[19]=0.008   ;
	
	women_existance_matching_rate[20]=0.052   ;
	women_existance_matching_rate[21]=0.052   ;
	women_existance_matching_rate[22]=0.052   ;
	women_existance_matching_rate[23]=0.052   ;
	women_existance_matching_rate[24]=0.052   ;
	
	women_existance_matching_rate[25]=0.312   ;
	women_existance_matching_rate[26]=0.312   ;
	women_existance_matching_rate[27]=0.312   ;
	women_existance_matching_rate[28]=0.312   ;
	women_existance_matching_rate[29]=0.312   ;
	
	women_existance_matching_rate[30]=0.569   ; 
	women_existance_matching_rate[31]=0.569   ; 
	women_existance_matching_rate[32]=0.569   ; 
	women_existance_matching_rate[33]=0.569   ; 
	women_existance_matching_rate[34]=0.569   ; 
	
	women_existance_matching_rate[35]=0.667   ;
	women_existance_matching_rate[36]=0.667   ;
	women_existance_matching_rate[37]=0.667   ;
	women_existance_matching_rate[38]=0.667   ;
	women_existance_matching_rate[39]=0.667   ;
	
	women_existance_matching_rate[40]=0.229   ;
	women_existance_matching_rate[41]=0.229   ;
	women_existance_matching_rate[42]=0.229   ;
	women_existance_matching_rate[43]=0.229   ;
	women_existance_matching_rate[44]=0.229   ;
	
	women_existance_matching_rate[45]=0.712   ; 
	women_existance_matching_rate[46]=0.712   ; 
	women_existance_matching_rate[47]=0.712   ; 
	women_existance_matching_rate[48]=0.712   ; 
	women_existance_matching_rate[49]=0.712   ; 
	
	women_existance_matching_rate[50]=0.755   ;  
	women_existance_matching_rate[51]=0.755   ;  
	women_existance_matching_rate[52]=0.755   ;  
	women_existance_matching_rate[53]=0.755   ;  
	women_existance_matching_rate[54]=0.755   ;  
	
	women_existance_matching_rate[55]=0.789   ;
	women_existance_matching_rate[56]=0.789   ;
	women_existance_matching_rate[57]=0.789   ;
	women_existance_matching_rate[58]=0.789   ;
	women_existance_matching_rate[59]=0.789   ;
	
	women_existance_matching_rate[60]=0.733   ; 
	women_existance_matching_rate[61]=0.733   ; 
	women_existance_matching_rate[62]=0.733   ; 
	women_existance_matching_rate[63]=0.733   ; 
	women_existance_matching_rate[64]=0.733   ; 
	
	women_existance_matching_rate[65]=0.663   ; 
	women_existance_matching_rate[66]=0.663   ; 
	women_existance_matching_rate[67]=0.663   ; 
	women_existance_matching_rate[68]=0.663   ; 
	women_existance_matching_rate[69]=0.663   ; 
	
	women_existance_matching_rate[70]=0.650   ; 
	women_existance_matching_rate[71]=0.650   ; 
	women_existance_matching_rate[72]=0.650   ; 
	women_existance_matching_rate[73]=0.650   ; 
	women_existance_matching_rate[74]=0.650   ; 
	
	women_existance_matching_rate[75]=0.462   ;
	women_existance_matching_rate[76]=0.462   ;
	women_existance_matching_rate[77]=0.462   ;
	women_existance_matching_rate[78]=0.462   ;
	women_existance_matching_rate[79]=0.462   ;
	
	women_existance_matching_rate[80]=0.326   ;
	women_existance_matching_rate[81]=0.326   ;
	women_existance_matching_rate[82]=0.326   ;
	women_existance_matching_rate[83]=0.326   ;
	women_existance_matching_rate[84]=0.326   ;
	
	women_existance_matching_rate[85]=0.093   ;
	women_existance_matching_rate[86]=0.093   ;
	women_existance_matching_rate[87]=0.093   ;
	women_existance_matching_rate[88]=0.093   ;
	women_existance_matching_rate[89]=0.093   ;
	
	women_existance_matching_rate[90]=0.093   ;
	women_existance_matching_rate[91]=0.093   ;
	women_existance_matching_rate[92]=0.093   ;
	women_existance_matching_rate[93]=0.093   ;
	women_existance_matching_rate[94]=0.093   ;
	
	women_existance_matching_rate[95]=0.093   ;
	women_existance_matching_rate[96]=0.093   ;
	women_existance_matching_rate[97]=0.093   ;
	women_existance_matching_rate[98]=0.093   ;
	women_existance_matching_rate[99]=0.093   ;

	//有配偶離婚率　 Divorce rates for married population
	// 平成22年データ
	// ○ 結婚している人に対する離婚率
	// × 人口に対する離婚率

	men_divorce_rate[0] = 0.0000 ;//結婚できないから、
	men_divorce_rate[1] = 0.0000 ;//離婚もできない
	men_divorce_rate[2] = 0.0000 ;
	men_divorce_rate[3] = 0.0000 ;
	men_divorce_rate[4] = 0.0000 ;

	men_divorce_rate[5] = 0.0000 ;
	men_divorce_rate[6] = 0.0000 ;
	men_divorce_rate[7] = 0.0000 ;
	men_divorce_rate[8] = 0.0000 ;
	men_divorce_rate[9] = 0.0000 ;

	men_divorce_rate[10] = 0.0000 ;
	men_divorce_rate[11] = 0.0000 ;
	men_divorce_rate[12] = 0.0000 ;
	men_divorce_rate[13] = 0.0000 ;
	men_divorce_rate[14] = 0.0000 ;  

	men_divorce_rate[15] = 0.0000 ;
	men_divorce_rate[16] = 0.0000 ;
	men_divorce_rate[17] = 0.0000 ;
	men_divorce_rate[18] = 0.4809 ;
	men_divorce_rate[19] = 0.4809 ;

	men_divorce_rate[20] = 0.4705 ;
	men_divorce_rate[21] = 0.4705 ;
	men_divorce_rate[22] = 0.4705 ;
	men_divorce_rate[23] = 0.4705 ;
	men_divorce_rate[24] = 0.4705 ;

	men_divorce_rate[25] = 0.2283 ;
	men_divorce_rate[26] = 0.2283 ;
	men_divorce_rate[27] = 0.2283 ;
	men_divorce_rate[28] = 0.2283 ;
	men_divorce_rate[29] = 0.2283 ;

	men_divorce_rate[30] = 0.1521 ;
	men_divorce_rate[31] = 0.1521 ;
	men_divorce_rate[32] = 0.1521 ;
	men_divorce_rate[33] = 0.1521 ;
 	men_divorce_rate[34] = 0.1521 ;

 	men_divorce_rate[35] = 0.1165 ;
 	men_divorce_rate[36] = 0.1165 ;
 	men_divorce_rate[37] = 0.1165 ;
 	men_divorce_rate[38] = 0.1165 ;
 	men_divorce_rate[39] = 0.1165 ;

 	men_divorce_rate[40] = 0.0939 ;
 	men_divorce_rate[41] = 0.0939 ;
 	men_divorce_rate[42] = 0.0939 ;
 	men_divorce_rate[43] = 0.0939 ;
 	men_divorce_rate[44] = 0.0939 ;

 	men_divorce_rate[45] = 0.0703 ;
 	men_divorce_rate[46] = 0.0703 ;
 	men_divorce_rate[47] = 0.0703 ;
 	men_divorce_rate[48] = 0.0703 ;
 	men_divorce_rate[49] = 0.0703 ;

 	men_divorce_rate[50] = 0.0495 ;
 	men_divorce_rate[51] = 0.0495 ;
 	men_divorce_rate[52] = 0.0495 ;
 	men_divorce_rate[53] = 0.0495 ;
 	men_divorce_rate[54] = 0.0495 ;

 	men_divorce_rate[55] = 0.0309 ;
 	men_divorce_rate[56] = 0.0309 ;
 	men_divorce_rate[57] = 0.0309 ;
 	men_divorce_rate[58] = 0.0309 ;
 	men_divorce_rate[59] = 0.0309 ;

 	men_divorce_rate[60] = 0.0194 ;
 	men_divorce_rate[61] = 0.0194 ;
 	men_divorce_rate[62] = 0.0194 ;
 	men_divorce_rate[63] = 0.0194 ;
 	men_divorce_rate[64] = 0.0194 ;

 	men_divorce_rate[65] = 0.0110 ;
 	men_divorce_rate[66] = 0.0110 ;
 	men_divorce_rate[67] = 0.0110 ;
 	men_divorce_rate[68] = 0.0110 ;
 	men_divorce_rate[69] = 0.0110 ;

 	men_divorce_rate[70] = 0.0040 ;
 	men_divorce_rate[71] = 0.0040 ;
 	men_divorce_rate[72] = 0.0040 ;
 	men_divorce_rate[73] = 0.0040 ;
 	men_divorce_rate[74] = 0.0040 ;

 	men_divorce_rate[75] = 0.0040 ;
 	men_divorce_rate[76] = 0.0040 ;
 	men_divorce_rate[77] = 0.0040 ;
 	men_divorce_rate[78] = 0.0040 ;
 	men_divorce_rate[79] = 0.0040 ;

 	men_divorce_rate[80] = 0.0040 ;
 	men_divorce_rate[81] = 0.0040 ;
 	men_divorce_rate[82] = 0.0040 ;
 	men_divorce_rate[83] = 0.0040 ;
 	men_divorce_rate[84] = 0.0040 ;

 	men_divorce_rate[85] = 0.0040 ;
 	men_divorce_rate[86] = 0.0040 ;
 	men_divorce_rate[87] = 0.0040 ;
 	men_divorce_rate[88] = 0.0040 ;
 	men_divorce_rate[89] = 0.0040 ;

 	men_divorce_rate[90] = 0.0040 ;
 	men_divorce_rate[91] = 0.0040 ;
 	men_divorce_rate[92] = 0.0040 ;
 	men_divorce_rate[93] = 0.0040 ;
 	men_divorce_rate[94] = 0.0040 ;

 	men_divorce_rate[95] = 0.0040 ;
 	men_divorce_rate[96] = 0.0040 ;
 	men_divorce_rate[97] = 0.0040 ;
 	men_divorce_rate[98] = 0.0040 ;
 	men_divorce_rate[99] = 0.0040 ;

	women_divorce_rate[0] = 0.0000 ;//結婚できないから、
	women_divorce_rate[1] = 0.0000 ;//離婚もできない
	women_divorce_rate[2] = 0.0000 ;
	women_divorce_rate[3] = 0.0000 ;
	women_divorce_rate[4] = 0.0000 ;

	women_divorce_rate[5] = 0.0000 ;
	women_divorce_rate[6] = 0.0000 ;
	women_divorce_rate[7] = 0.0000 ;
	women_divorce_rate[8] = 0.0000 ;
	women_divorce_rate[9] = 0.0000 ;

	women_divorce_rate[10] = 0.0000 ;
	women_divorce_rate[11] = 0.0000 ;
	women_divorce_rate[12] = 0.0000 ;
	women_divorce_rate[13] = 0.0000 ;
	women_divorce_rate[14] = 0.0000 ;  

	women_divorce_rate[15] = 0.0000 ;
	women_divorce_rate[16] = 0.8274 ;
	women_divorce_rate[17] = 0.8274 ;
	women_divorce_rate[18] = 0.8274 ;
	women_divorce_rate[19] = 0.8274 ;

	women_divorce_rate[20] = 0.4834 ;
	women_divorce_rate[21] = 0.4834 ;
	women_divorce_rate[22] = 0.4834 ;
	women_divorce_rate[23] = 0.4834 ;
	women_divorce_rate[24] = 0.4834 ;

	women_divorce_rate[25] = 0.2288 ;
	women_divorce_rate[26] = 0.2288 ;
	women_divorce_rate[27] = 0.2288 ;
	women_divorce_rate[28] = 0.2288 ;
	women_divorce_rate[29] = 0.2288 ;

	women_divorce_rate[30] = 0.1480 ;
	women_divorce_rate[31] = 0.1480 ;
	women_divorce_rate[32] = 0.1480 ;
	women_divorce_rate[33] = 0.1480 ;
 	women_divorce_rate[34] = 0.1480 ;

 	women_divorce_rate[35] = 0.1090 ;
 	women_divorce_rate[36] = 0.1090 ;
 	women_divorce_rate[37] = 0.1090 ;
 	women_divorce_rate[38] = 0.1090 ;
 	women_divorce_rate[39] = 0.1090 ;

 	women_divorce_rate[40] = 0.0833 ;
 	women_divorce_rate[41] = 0.0833 ;
 	women_divorce_rate[42] = 0.0833 ;
 	women_divorce_rate[43] = 0.0833 ;
 	women_divorce_rate[44] = 0.0833 ;

 	women_divorce_rate[45] = 0.0560 ;
 	women_divorce_rate[46] = 0.0560 ;
 	women_divorce_rate[47] = 0.0560 ;
 	women_divorce_rate[48] = 0.0560 ;
 	women_divorce_rate[49] = 0.0560 ;

 	women_divorce_rate[50] = 0.0322 ;
 	women_divorce_rate[51] = 0.0322 ;
 	women_divorce_rate[52] = 0.0322 ;
 	women_divorce_rate[53] = 0.0322 ;
 	women_divorce_rate[54] = 0.0322 ;

 	women_divorce_rate[55] = 0.0172 ;
 	women_divorce_rate[56] = 0.0172 ;
 	women_divorce_rate[57] = 0.0172 ;
 	women_divorce_rate[58] = 0.0172 ;
 	women_divorce_rate[59] = 0.0172 ;

 	women_divorce_rate[60] = 0.0113 ;
 	women_divorce_rate[61] = 0.0113 ;
 	women_divorce_rate[62] = 0.0113 ;
 	women_divorce_rate[63] = 0.0113 ;
 	women_divorce_rate[64] = 0.0113 ;

 	women_divorce_rate[65] = 0.0073 ;
 	women_divorce_rate[66] = 0.0073 ;
 	women_divorce_rate[67] = 0.0073 ;
 	women_divorce_rate[68] = 0.0073 ;
 	women_divorce_rate[69] = 0.0073 ;

 	women_divorce_rate[70] = 0.0028 ;
 	women_divorce_rate[71] = 0.0028 ;
 	women_divorce_rate[72] = 0.0028 ;
 	women_divorce_rate[73] = 0.0028 ;
 	women_divorce_rate[74] = 0.0028 ;

 	women_divorce_rate[75] = 0.0028 ;
 	women_divorce_rate[76] = 0.0028 ;
 	women_divorce_rate[77] = 0.0028 ;
 	women_divorce_rate[78] = 0.0028 ;
 	women_divorce_rate[79] = 0.0028 ;

 	women_divorce_rate[80] = 0.0028 ;
 	women_divorce_rate[81] = 0.0028 ;
 	women_divorce_rate[82] = 0.0028 ;
 	women_divorce_rate[83] = 0.0028 ;
 	women_divorce_rate[84] = 0.0028 ;

 	women_divorce_rate[85] = 0.0028 ;
 	women_divorce_rate[86] = 0.0028 ;
 	women_divorce_rate[87] = 0.0028 ;
 	women_divorce_rate[88] = 0.0028 ;
 	women_divorce_rate[89] = 0.0028 ;

 	women_divorce_rate[90] = 0.0028 ;
 	women_divorce_rate[91] = 0.0028 ;
 	women_divorce_rate[92] = 0.0028 ;
 	women_divorce_rate[93] = 0.0028 ;
 	women_divorce_rate[94] = 0.0028 ;

 	women_divorce_rate[95] = 0.0028 ;
 	women_divorce_rate[96] = 0.0028 ;
 	women_divorce_rate[97] = 0.0028 ;
 	women_divorce_rate[98] = 0.0028 ;
 	women_divorce_rate[99] = 0.0028 ;


	// 再婚率 (2010年)

	// × 離婚している人に対する再婚率
	// ○ 世代人口(未婚、結婚、離婚関係なし)に対する再婚率
	
	// ということで、計算式に注意しなければならない。
	//  (というか、なんで、最初からそういう数値にしないんだ!)

	// 離婚している人に対する再婚率 (に変換する式)
	//    = 
	// 再婚率 x その世代の人口数 / 離婚(×未婚、結婚)人口
	// としなければなない

	//表６－６ 性，年齢（５歳階級）別再婚率：1930～2010年	
	//（‰） 
	//年  齢	2010年

	men_remarrige_ratio[0] = 0.0000;
	men_remarrige_ratio[1] = 0.0000;
	men_remarrige_ratio[2] = 0.0000;
	men_remarrige_ratio[3] = 0.0000;
	men_remarrige_ratio[4] = 0.0000;

	men_remarrige_ratio[5] = 0.0000;
	men_remarrige_ratio[6] = 0.0000;
	men_remarrige_ratio[7] = 0.0000;
	men_remarrige_ratio[8] = 0.0000;
	men_remarrige_ratio[9] = 0.0000;

	men_remarrige_ratio[10] = 0.0000;
	men_remarrige_ratio[11] = 0.0000;
	men_remarrige_ratio[12] = 0.0000;
	men_remarrige_ratio[13] = 0.0000;
	men_remarrige_ratio[14] = 0.0000;

	men_remarrige_ratio[15] = 0.0000;
	men_remarrige_ratio[16] = 0.0000;
	men_remarrige_ratio[17] = 0.0000;
	men_remarrige_ratio[18] = 0.0001;
	men_remarrige_ratio[19] = 0.0001;

	men_remarrige_ratio[20] = 0.0048;
	men_remarrige_ratio[21] = 0.0048;
	men_remarrige_ratio[22] = 0.0048;
	men_remarrige_ratio[23] = 0.0048;
	men_remarrige_ratio[24] = 0.0048;

	men_remarrige_ratio[25] = 0.0226;
	men_remarrige_ratio[26] = 0.0226;
	men_remarrige_ratio[27] = 0.0226;
	men_remarrige_ratio[28] = 0.0226;
	men_remarrige_ratio[29] = 0.0226;

	men_remarrige_ratio[30] = 0.0448;
	men_remarrige_ratio[31] = 0.0448;
	men_remarrige_ratio[32] = 0.0448;
	men_remarrige_ratio[33] = 0.0448;
	men_remarrige_ratio[34] = 0.0448; 

	men_remarrige_ratio[35] = 0.0476;
	men_remarrige_ratio[36] = 0.0476;
	men_remarrige_ratio[37] = 0.0476;
	men_remarrige_ratio[38] = 0.0476;
	men_remarrige_ratio[39] = 0.0476;

	men_remarrige_ratio[40] = 0.0371;
	men_remarrige_ratio[41] = 0.0371;
	men_remarrige_ratio[42] = 0.0371;
	men_remarrige_ratio[43] = 0.0371;
	men_remarrige_ratio[44] = 0.0371; 

	men_remarrige_ratio[45] = 0.0261;
	men_remarrige_ratio[46] = 0.0261;
	men_remarrige_ratio[47] = 0.0261;
	men_remarrige_ratio[48] = 0.0261;
	men_remarrige_ratio[49] = 0.0261;

	men_remarrige_ratio[50] = 0.0180;
	men_remarrige_ratio[51] = 0.0180;
	men_remarrige_ratio[52] = 0.0180;
	men_remarrige_ratio[53] = 0.0180;
	men_remarrige_ratio[54] = 0.0180;

	men_remarrige_ratio[55] = 0.0123;
	men_remarrige_ratio[56] = 0.0123;
	men_remarrige_ratio[57] = 0.0123;
	men_remarrige_ratio[58] = 0.0123;
	men_remarrige_ratio[59] = 0.0123;

	men_remarrige_ratio[60] = 0.0091;
	men_remarrige_ratio[61] = 0.0091;
	men_remarrige_ratio[62] = 0.0091;
	men_remarrige_ratio[63] = 0.0091;
	men_remarrige_ratio[64] = 0.0091;

	men_remarrige_ratio[65] = 0.0056;
	men_remarrige_ratio[66] = 0.0056;
	men_remarrige_ratio[67] = 0.0056;
	men_remarrige_ratio[68] = 0.0056;
	men_remarrige_ratio[69] = 0.0056;

	men_remarrige_ratio[70] = 0.0025;
	men_remarrige_ratio[71] = 0.0025;
	men_remarrige_ratio[72] = 0.0025;
	men_remarrige_ratio[73] = 0.0025;
	men_remarrige_ratio[74] = 0.0025;

	men_remarrige_ratio[75] = 0.0025;
	men_remarrige_ratio[76] = 0.0025;
	men_remarrige_ratio[77] = 0.0025;
	men_remarrige_ratio[78] = 0.0025;
	men_remarrige_ratio[79] = 0.0025;

	men_remarrige_ratio[80] = 0.0025;
	men_remarrige_ratio[81] = 0.0025;
	men_remarrige_ratio[82] = 0.0025;
	men_remarrige_ratio[83] = 0.0025;
	men_remarrige_ratio[84] = 0.0025;

	men_remarrige_ratio[85] = 0.0025;
	men_remarrige_ratio[86] = 0.0025;
	men_remarrige_ratio[87] = 0.0025;
	men_remarrige_ratio[88] = 0.0025;
	men_remarrige_ratio[89] = 0.0025;

	men_remarrige_ratio[90] = 0.0025;
	men_remarrige_ratio[91] = 0.0025;
	men_remarrige_ratio[92] = 0.0025;
	men_remarrige_ratio[93] = 0.0025;
	men_remarrige_ratio[94] = 0.0025;

	men_remarrige_ratio[95] = 0.0025;
	men_remarrige_ratio[96] = 0.0025;
	men_remarrige_ratio[97] = 0.0025;
	men_remarrige_ratio[98] = 0.0025;
	men_remarrige_ratio[99] = 0.0025;

	women_remarrige_ratio[0] = 0.0000;
	women_remarrige_ratio[1] = 0.0000;
	women_remarrige_ratio[2] = 0.0000;
	women_remarrige_ratio[3] = 0.0000;
	women_remarrige_ratio[4] = 0.0000;

	women_remarrige_ratio[5] = 0.0000;
	women_remarrige_ratio[6] = 0.0000;
	women_remarrige_ratio[7] = 0.0000;
	women_remarrige_ratio[8] = 0.0000;
	women_remarrige_ratio[9] = 0.0000;

	women_remarrige_ratio[10] = 0.0000;
	women_remarrige_ratio[11] = 0.0000;
	women_remarrige_ratio[12] = 0.0000;
	women_remarrige_ratio[13] = 0.0000;
	women_remarrige_ratio[14] = 0.0000;

	women_remarrige_ratio[15] = 0.0000;
	women_remarrige_ratio[16] = 0.0004;
	women_remarrige_ratio[17] = 0.0004;
	women_remarrige_ratio[18] = 0.0004;
	women_remarrige_ratio[19] = 0.0004;
	
	women_remarrige_ratio[20] = 0.0103;
	women_remarrige_ratio[21] = 0.0103;
	women_remarrige_ratio[22] = 0.0103;
	women_remarrige_ratio[23] = 0.0103;
	women_remarrige_ratio[24] = 0.0103;

	women_remarrige_ratio[25] = 0.0345;
	women_remarrige_ratio[26] = 0.0345;
	women_remarrige_ratio[27] = 0.0345;
	women_remarrige_ratio[28] = 0.0345;
	women_remarrige_ratio[29] = 0.0345;

	women_remarrige_ratio[30] = 0.0501;
	women_remarrige_ratio[31] = 0.0501;
	women_remarrige_ratio[32] = 0.0501;
	women_remarrige_ratio[33] = 0.0501;
	women_remarrige_ratio[34] = 0.0501;

	women_remarrige_ratio[35] = 0.0438;
	women_remarrige_ratio[36] = 0.0438;
	women_remarrige_ratio[37] = 0.0438;
	women_remarrige_ratio[38] = 0.0438;
	women_remarrige_ratio[39] = 0.0438;

	women_remarrige_ratio[40] = 0.0269;
	women_remarrige_ratio[41] = 0.0269;
	women_remarrige_ratio[42] = 0.0269;
	women_remarrige_ratio[43] = 0.0269;
	women_remarrige_ratio[44] = 0.0269;

	women_remarrige_ratio[45] = 0.0176; 
	women_remarrige_ratio[46] = 0.0176; 
	women_remarrige_ratio[47] = 0.0176; 
	women_remarrige_ratio[48] = 0.0176; 
	women_remarrige_ratio[49] = 0.0176; 

	women_remarrige_ratio[50] = 0.0115; 
	women_remarrige_ratio[51] = 0.0115; 
	women_remarrige_ratio[52] = 0.0115; 
	women_remarrige_ratio[53] = 0.0115; 
	women_remarrige_ratio[54] = 0.0115; 

	women_remarrige_ratio[55] = 0.0069; 
	women_remarrige_ratio[56] = 0.0069; 
	women_remarrige_ratio[57] = 0.0069; 
	women_remarrige_ratio[58] = 0.0069; 
	women_remarrige_ratio[59] = 0.0069; 

	women_remarrige_ratio[60] = 0.0043; 
	women_remarrige_ratio[61] = 0.0043; 
	women_remarrige_ratio[62] = 0.0043;  
	women_remarrige_ratio[63] = 0.0043;  
	women_remarrige_ratio[64] = 0.0043;
  
	women_remarrige_ratio[65] = 0.0025;
	women_remarrige_ratio[66] = 0.0025;
	women_remarrige_ratio[67] = 0.0025;
	women_remarrige_ratio[68] = 0.0025;
	women_remarrige_ratio[69] = 0.0025;

	women_remarrige_ratio[70] = 0.0007;
	women_remarrige_ratio[71] = 0.0007;
	women_remarrige_ratio[72] = 0.0007;
	women_remarrige_ratio[73] = 0.0007;
	women_remarrige_ratio[74] = 0.0007;

	women_remarrige_ratio[75] = 0.0007;
	women_remarrige_ratio[76] = 0.0007;
	women_remarrige_ratio[77] = 0.0007;
	women_remarrige_ratio[78] = 0.0007;
	women_remarrige_ratio[79] = 0.0007;

	women_remarrige_ratio[80] = 0.0007;
	women_remarrige_ratio[81] = 0.0007;
	women_remarrige_ratio[82] = 0.0007;
	women_remarrige_ratio[83] = 0.0007;
	women_remarrige_ratio[84] = 0.0007;

	women_remarrige_ratio[85] = 0.0007;
	women_remarrige_ratio[86] = 0.0007;
	women_remarrige_ratio[87] = 0.0007;
	women_remarrige_ratio[88] = 0.0007;
	women_remarrige_ratio[89] = 0.0007;

	women_remarrige_ratio[90] = 0.0007;
	women_remarrige_ratio[91] = 0.0007;
	women_remarrige_ratio[92] = 0.0007;
	women_remarrige_ratio[93] = 0.0007;
	women_remarrige_ratio[94] = 0.0007;

	women_remarrige_ratio[95] = 0.0007;
	women_remarrige_ratio[96] = 0.0007;
	women_remarrige_ratio[97] = 0.0007;
	women_remarrige_ratio[98] = 0.0007;
	women_remarrige_ratio[99] = 0.0007;

}

人口シミュレーションプログラム

2014年8月14日2021/04,江端さんの技術メモ

/////////////////////////////////////////
//  gcc -g life_0813.c -o life_0813
/////////////////////////////////////////

#include <stdio.h>
#include <stdlib.h>

/// グローバル変数で強行する
struct date
{
  int day;
  int month;
  int year;
};

enum sex {woman, man};
enum marrige {unmarried, married, divorce, remarriage};
 

struct person {
  int age; //年齢
  enum sex sex;  // 性別
  enum marrige marrige;  // 成婚

  struct person *prev;  /* 前の構造体を示すポインタ */
  struct person *next;  /* 次の構造体を示すポインタ */
};



double men[100],women[100]; // 年齢別人口 平成22年データ 単位は1000人
double men_death_rate[100],women_death_rate[100];  //死亡率 平成22年データ
double men_unmarried_rate[100],women_unmarried_rate[100];  //未婚率 平成22年データ

double men_existance_matching_rate[100];	// 有配偶率 (平成22年)
double women_existance_matching_rate[100];	// 有配偶率 (平成22年)
// 初婚、再婚関係なく、その世代に対して。
// 結婚している比率

double men_divorce_rate[100]; // 有配偶離婚率
double women_divorce_rate[100]; // 有配偶離婚率


// ○ 結婚している人に対する離婚率
double men_remarrige_ratio[100];
double women_remarrige_ratio[100]; // 再婚率 (2010年)

int initial_data();// 死亡率 平成22年データ (資料  厚生労働省大臣官房統計情報部人口動態・保健統計課「人口動態統計」)							

void delete_person(
				  struct person **p_person,
				  struct person **p_first_person,
				  struct person **p_last_person)   // メモリを消す処理e
{
  struct person *temp_p_person;

  if (*p_first_person == *p_last_person){
	//printf("p_first_person == p_last_person\n");
	exit(0);
  }

  if (*p_person == *p_first_person){ // 最初の場合
	*p_first_person = (*p_person)->next;
	(*p_first_person)->prev = NULL;
	//printf("C1");
	free(*p_person);
	*p_person = *p_first_person;
  }
  else if (*p_person == *p_last_person){ //最後の場合
	*p_last_person = (*p_person)->prev;
	(*p_last_person)->next = NULL;
	//printf("C2");
	free(*p_person);
	*p_person = *p_last_person;
  }
  else {
	(*p_person)->next->prev = (*p_person)->prev;
	(*p_person)->prev->next = (*p_person)->next;
	temp_p_person = (*p_person)->prev; // 一つ前のポインタに退避
	//printf("C3");
	free(*p_person);

	*p_person = temp_p_person;
  }

}


population_counter(struct person *p_first_person)
{
  struct person *p_person;
  int count;

  p_person = p_first_person;  //最初の一人
  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);
}


int main ()
{
  int i, k, count;
  struct person *p_person, *p_prev_person, *p_next_person;
  struct person *p_first_person, *p_last_person;
  int women_pop, men_pop;
  double dd;


  // 日本国民一億人のデータを作る 

  //printf("checked -1.\r\n");

  initial_data();  // 初期データ入力

  //printf("checked 0.\r\n");

  srand(10); // 乱数のシード


  ////////////  現状データの入力 ////////////
  
  // 最初の一人(0人目)  99歳の女性と仮定する。
  p_person= (struct person *)malloc(sizeof(struct person));
  if(p_person == NULL) {
      printf("メモリが確保できません\n");
      exit(EXIT_FAILURE);
   }
  p_person->sex = woman;
  p_person->age = 99;


  p_first_person = p_person;  //最初の一人

  // (最後に)ポインタをリンクする
  p_person->prev = NULL;
  p_prev_person = p_person;

  for(i=99; i>=0; i--){
	women_pop = women[i] * 1000;
	men_pop = men[i] * 1000;

	for(k=0; k<women_pop; k++){
	  p_person= (struct person *)malloc(sizeof(struct person));
	  if(p_person == NULL) {
		printf("メモリが確保できません %d\n",i);
		exit(EXIT_FAILURE);
	  }
	  
	  p_person->sex = woman;
	  p_person->age = i;

	  // (最後に)ポインタをリンクする
	  p_prev_person->next = p_person;
	  p_person->prev = p_prev_person;
	  p_person->next = NULL;
	  p_prev_person = p_person;
	  
	}

	for(k=0; k<men_pop; k++){
	  p_person= (struct person *)malloc(sizeof(struct person));
	  if(p_person == NULL) {
		printf("メモリが確保できません %d\n",i);
		exit(EXIT_FAILURE);
	  }
	  
	  p_person->sex = man;
	  p_person->age = i;

	  // (最後に)ポインタをリンクする
	  p_prev_person->next = p_person;
	  p_person->prev = p_prev_person;
	  p_person->next = NULL;
	  p_prev_person = p_person;
	  
	}
  }
  p_last_person = p_person;



  //printf("checked 1.\n");

  // 既婚(離婚も含む)・未婚の入力 (乱数で入力する) (離婚人口も含む)
  p_person = p_first_person;  //最初の一人
  while (p_person != NULL){

	if (p_person->sex == woman){ // 女性の場合
	  if (women_unmarried_rate[p_person->age] >= rand()/32768.0){
		p_person->marrige = unmarried;
	  }
	  else {
		p_person->marrige = married;
	  }
	}
	else{// 男性の場合
	  if (men_unmarried_rate[p_person->age] >= rand()/32768.0){
		p_person->marrige = unmarried;
	  }
	  else {
		p_person->marrige = married;
	  }
	}
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);

  // 離婚させる (ここは男女で分ける必要ないが、詳細データが手に入った時に反映)
  p_person = p_first_person;  //最初の一人
  while (p_person != NULL){

	if (p_person->sex == woman){ // 女性の場合
	  if ((p_person->marrige == married) || (p_person->marrige == remarriage)){ // 結婚している

		if( women_divorce_rate[p_person->age] >= rand()/32768.0){
		  p_person->marrige = divorce; // 離婚させる
		}
	  }
	}
	else{// 男性の場合
	  if ((p_person->marrige == married) || (p_person->marrige == remarriage)){ // 結婚している
		if( men_divorce_rate[p_person->age] >= rand()/32768.0){
		  p_person->marrige = divorce; // 離婚させる
		}
	  }
	}
	p_person = p_person->next;
  }

  // 再婚させる 

  // 離婚している人に対する再婚率 (に変換する式)
  //    = 
  // 再婚率 x その世代の人口数 / 離婚(×未婚、結婚)人口
  // としなければなない
  

  // 上記の解釈間違いの可能性あり


  // 離婚した人を再婚させる (ここは男女で分ける必要がある)

  p_person = p_first_person;  //最初の一人

  while (p_person != NULL){
	if (p_person->sex == woman){ // 女性の場合
	  if (p_person->marrige == divorce){ // 離婚している
		if( women_remarrige_ratio[p_person->age] >= rand()/32768.0){
		  p_person->marrige = remarriage; // 再婚させる
		}
	  }
	}
	else{// 男性の場合
	  if (p_person->marrige == divorce){ // 離婚している
		if( men_remarrige_ratio[p_person->age] >= rand()/32768.0){
		  p_person->marrige = remarriage; // 再婚させる
		}
	  }
	}
	p_person = p_person->next;
  }
		
 // (T.B.D.)
	
  //初期値チェックルーチン


#if 1
  p_person = p_first_person;  //最初の一人

  printf("性別,年齢,成婚\n");

  while (p_person != NULL){
	
	if (p_person->sex == woman)
	  printf("女性,");
	else
	  printf("男性,");

	printf("%d,",p_person->age);

	if (p_person->marrige == unmarried)
	  printf("未婚\n");
	else if (p_person->marrige == married)
	  printf("結婚\n");
	else if (p_person->marrige == divorce)
	  printf("離婚\n");
	else if (p_person->marrige == remarriage)
	  printf("再婚\n");
	
	p_person = p_person->next;
  }

  //printf("count=%d \n", count);

#endif


  //初期値チェックルーチン 終り

  ////////////  現状データの入力 終わり ////////////

  p_person = p_first_person;  //最初の一人

  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);

  // (1)100歳以上は、いない(死んだ)ことにする。
  //     → person->age が100になったらオブジェクトを開放

#if 0 
//時間計測の為、コメントアウト

  for(i=0; i<100; i++){//100年分を回す
	
	//printf("%d\n",i);
	
	p_person = p_first_person;  //最初の一人

	while (p_person != NULL){
	  p_person->age++;
	  if (p_person->age == 100){ //100歳以上は削除
		  delete_person(&p_person,&p_first_person,&p_last_person);
	  }
	  p_person = p_person->next;
	}

	population_counter(p_first_person);
  }

  
  p_person = p_first_person;  //最初の一人

  count = 0;
  while (p_person != NULL){
	count++;
	p_person = p_person->next;
  }
  //printf("count=%d \n", count);
  
#endif // 時間計測の為、コメントアウト

}



int initial_data()
{
	men[ 0]=549   ; men_death_rate[ 0]=0.0025   ;
	men[ 1]=535   ; men_death_rate[ 1]=0.0004   ;
	men[ 2]=535   ; men_death_rate[ 2]=0.0002   ;	
	men[ 3]=550   ; men_death_rate[ 3]=0.0002   ;	
	men[ 4]=548   ; men_death_rate[ 4]=0.0002   ;

	men[ 5]=544   ; men_death_rate[ 5]=0.0001   ;
	men[ 6]=542   ; men_death_rate[ 6]=0.0001   ;
	men[ 7]=562   ; men_death_rate[ 7]=0.0001   ;
	men[ 8]=574   ; men_death_rate[ 8]=0.0001   ;
	men[ 9]=589   ; men_death_rate[ 9]=0.0001   ;

	men[10]=597   ; men_death_rate[10]=0.0001   ;
	men[11]=604   ; men_death_rate[11]=0.0001   ;
	men[12]=604   ; men_death_rate[12]=0.0001   ;
	men[13]=613   ; men_death_rate[13]=0.0001   ;
	men[14]=610   ; men_death_rate[14]=0.0001   ;

	men[15]=607   ; men_death_rate[15]=0.0003   ;
	men[16]=627   ; men_death_rate[16]=0.0003   ;
	men[17]=632   ; men_death_rate[17]=0.0003   ;
	men[18]=621   ; men_death_rate[18]=0.0003   ;
	men[19]=631   ; men_death_rate[19]=0.0003   ;

	men[20]=623   ; men_death_rate[20]=0.0006   ;
	men[21]=632   ; men_death_rate[21]=0.0006   ;
	men[22]=648   ; men_death_rate[22]=0.0006   ;
	men[23]=668   ; men_death_rate[23]=0.0006   ;
	men[24]=683   ; men_death_rate[24]=0.0006   ;

	men[25]=697   ; men_death_rate[25]=0.0007   ;
	men[26]=723   ; men_death_rate[26]=0.0007   ;
	men[27]=745   ; men_death_rate[27]=0.0007   ;
	men[28]=754   ; men_death_rate[28]=0.0007   ;
	men[29]=754   ; men_death_rate[29]=0.0007   ;

	men[30]=764   ; men_death_rate[30]=0.0008   ;
	men[31]=797   ; men_death_rate[31]=0.0008   ;
	men[32]=818   ; men_death_rate[32]=0.0008   ;
	men[33]=852   ; men_death_rate[33]=0.0008   ;
	men[34]=873   ; men_death_rate[34]=0.0008   ;

	men[35]=917   ; men_death_rate[35]=0.0010   ;
	men[36]=960   ; men_death_rate[36]=0.0010   ;
	men[37]=1012  ; men_death_rate[37]=0.0010   ;
	men[38]=1028  ; men_death_rate[38]=0.0010   ;
	men[39]=1010  ; men_death_rate[39]=0.0010   ;

	men[40]=982   ; men_death_rate[40]=0.0015   ;
	men[41]=954   ; men_death_rate[41]=0.0015   ;
	men[42]=937   ; men_death_rate[42]=0.0015   ;
	men[43]=916   ; men_death_rate[43]=0.0015   ;
	men[44]=915   ; men_death_rate[44]=0.0015   ;

	men[45]=713   ; men_death_rate[45]=0.0024   ;
	men[46]=882   ; men_death_rate[46]=0.0024   ;
	men[47]=826   ; men_death_rate[47]=0.0024   ;
	men[48]=805   ; men_death_rate[48]=0.0024   ;
	men[49]=778   ; men_death_rate[49]=0.0024   ;

	men[50]=765   ; men_death_rate[50]=0.0038   ;
	men[51]=770   ; men_death_rate[51]=0.0038   ;
	men[52]=783   ; men_death_rate[52]=0.0038   ;
	men[53]=761   ; men_death_rate[53]=0.0038   ;
	men[54]=740   ; men_death_rate[54]=0.0038   ;

	men[55]=776   ; men_death_rate[55]=0.0063   ;
	men[56]=803   ; men_death_rate[56]=0.0063   ;
	men[57]=803   ; men_death_rate[57]=0.0063   ;
	men[58]=850   ; men_death_rate[58]=0.0063   ;
	men[59]=896   ; men_death_rate[59]=0.0063   ;

	men[60]=949   ; men_death_rate[60]=0.0093   ;
	men[61]=1018  ; men_death_rate[61]=0.0093   ;
	men[62]=1111  ; men_death_rate[62]=0.0093   ;
	men[63]=1099  ; men_death_rate[63]=0.0093   ;
	men[64]=1042  ; men_death_rate[64]=0.0093   ;

	men[65]=645   ; men_death_rate[65]=0.0146   ;
	men[66]=684   ; men_death_rate[66]=0.0146   ;
	men[67]=825   ; men_death_rate[67]=0.0146   ;
	men[68]=794   ; men_death_rate[68]=0.0146   ;
	men[69]=809   ; men_death_rate[69]=0.0146   ;

	men[70]=780   ; men_death_rate[70]=0.0227   ;
	men[71]=698   ; men_death_rate[71]=0.0227   ;
	men[72]=599   ; men_death_rate[72]=0.0227   ;
	men[73]=627   ; men_death_rate[73]=0.0227   ;
	men[74]=631   ; men_death_rate[74]=0.0227   ;

	men[75]=616   ; men_death_rate[75]=0.0396   ;
	men[76]=571   ; men_death_rate[76]=0.0396   ;
	men[77]=521   ; men_death_rate[77]=0.0396   ;
	men[78]=501   ; men_death_rate[78]=0.0396   ;
	men[79]=470   ; men_death_rate[79]=0.0396   ;

	men[80]=430   ; men_death_rate[80]=0.0705   ;
	men[81]=385   ; men_death_rate[81]=0.0705   ;
	men[82]=350   ; men_death_rate[82]=0.0705   ;
	men[83]=316   ; men_death_rate[83]=0.0705   ;
	men[84]=281   ; men_death_rate[84]=0.0705   ;

	men[85]=247   ; men_death_rate[85]=0.1200   ;
	men[86]=202   ; men_death_rate[86]=0.1200   ;
	men[87]=158   ; men_death_rate[87]=0.1200   ;
	men[88]=122   ; men_death_rate[88]=0.1200   ;
	men[89]=98    ; men_death_rate[89]=0.1200   ;

	men[90]=78    ; men_death_rate[90]=0.2025   ;
	men[91]=67    ; men_death_rate[91]=0.2025   ;
	men[92]=44    ; men_death_rate[92]=0.2025   ;
	men[93]=36    ; men_death_rate[93]=0.2025   ;
	men[94]=28    ; men_death_rate[94]=0.2025   ;

	men[95]=21    ; men_death_rate[95]=0.3188   ;
	men[96]=15    ; men_death_rate[96]=0.3188   ;
	men[97]=11    ; men_death_rate[97]=0.3188   ;
	men[98]=7     ; men_death_rate[98]=0.3188   ;
	men[99]=5     ; men_death_rate[99]=0.3188   ;

	women[ 0]=520; women_death_rate[ 0]=0.0021  ;
	women[ 1]=510; women_death_rate[ 1]=0.0004  ;
	women[ 2]=511; women_death_rate[ 2]=0.0002  ;
	women[ 3]=525; women_death_rate[ 3]=0.0001  ;
	women[ 4]=522; women_death_rate[ 4]=0.0001  ;

	women[ 5]=518; women_death_rate[ 5]=0.0001   ;
	women[ 6]=517; women_death_rate[ 6]=0.0001   ;
	women[ 7]=538; women_death_rate[ 7]=0.0001   ;
	women[ 8]=545; women_death_rate[ 8]=0.0001   ;
	women[ 9]=561; women_death_rate[ 9]=0.0001   ;

	women[10]=568; women_death_rate[10]=0.0001   ;
	women[11]=573; women_death_rate[11]=0.0001   ;
	women[12]=576; women_death_rate[12]=0.0001   ;
	women[13]=585; women_death_rate[13]=0.0001   ;
	women[14]=583; women_death_rate[14]=0.0001   ;

	women[15]=578; women_death_rate[15]=0.0002   ;
	women[16]=595; women_death_rate[16]=0.0002   ;
	women[17]=597; women_death_rate[17]=0.0002   ;
	women[18]=589; women_death_rate[18]=0.0002   ;
	women[19]=599; women_death_rate[19]=0.0002   ;

	women[20]=596; women_death_rate[20]=0.0003   ;
	women[21]=605; women_death_rate[21]=0.0003   ;
	women[22]=622; women_death_rate[22]=0.0003   ;
	women[23]=638; women_death_rate[23]=0.0003   ;
	women[24]=655; women_death_rate[24]=0.0003   ;

	women[25]=667; women_death_rate[25]=0.0003   ;
	women[26]=697; women_death_rate[26]=0.0003   ;
	women[27]=719; women_death_rate[27]=0.0003   ;
	women[28]=729; women_death_rate[28]=0.0003   ;
	women[29]=734; women_death_rate[29]=0.0003   ;

	women[30]=742; women_death_rate[30]=0.0004   ;
	women[31]=774; women_death_rate[31]=0.0004   ;
	women[32]=794; women_death_rate[32]=0.0004   ;
	women[33]=828; women_death_rate[33]=0.0004   ;
	women[34]=849; women_death_rate[34]=0.0004   ;

	women[35]=890; women_death_rate[35]=0.0006   ;
	women[36]=931; women_death_rate[36]=0.0006   ;
	women[37]=982; women_death_rate[37]=0.0006   ;
	women[38]=1001; women_death_rate[38]=0.0006   ;
	women[39]=981; women_death_rate[39]=0.0006   ;

	women[40]=958; women_death_rate[40]=0.0008   ;
	women[41]=931; women_death_rate[41]=0.0008   ;
	women[42]=920; women_death_rate[42]=0.0008   ;
	women[43]=902; women_death_rate[43]=0.0008   ;
	women[44]=898; women_death_rate[44]=0.0008   ;

	women[45]=705; women_death_rate[45]=0.0013   ;
	women[46]=872; women_death_rate[46]=0.0013   ;
	women[47]=815; women_death_rate[47]=0.0013   ;
	women[48]=798; women_death_rate[48]=0.0013   ;
	women[49]=772; women_death_rate[49]=0.0013   ;

	women[50]=760; women_death_rate[50]=0.0019   ;
	women[51]=768; women_death_rate[51]=0.0019   ;
	women[52]=783; women_death_rate[52]=0.0019   ;
	women[53]=765; women_death_rate[53]=0.0019   ;
	women[54]=744; women_death_rate[54]=0.0019   ;

	women[55]=783; women_death_rate[55]=0.0028   ;
	women[56]=810; women_death_rate[56]=0.0028   ;
	women[57]=813; women_death_rate[57]=0.0028   ;
	women[58]=868; women_death_rate[58]=0.0028   ;
	women[59]=918; women_death_rate[59]=0.0028   ;

	women[60]=975; women_death_rate[60]=0.0039   ;
	women[61]=1051; women_death_rate[61]=0.0039   ;
	women[62]=1152; women_death_rate[62]=0.0039   ;
	women[63]=1146; women_death_rate[63]=0.0039   ;
	women[64]=1090; women_death_rate[64]=0.0039   ;

	women[65]=685; women_death_rate[65]=0.0060   ;
	women[66]=741; women_death_rate[66]=0.0060   ;
	women[67]=903; women_death_rate[67]=0.0060   ;
	women[68]=875; women_death_rate[68]=0.0060   ;
	women[69]=899; women_death_rate[69]=0.0060   ;

	women[70]=873; women_death_rate[70]=0.0098   ;
	women[71]=793; women_death_rate[71]=0.0098   ;
	women[72]=690; women_death_rate[72]=0.0098   ;
	women[73]=738; women_death_rate[73]=0.0098   ;
	women[74]=755; women_death_rate[74]=0.0098   ;

	women[75]=753; women_death_rate[75]=0.0179   ;
	women[76]=718; women_death_rate[76]=0.0179   ;
	women[77]=675; women_death_rate[77]=0.0179   ;
	women[78]=671; women_death_rate[78]=0.0179   ;
	women[79]=646; women_death_rate[79]=0.0179   ;

	women[80]=614; women_death_rate[80]=0.0343   ;
	women[81]=573; women_death_rate[81]=0.0343   ;
	women[82]=547; women_death_rate[82]=0.0343   ;
	women[83]=515; women_death_rate[83]=0.0343   ;
	women[84]=482; women_death_rate[84]=0.0343   ;

	women[85]=454; women_death_rate[85]=0.0691   ;
	women[86]=405; women_death_rate[86]=0.0691   ;
	women[87]=349; women_death_rate[87]=0.0691   ;
	women[88]=313; women_death_rate[88]=0.0691   ;
	women[89]=276; women_death_rate[89]=0.0691   ;

	women[90]=236; women_death_rate[90]=0.1312   ;
	women[91]=213; women_death_rate[91]=0.1312   ;
	women[92]=146; women_death_rate[92]=0.1312   ;
	women[93]=128; women_death_rate[93]=0.1312   ;
	women[94]=106; women_death_rate[94]=0.1312   ;

	women[95]=87 ; women_death_rate[95]=0.2381   ;
	women[96]=63 ; women_death_rate[96]=0.2381   ;
	women[97]=49 ; women_death_rate[97]=0.2381   ;
	women[98]=35 ; women_death_rate[98]=0.2381   ;
	women[99]=25 ; women_death_rate[99]=0.2381   ;

	/////////////////////////////////////////////

	// 未婚率 (平成22年)

	men_unmarried_rate[ 0]=1.000   ;	
	men_unmarried_rate[ 1]=1.000   ;
	men_unmarried_rate[ 2]=1.000   ;
	men_unmarried_rate[ 3]=1.000   ;
	men_unmarried_rate[ 4]=1.000   ;

	men_unmarried_rate[ 5]=1.000   ;
	men_unmarried_rate[ 6]=1.000   ;
	men_unmarried_rate[ 7]=1.000   ;
	men_unmarried_rate[ 8]=1.000   ;
	men_unmarried_rate[ 9]=1.000   ;

	men_unmarried_rate[10]=1.000   ;
	men_unmarried_rate[11]=1.000   ;
	men_unmarried_rate[12]=1.000   ;
	men_unmarried_rate[13]=1.000   ;
	men_unmarried_rate[14]=1.000   ;

	men_unmarried_rate[15]=1.000   ;
	men_unmarried_rate[16]=1.000   ;
	men_unmarried_rate[17]=1.000   ;
	men_unmarried_rate[18]=0.975   ;
	men_unmarried_rate[19]=0.975   ;

	men_unmarried_rate[20]=0.910   ;
	men_unmarried_rate[21]=0.910   ;
	men_unmarried_rate[22]=0.910   ;
	men_unmarried_rate[23]=0.910   ;
	men_unmarried_rate[24]=0.910   ;

	men_unmarried_rate[25]=0.645   ;
	men_unmarried_rate[26]=0.645   ;
	men_unmarried_rate[27]=0.645   ;
	men_unmarried_rate[28]=0.645   ;
	men_unmarried_rate[29]=0.645   ;

	men_unmarried_rate[30]=0.413   ;
	men_unmarried_rate[31]=0.413   ;
	men_unmarried_rate[32]=0.413   ;
	men_unmarried_rate[33]=0.413   ;
	men_unmarried_rate[34]=0.413   ;

	men_unmarried_rate[35]=0.370   ;
	men_unmarried_rate[36]=0.370   ;
	men_unmarried_rate[37]=0.370   ;
	men_unmarried_rate[38]=0.370   ;
	men_unmarried_rate[39]=0.370   ;

	men_unmarried_rate[40]=0.229   ;
	men_unmarried_rate[41]=0.229   ;
	men_unmarried_rate[42]=0.229   ;
	men_unmarried_rate[43]=0.229   ;
	men_unmarried_rate[44]=0.229   ;

	men_unmarried_rate[45]=0.166   ;
	men_unmarried_rate[46]=0.166   ;
	men_unmarried_rate[47]=0.166   ;
	men_unmarried_rate[48]=0.166   ;
	men_unmarried_rate[49]=0.166   ;

	men_unmarried_rate[50]=0.189   ;
	men_unmarried_rate[51]=0.189   ;
	men_unmarried_rate[52]=0.189   ;
	men_unmarried_rate[53]=0.189   ;
	men_unmarried_rate[54]=0.189   ;

	men_unmarried_rate[55]=0.139   ;
	men_unmarried_rate[56]=0.139   ;
	men_unmarried_rate[57]=0.139   ;
	men_unmarried_rate[58]=0.139   ;
	men_unmarried_rate[59]=0.139   ;

	men_unmarried_rate[60]=0.068   ;
	men_unmarried_rate[61]=0.068   ;
	men_unmarried_rate[62]=0.068   ;
	men_unmarried_rate[63]=0.068   ;
	men_unmarried_rate[64]=0.068   ;

	men_unmarried_rate[65]=0.042   ;
	men_unmarried_rate[66]=0.042   ;
	men_unmarried_rate[67]=0.042   ;
	men_unmarried_rate[68]=0.042   ;
	men_unmarried_rate[69]=0.042   ;

	men_unmarried_rate[70]=0.015   ;
	men_unmarried_rate[71]=0.015   ;
	men_unmarried_rate[72]=0.015   ;
	men_unmarried_rate[73]=0.015   ;
	men_unmarried_rate[74]=0.015   ;

	men_unmarried_rate[75]=0.012   ;
	men_unmarried_rate[76]=0.012   ;
	men_unmarried_rate[77]=0.012   ;
	men_unmarried_rate[78]=0.012   ;
	men_unmarried_rate[79]=0.012   ;

	men_unmarried_rate[80]=0.012   ;
	men_unmarried_rate[81]=0.012   ;
	men_unmarried_rate[82]=0.012   ;
	men_unmarried_rate[83]=0.012   ;
	men_unmarried_rate[84]=0.012   ;

	men_unmarried_rate[85]=0.011   ;
	men_unmarried_rate[86]=0.011   ;
	men_unmarried_rate[87]=0.011   ;
	men_unmarried_rate[88]=0.011   ;
	men_unmarried_rate[89]=0.011   ;

	men_unmarried_rate[90]=0.011   ;
	men_unmarried_rate[91]=0.011   ;
	men_unmarried_rate[92]=0.011   ;
	men_unmarried_rate[93]=0.011   ;
	men_unmarried_rate[94]=0.011   ;

	men_unmarried_rate[95]=0.011   ;
	men_unmarried_rate[96]=0.011   ;
	men_unmarried_rate[97]=0.011   ;
	men_unmarried_rate[98]=0.011   ;
	men_unmarried_rate[99]=0.011   ;

	women_unmarried_rate[ 0]=1.000   ;	
	women_unmarried_rate[ 1]=1.000   ;	
	women_unmarried_rate[ 2]=1.000   ;	
	women_unmarried_rate[ 3]=1.000   ;	
	women_unmarried_rate[ 4]=1.000   ;	
	
	women_unmarried_rate[ 5]=1.000   ;	
	women_unmarried_rate[ 6]=1.000   ;	
	women_unmarried_rate[ 7]=1.000   ;	
	women_unmarried_rate[ 8]=1.000   ;	
	women_unmarried_rate[ 9]=1.000   ;	
	
	women_unmarried_rate[10]=1.000   ;	
	women_unmarried_rate[11]=1.000   ;	
	women_unmarried_rate[12]=1.000   ;	
	women_unmarried_rate[13]=1.000   ;	
	women_unmarried_rate[14]=1.000   ;	
	
	women_unmarried_rate[15]=1.000   ;
	women_unmarried_rate[16]=0.984   ;
	women_unmarried_rate[17]=0.984   ;
	women_unmarried_rate[18]=0.984   ;
	women_unmarried_rate[19]=0.984   ;
	
	women_unmarried_rate[20]=0.898   ;
	women_unmarried_rate[21]=0.898   ;
	women_unmarried_rate[22]=0.898   ;
	women_unmarried_rate[23]=0.898   ;
	women_unmarried_rate[24]=0.898   ;
	
	women_unmarried_rate[25]=0.607   ;
	women_unmarried_rate[26]=0.607   ;
	women_unmarried_rate[27]=0.607   ;
	women_unmarried_rate[28]=0.607   ;
	women_unmarried_rate[29]=0.607   ;
	
	women_unmarried_rate[30]=0.374   ; 
	women_unmarried_rate[31]=0.374   ; 
	women_unmarried_rate[32]=0.374   ; 
	women_unmarried_rate[33]=0.374   ; 
	women_unmarried_rate[34]=0.374   ; 
	
	women_unmarried_rate[35]=0.250   ;
	women_unmarried_rate[36]=0.250   ;
	women_unmarried_rate[37]=0.250   ;
	women_unmarried_rate[38]=0.250   ;
	women_unmarried_rate[39]=0.250   ;
	
	women_unmarried_rate[40]=0.224   ;
	women_unmarried_rate[41]=0.224   ;
	women_unmarried_rate[42]=0.224   ;
	women_unmarried_rate[43]=0.224   ;
	women_unmarried_rate[44]=0.224   ;
	
	women_unmarried_rate[45]=0.154   ; 
	women_unmarried_rate[46]=0.154   ; 
	women_unmarried_rate[47]=0.154   ; 
	women_unmarried_rate[48]=0.154   ; 
	women_unmarried_rate[49]=0.154   ; 
	
	women_unmarried_rate[50]=0.114   ;  
	women_unmarried_rate[51]=0.114   ;  
	women_unmarried_rate[52]=0.114   ;  
	women_unmarried_rate[53]=0.114   ;  
	women_unmarried_rate[54]=0.114   ;  
	
	women_unmarried_rate[55]=0.073   ;
	women_unmarried_rate[56]=0.073   ;
	women_unmarried_rate[57]=0.073   ;
	women_unmarried_rate[58]=0.073   ;
	women_unmarried_rate[59]=0.073   ;
	
	women_unmarried_rate[60]=0.055   ; 
	women_unmarried_rate[61]=0.055   ; 
	women_unmarried_rate[62]=0.055   ; 
	women_unmarried_rate[63]=0.055   ; 
	women_unmarried_rate[64]=0.055   ; 
	
	women_unmarried_rate[65]=0.053   ; 
	women_unmarried_rate[66]=0.053   ; 
	women_unmarried_rate[67]=0.053   ; 
	women_unmarried_rate[68]=0.053   ; 
	women_unmarried_rate[69]=0.053   ; 
	
	women_unmarried_rate[70]=0.033   ; 
	women_unmarried_rate[71]=0.033   ; 
	women_unmarried_rate[72]=0.033   ; 
	women_unmarried_rate[73]=0.033   ; 
	women_unmarried_rate[74]=0.033   ; 
	
	women_unmarried_rate[75]=0.044   ;
	women_unmarried_rate[76]=0.044   ;
	women_unmarried_rate[77]=0.044   ;
	women_unmarried_rate[78]=0.044   ;
	women_unmarried_rate[79]=0.044   ;
	
	women_unmarried_rate[80]=0.078   ;
	women_unmarried_rate[81]=0.078   ;
	women_unmarried_rate[82]=0.078   ;
	women_unmarried_rate[83]=0.078   ;
	women_unmarried_rate[84]=0.078   ;
	
	women_unmarried_rate[85]=0.033   ;
	women_unmarried_rate[86]=0.033   ;
	women_unmarried_rate[87]=0.033   ;
	women_unmarried_rate[88]=0.033   ;
	women_unmarried_rate[89]=0.033   ;
	
	women_unmarried_rate[90]=0.033   ;
	women_unmarried_rate[91]=0.033   ;
	women_unmarried_rate[92]=0.033   ;
	women_unmarried_rate[93]=0.033   ;
	women_unmarried_rate[94]=0.033   ;
	
	women_unmarried_rate[95]=0.033   ;
	women_unmarried_rate[96]=0.033   ;
	women_unmarried_rate[97]=0.033   ;
	women_unmarried_rate[98]=0.033   ;
	women_unmarried_rate[99]=0.033   ;
   
	// 有配偶率 (平成22年)

	// 初婚、再婚関係なく、その世代に対して。
	// 結婚している比率
	
	//国勢調査の男女別の有配偶者の数はなぜ違うのか

	men_existance_matching_rate[ 0]=0.000   ;	
	men_existance_matching_rate[ 1]=0.000   ;
	men_existance_matching_rate[ 2]=0.000   ;
	men_existance_matching_rate[ 3]=0.000   ;
	men_existance_matching_rate[ 4]=0.000   ;

	men_existance_matching_rate[ 5]=0.000   ;
	men_existance_matching_rate[ 6]=0.000   ;
	men_existance_matching_rate[ 7]=0.000   ;
	men_existance_matching_rate[ 8]=0.000   ;
	men_existance_matching_rate[ 9]=0.000   ;

	men_existance_matching_rate[10]=0.000   ;
	men_existance_matching_rate[11]=0.000   ;
	men_existance_matching_rate[12]=0.000   ;
	men_existance_matching_rate[13]=0.000   ;
	men_existance_matching_rate[14]=0.000   ;

	men_existance_matching_rate[15]=0.011   ;
	men_existance_matching_rate[16]=0.011   ;
	men_existance_matching_rate[17]=0.011   ;
	men_existance_matching_rate[18]=0.011   ;
	men_existance_matching_rate[19]=0.011   ;

	men_existance_matching_rate[20]=0.036   ;
	men_existance_matching_rate[21]=0.036   ;
	men_existance_matching_rate[22]=0.036   ;
	men_existance_matching_rate[23]=0.036   ;
	men_existance_matching_rate[24]=0.036   ;

	men_existance_matching_rate[25]=0.241   ;
	men_existance_matching_rate[26]=0.241   ;
	men_existance_matching_rate[27]=0.241   ;
	men_existance_matching_rate[28]=0.241   ;
	men_existance_matching_rate[29]=0.241   ;

	men_existance_matching_rate[30]=0.497   ;
	men_existance_matching_rate[31]=0.497   ;
	men_existance_matching_rate[32]=0.497   ;
	men_existance_matching_rate[33]=0.497   ;
	men_existance_matching_rate[34]=0.497   ;

	men_existance_matching_rate[35]=0.530   ;
	men_existance_matching_rate[36]=0.530   ;
	men_existance_matching_rate[37]=0.530   ;
	men_existance_matching_rate[38]=0.530   ;
	men_existance_matching_rate[39]=0.530   ;

	men_existance_matching_rate[40]=0.694   ;
	men_existance_matching_rate[41]=0.694   ;
	men_existance_matching_rate[42]=0.694   ;
	men_existance_matching_rate[43]=0.694   ;
	men_existance_matching_rate[44]=0.694   ;

	men_existance_matching_rate[45]=0.741   ;
	men_existance_matching_rate[46]=0.741   ;
	men_existance_matching_rate[47]=0.741   ;
	men_existance_matching_rate[48]=0.741   ;
	men_existance_matching_rate[49]=0.741   ;

	men_existance_matching_rate[50]=0.700   ;
	men_existance_matching_rate[51]=0.700   ;
	men_existance_matching_rate[52]=0.700   ;
	men_existance_matching_rate[53]=0.700   ;
	men_existance_matching_rate[54]=0.700   ;

	men_existance_matching_rate[55]=0.765   ;
	men_existance_matching_rate[56]=0.765   ;
	men_existance_matching_rate[57]=0.765   ;
	men_existance_matching_rate[58]=0.765   ;
	men_existance_matching_rate[59]=0.765   ;

	men_existance_matching_rate[60]=0.842   ;
	men_existance_matching_rate[61]=0.842   ;
	men_existance_matching_rate[62]=0.842   ;
	men_existance_matching_rate[63]=0.842   ;
	men_existance_matching_rate[64]=0.842   ;

	men_existance_matching_rate[65]=0.824   ;
	men_existance_matching_rate[66]=0.824   ;
	men_existance_matching_rate[67]=0.824   ;
	men_existance_matching_rate[68]=0.824   ;
	men_existance_matching_rate[69]=0.824   ;

	men_existance_matching_rate[70]=0.838   ;
	men_existance_matching_rate[71]=0.838   ;
	men_existance_matching_rate[72]=0.838   ;
	men_existance_matching_rate[73]=0.838   ;
	men_existance_matching_rate[74]=0.838   ;

	men_existance_matching_rate[75]=0.817   ;
	men_existance_matching_rate[76]=0.817   ;
	men_existance_matching_rate[77]=0.817   ;
	men_existance_matching_rate[78]=0.817   ;
	men_existance_matching_rate[79]=0.817   ;

	men_existance_matching_rate[80]=0.730   ;
	men_existance_matching_rate[81]=0.730   ;
	men_existance_matching_rate[82]=0.730   ;
	men_existance_matching_rate[83]=0.730   ;
	men_existance_matching_rate[84]=0.730   ;

	men_existance_matching_rate[85]=0.708   ;
	men_existance_matching_rate[86]=0.708   ;
	men_existance_matching_rate[87]=0.708   ;
	men_existance_matching_rate[88]=0.708   ;
	men_existance_matching_rate[89]=0.708   ;

	men_existance_matching_rate[90]=0.708   ;
	men_existance_matching_rate[91]=0.708   ;
	men_existance_matching_rate[92]=0.708   ;
	men_existance_matching_rate[93]=0.708   ;
	men_existance_matching_rate[94]=0.708   ;

	men_existance_matching_rate[95]=0.708   ;
	men_existance_matching_rate[96]=0.708   ;
	men_existance_matching_rate[97]=0.708   ;
	men_existance_matching_rate[98]=0.708   ;
	men_existance_matching_rate[99]=0.708   ;

	women_existance_matching_rate[ 0]=0.000   ;	
	women_existance_matching_rate[ 1]=0.000   ;	
	women_existance_matching_rate[ 2]=0.000   ;	
	women_existance_matching_rate[ 3]=0.000   ;	
	women_existance_matching_rate[ 4]=0.000   ;	
	
	women_existance_matching_rate[ 5]=0.000   ;	
	women_existance_matching_rate[ 6]=0.000   ;	
	women_existance_matching_rate[ 7]=0.000   ;	
	women_existance_matching_rate[ 8]=0.000   ;	
	women_existance_matching_rate[ 9]=0.000   ;	
	
	women_existance_matching_rate[10]=0.000   ;	
	women_existance_matching_rate[11]=0.000   ;	
	women_existance_matching_rate[12]=0.000   ;	
	women_existance_matching_rate[13]=0.000   ;	
	women_existance_matching_rate[14]=0.000   ;	
	
	women_existance_matching_rate[15]=0.008   ;
	women_existance_matching_rate[16]=0.008   ;
	women_existance_matching_rate[17]=0.008   ;
	women_existance_matching_rate[18]=0.008   ;
	women_existance_matching_rate[19]=0.008   ;
	
	women_existance_matching_rate[20]=0.052   ;
	women_existance_matching_rate[21]=0.052   ;
	women_existance_matching_rate[22]=0.052   ;
	women_existance_matching_rate[23]=0.052   ;
	women_existance_matching_rate[24]=0.052   ;
	
	women_existance_matching_rate[25]=0.312   ;
	women_existance_matching_rate[26]=0.312   ;
	women_existance_matching_rate[27]=0.312   ;
	women_existance_matching_rate[28]=0.312   ;
	women_existance_matching_rate[29]=0.312   ;
	
	women_existance_matching_rate[30]=0.569   ; 
	women_existance_matching_rate[31]=0.569   ; 
	women_existance_matching_rate[32]=0.569   ; 
	women_existance_matching_rate[33]=0.569   ; 
	women_existance_matching_rate[34]=0.569   ; 
	
	women_existance_matching_rate[35]=0.667   ;
	women_existance_matching_rate[36]=0.667   ;
	women_existance_matching_rate[37]=0.667   ;
	women_existance_matching_rate[38]=0.667   ;
	women_existance_matching_rate[39]=0.667   ;
	
	women_existance_matching_rate[40]=0.229   ;
	women_existance_matching_rate[41]=0.229   ;
	women_existance_matching_rate[42]=0.229   ;
	women_existance_matching_rate[43]=0.229   ;
	women_existance_matching_rate[44]=0.229   ;
	
	women_existance_matching_rate[45]=0.712   ; 
	women_existance_matching_rate[46]=0.712   ; 
	women_existance_matching_rate[47]=0.712   ; 
	women_existance_matching_rate[48]=0.712   ; 
	women_existance_matching_rate[49]=0.712   ; 
	
	women_existance_matching_rate[50]=0.755   ;  
	women_existance_matching_rate[51]=0.755   ;  
	women_existance_matching_rate[52]=0.755   ;  
	women_existance_matching_rate[53]=0.755   ;  
	women_existance_matching_rate[54]=0.755   ;  
	
	women_existance_matching_rate[55]=0.789   ;
	women_existance_matching_rate[56]=0.789   ;
	women_existance_matching_rate[57]=0.789   ;
	women_existance_matching_rate[58]=0.789   ;
	women_existance_matching_rate[59]=0.789   ;
	
	women_existance_matching_rate[60]=0.733   ; 
	women_existance_matching_rate[61]=0.733   ; 
	women_existance_matching_rate[62]=0.733   ; 
	women_existance_matching_rate[63]=0.733   ; 
	women_existance_matching_rate[64]=0.733   ; 
	
	women_existance_matching_rate[65]=0.663   ; 
	women_existance_matching_rate[66]=0.663   ; 
	women_existance_matching_rate[67]=0.663   ; 
	women_existance_matching_rate[68]=0.663   ; 
	women_existance_matching_rate[69]=0.663   ; 
	
	women_existance_matching_rate[70]=0.650   ; 
	women_existance_matching_rate[71]=0.650   ; 
	women_existance_matching_rate[72]=0.650   ; 
	women_existance_matching_rate[73]=0.650   ; 
	women_existance_matching_rate[74]=0.650   ; 
	
	women_existance_matching_rate[75]=0.462   ;
	women_existance_matching_rate[76]=0.462   ;
	women_existance_matching_rate[77]=0.462   ;
	women_existance_matching_rate[78]=0.462   ;
	women_existance_matching_rate[79]=0.462   ;
	
	women_existance_matching_rate[80]=0.326   ;
	women_existance_matching_rate[81]=0.326   ;
	women_existance_matching_rate[82]=0.326   ;
	women_existance_matching_rate[83]=0.326   ;
	women_existance_matching_rate[84]=0.326   ;
	
	women_existance_matching_rate[85]=0.093   ;
	women_existance_matching_rate[86]=0.093   ;
	women_existance_matching_rate[87]=0.093   ;
	women_existance_matching_rate[88]=0.093   ;
	women_existance_matching_rate[89]=0.093   ;
	
	women_existance_matching_rate[90]=0.093   ;
	women_existance_matching_rate[91]=0.093   ;
	women_existance_matching_rate[92]=0.093   ;
	women_existance_matching_rate[93]=0.093   ;
	women_existance_matching_rate[94]=0.093   ;
	
	women_existance_matching_rate[95]=0.093   ;
	women_existance_matching_rate[96]=0.093   ;
	women_existance_matching_rate[97]=0.093   ;
	women_existance_matching_rate[98]=0.093   ;
	women_existance_matching_rate[99]=0.093   ;

	//有配偶離婚率　 Divorce rates for married population
	// 平成22年データ
	// ○ 結婚している人に対する離婚率
	// × 人口に対する離婚率

	men_divorce_rate[0] = 0.0000 ;//結婚できないから、
	men_divorce_rate[1] = 0.0000 ;//離婚もできない
	men_divorce_rate[2] = 0.0000 ;
	men_divorce_rate[3] = 0.0000 ;
	men_divorce_rate[4] = 0.0000 ;

	men_divorce_rate[5] = 0.0000 ;
	men_divorce_rate[6] = 0.0000 ;
	men_divorce_rate[7] = 0.0000 ;
	men_divorce_rate[8] = 0.0000 ;
	men_divorce_rate[9] = 0.0000 ;

	men_divorce_rate[10] = 0.0000 ;
	men_divorce_rate[11] = 0.0000 ;
	men_divorce_rate[12] = 0.0000 ;
	men_divorce_rate[13] = 0.0000 ;
	men_divorce_rate[14] = 0.0000 ;  

	men_divorce_rate[15] = 0.0000 ;
	men_divorce_rate[16] = 0.0000 ;
	men_divorce_rate[17] = 0.0000 ;
	men_divorce_rate[18] = 0.4809 ;
	men_divorce_rate[19] = 0.4809 ;

	men_divorce_rate[20] = 0.4705 ;
	men_divorce_rate[21] = 0.4705 ;
	men_divorce_rate[22] = 0.4705 ;
	men_divorce_rate[23] = 0.4705 ;
	men_divorce_rate[24] = 0.4705 ;

	men_divorce_rate[25] = 0.2283 ;
	men_divorce_rate[26] = 0.2283 ;
	men_divorce_rate[27] = 0.2283 ;
	men_divorce_rate[28] = 0.2283 ;
	men_divorce_rate[29] = 0.2283 ;

	men_divorce_rate[30] = 0.1521 ;
	men_divorce_rate[31] = 0.1521 ;
	men_divorce_rate[32] = 0.1521 ;
	men_divorce_rate[33] = 0.1521 ;
 	men_divorce_rate[34] = 0.1521 ;

 	men_divorce_rate[35] = 0.1165 ;
 	men_divorce_rate[36] = 0.1165 ;
 	men_divorce_rate[37] = 0.1165 ;
 	men_divorce_rate[38] = 0.1165 ;
 	men_divorce_rate[39] = 0.1165 ;

 	men_divorce_rate[40] = 0.0939 ;
 	men_divorce_rate[41] = 0.0939 ;
 	men_divorce_rate[42] = 0.0939 ;
 	men_divorce_rate[43] = 0.0939 ;
 	men_divorce_rate[44] = 0.0939 ;

 	men_divorce_rate[45] = 0.0703 ;
 	men_divorce_rate[46] = 0.0703 ;
 	men_divorce_rate[47] = 0.0703 ;
 	men_divorce_rate[48] = 0.0703 ;
 	men_divorce_rate[49] = 0.0703 ;

 	men_divorce_rate[50] = 0.0495 ;
 	men_divorce_rate[51] = 0.0495 ;
 	men_divorce_rate[52] = 0.0495 ;
 	men_divorce_rate[53] = 0.0495 ;
 	men_divorce_rate[54] = 0.0495 ;

 	men_divorce_rate[55] = 0.0309 ;
 	men_divorce_rate[56] = 0.0309 ;
 	men_divorce_rate[57] = 0.0309 ;
 	men_divorce_rate[58] = 0.0309 ;
 	men_divorce_rate[59] = 0.0309 ;

 	men_divorce_rate[60] = 0.0194 ;
 	men_divorce_rate[61] = 0.0194 ;
 	men_divorce_rate[62] = 0.0194 ;
 	men_divorce_rate[63] = 0.0194 ;
 	men_divorce_rate[64] = 0.0194 ;

 	men_divorce_rate[65] = 0.0110 ;
 	men_divorce_rate[66] = 0.0110 ;
 	men_divorce_rate[67] = 0.0110 ;
 	men_divorce_rate[68] = 0.0110 ;
 	men_divorce_rate[69] = 0.0110 ;

 	men_divorce_rate[70] = 0.0040 ;
 	men_divorce_rate[71] = 0.0040 ;
 	men_divorce_rate[72] = 0.0040 ;
 	men_divorce_rate[73] = 0.0040 ;
 	men_divorce_rate[74] = 0.0040 ;

 	men_divorce_rate[75] = 0.0040 ;
 	men_divorce_rate[76] = 0.0040 ;
 	men_divorce_rate[77] = 0.0040 ;
 	men_divorce_rate[78] = 0.0040 ;
 	men_divorce_rate[79] = 0.0040 ;

 	men_divorce_rate[80] = 0.0040 ;
 	men_divorce_rate[81] = 0.0040 ;
 	men_divorce_rate[82] = 0.0040 ;
 	men_divorce_rate[83] = 0.0040 ;
 	men_divorce_rate[84] = 0.0040 ;

 	men_divorce_rate[85] = 0.0040 ;
 	men_divorce_rate[86] = 0.0040 ;
 	men_divorce_rate[87] = 0.0040 ;
 	men_divorce_rate[88] = 0.0040 ;
 	men_divorce_rate[89] = 0.0040 ;

 	men_divorce_rate[90] = 0.0040 ;
 	men_divorce_rate[91] = 0.0040 ;
 	men_divorce_rate[92] = 0.0040 ;
 	men_divorce_rate[93] = 0.0040 ;
 	men_divorce_rate[94] = 0.0040 ;

 	men_divorce_rate[95] = 0.0040 ;
 	men_divorce_rate[96] = 0.0040 ;
 	men_divorce_rate[97] = 0.0040 ;
 	men_divorce_rate[98] = 0.0040 ;
 	men_divorce_rate[99] = 0.0040 ;

	women_divorce_rate[0] = 0.0000 ;//結婚できないから、
	women_divorce_rate[1] = 0.0000 ;//離婚もできない
	women_divorce_rate[2] = 0.0000 ;
	women_divorce_rate[3] = 0.0000 ;
	women_divorce_rate[4] = 0.0000 ;

	women_divorce_rate[5] = 0.0000 ;
	women_divorce_rate[6] = 0.0000 ;
	women_divorce_rate[7] = 0.0000 ;
	women_divorce_rate[8] = 0.0000 ;
	women_divorce_rate[9] = 0.0000 ;

	women_divorce_rate[10] = 0.0000 ;
	women_divorce_rate[11] = 0.0000 ;
	women_divorce_rate[12] = 0.0000 ;
	women_divorce_rate[13] = 0.0000 ;
	women_divorce_rate[14] = 0.0000 ;  

	women_divorce_rate[15] = 0.0000 ;
	women_divorce_rate[16] = 0.8274 ;
	women_divorce_rate[17] = 0.8274 ;
	women_divorce_rate[18] = 0.8274 ;
	women_divorce_rate[19] = 0.8274 ;

	women_divorce_rate[20] = 0.4834 ;
	women_divorce_rate[21] = 0.4834 ;
	women_divorce_rate[22] = 0.4834 ;
	women_divorce_rate[23] = 0.4834 ;
	women_divorce_rate[24] = 0.4834 ;

	women_divorce_rate[25] = 0.2288 ;
	women_divorce_rate[26] = 0.2288 ;
	women_divorce_rate[27] = 0.2288 ;
	women_divorce_rate[28] = 0.2288 ;
	women_divorce_rate[29] = 0.2288 ;

	women_divorce_rate[30] = 0.1480 ;
	women_divorce_rate[31] = 0.1480 ;
	women_divorce_rate[32] = 0.1480 ;
	women_divorce_rate[33] = 0.1480 ;
 	women_divorce_rate[34] = 0.1480 ;

 	women_divorce_rate[35] = 0.1090 ;
 	women_divorce_rate[36] = 0.1090 ;
 	women_divorce_rate[37] = 0.1090 ;
 	women_divorce_rate[38] = 0.1090 ;
 	women_divorce_rate[39] = 0.1090 ;

 	women_divorce_rate[40] = 0.0833 ;
 	women_divorce_rate[41] = 0.0833 ;
 	women_divorce_rate[42] = 0.0833 ;
 	women_divorce_rate[43] = 0.0833 ;
 	women_divorce_rate[44] = 0.0833 ;

 	women_divorce_rate[45] = 0.0560 ;
 	women_divorce_rate[46] = 0.0560 ;
 	women_divorce_rate[47] = 0.0560 ;
 	women_divorce_rate[48] = 0.0560 ;
 	women_divorce_rate[49] = 0.0560 ;

 	women_divorce_rate[50] = 0.0322 ;
 	women_divorce_rate[51] = 0.0322 ;
 	women_divorce_rate[52] = 0.0322 ;
 	women_divorce_rate[53] = 0.0322 ;
 	women_divorce_rate[54] = 0.0322 ;

 	women_divorce_rate[55] = 0.0172 ;
 	women_divorce_rate[56] = 0.0172 ;
 	women_divorce_rate[57] = 0.0172 ;
 	women_divorce_rate[58] = 0.0172 ;
 	women_divorce_rate[59] = 0.0172 ;

 	women_divorce_rate[60] = 0.0113 ;
 	women_divorce_rate[61] = 0.0113 ;
 	women_divorce_rate[62] = 0.0113 ;
 	women_divorce_rate[63] = 0.0113 ;
 	women_divorce_rate[64] = 0.0113 ;

 	women_divorce_rate[65] = 0.0073 ;
 	women_divorce_rate[66] = 0.0073 ;
 	women_divorce_rate[67] = 0.0073 ;
 	women_divorce_rate[68] = 0.0073 ;
 	women_divorce_rate[69] = 0.0073 ;

 	women_divorce_rate[70] = 0.0028 ;
 	women_divorce_rate[71] = 0.0028 ;
 	women_divorce_rate[72] = 0.0028 ;
 	women_divorce_rate[73] = 0.0028 ;
 	women_divorce_rate[74] = 0.0028 ;

 	women_divorce_rate[75] = 0.0028 ;
 	women_divorce_rate[76] = 0.0028 ;
 	women_divorce_rate[77] = 0.0028 ;
 	women_divorce_rate[78] = 0.0028 ;
 	women_divorce_rate[79] = 0.0028 ;

 	women_divorce_rate[80] = 0.0028 ;
 	women_divorce_rate[81] = 0.0028 ;
 	women_divorce_rate[82] = 0.0028 ;
 	women_divorce_rate[83] = 0.0028 ;
 	women_divorce_rate[84] = 0.0028 ;

 	women_divorce_rate[85] = 0.0028 ;
 	women_divorce_rate[86] = 0.0028 ;
 	women_divorce_rate[87] = 0.0028 ;
 	women_divorce_rate[88] = 0.0028 ;
 	women_divorce_rate[89] = 0.0028 ;

 	women_divorce_rate[90] = 0.0028 ;
 	women_divorce_rate[91] = 0.0028 ;
 	women_divorce_rate[92] = 0.0028 ;
 	women_divorce_rate[93] = 0.0028 ;
 	women_divorce_rate[94] = 0.0028 ;

 	women_divorce_rate[95] = 0.0028 ;
 	women_divorce_rate[96] = 0.0028 ;
 	women_divorce_rate[97] = 0.0028 ;
 	women_divorce_rate[98] = 0.0028 ;
 	women_divorce_rate[99] = 0.0028 ;


	// 再婚率 (2010年)

	// × 離婚している人に対する再婚率
	// ○ 世代人口(未婚、結婚、離婚関係なし)に対する再婚率
	
	// ということで、計算式に注意しなければならない。
	//  (というか、なんで、最初からそういう数値にしないんだ!)

	// 離婚している人に対する再婚率 (に変換する式)
	//    = 
	// 再婚率 x その世代の人口数 / 離婚(×未婚、結婚)人口
	// としなければなない

	//表６－６ 性，年齢（５歳階級）別再婚率：1930～2010年	
	//（‰） 
	//年  齢	2010年

	men_remarrige_ratio[0] = 0.0000;
	men_remarrige_ratio[1] = 0.0000;
	men_remarrige_ratio[2] = 0.0000;
	men_remarrige_ratio[3] = 0.0000;
	men_remarrige_ratio[4] = 0.0000;

	men_remarrige_ratio[5] = 0.0000;
	men_remarrige_ratio[6] = 0.0000;
	men_remarrige_ratio[7] = 0.0000;
	men_remarrige_ratio[8] = 0.0000;
	men_remarrige_ratio[9] = 0.0000;

	men_remarrige_ratio[10] = 0.0000;
	men_remarrige_ratio[11] = 0.0000;
	men_remarrige_ratio[12] = 0.0000;
	men_remarrige_ratio[13] = 0.0000;
	men_remarrige_ratio[14] = 0.0000;

	men_remarrige_ratio[15] = 0.0000;
	men_remarrige_ratio[16] = 0.0000;
	men_remarrige_ratio[17] = 0.0000;
	men_remarrige_ratio[18] = 0.0001;
	men_remarrige_ratio[19] = 0.0001;

	men_remarrige_ratio[20] = 0.0048;
	men_remarrige_ratio[21] = 0.0048;
	men_remarrige_ratio[22] = 0.0048;
	men_remarrige_ratio[23] = 0.0048;
	men_remarrige_ratio[24] = 0.0048;

	men_remarrige_ratio[25] = 0.0226;
	men_remarrige_ratio[26] = 0.0226;
	men_remarrige_ratio[27] = 0.0226;
	men_remarrige_ratio[28] = 0.0226;
	men_remarrige_ratio[29] = 0.0226;

	men_remarrige_ratio[30] = 0.0448;
	men_remarrige_ratio[31] = 0.0448;
	men_remarrige_ratio[32] = 0.0448;
	men_remarrige_ratio[33] = 0.0448;
	men_remarrige_ratio[34] = 0.0448; 

	men_remarrige_ratio[35] = 0.0476;
	men_remarrige_ratio[36] = 0.0476;
	men_remarrige_ratio[37] = 0.0476;
	men_remarrige_ratio[38] = 0.0476;
	men_remarrige_ratio[39] = 0.0476;

	men_remarrige_ratio[40] = 0.0371;
	men_remarrige_ratio[41] = 0.0371;
	men_remarrige_ratio[42] = 0.0371;
	men_remarrige_ratio[43] = 0.0371;
	men_remarrige_ratio[44] = 0.0371; 

	men_remarrige_ratio[45] = 0.0261;
	men_remarrige_ratio[46] = 0.0261;
	men_remarrige_ratio[47] = 0.0261;
	men_remarrige_ratio[48] = 0.0261;
	men_remarrige_ratio[49] = 0.0261;

	men_remarrige_ratio[50] = 0.0180;
	men_remarrige_ratio[51] = 0.0180;
	men_remarrige_ratio[52] = 0.0180;
	men_remarrige_ratio[53] = 0.0180;
	men_remarrige_ratio[54] = 0.0180;

	men_remarrige_ratio[55] = 0.0123;
	men_remarrige_ratio[56] = 0.0123;
	men_remarrige_ratio[57] = 0.0123;
	men_remarrige_ratio[58] = 0.0123;
	men_remarrige_ratio[59] = 0.0123;

	men_remarrige_ratio[60] = 0.0091;
	men_remarrige_ratio[61] = 0.0091;
	men_remarrige_ratio[62] = 0.0091;
	men_remarrige_ratio[63] = 0.0091;
	men_remarrige_ratio[64] = 0.0091;

	men_remarrige_ratio[65] = 0.0056;
	men_remarrige_ratio[66] = 0.0056;
	men_remarrige_ratio[67] = 0.0056;
	men_remarrige_ratio[68] = 0.0056;
	men_remarrige_ratio[69] = 0.0056;

	men_remarrige_ratio[70] = 0.0025;
	men_remarrige_ratio[71] = 0.0025;
	men_remarrige_ratio[72] = 0.0025;
	men_remarrige_ratio[73] = 0.0025;
	men_remarrige_ratio[74] = 0.0025;

	men_remarrige_ratio[75] = 0.0025;
	men_remarrige_ratio[76] = 0.0025;
	men_remarrige_ratio[77] = 0.0025;
	men_remarrige_ratio[78] = 0.0025;
	men_remarrige_ratio[79] = 0.0025;

	men_remarrige_ratio[80] = 0.0025;
	men_remarrige_ratio[81] = 0.0025;
	men_remarrige_ratio[82] = 0.0025;
	men_remarrige_ratio[83] = 0.0025;
	men_remarrige_ratio[84] = 0.0025;

	men_remarrige_ratio[85] = 0.0025;
	men_remarrige_ratio[86] = 0.0025;
	men_remarrige_ratio[87] = 0.0025;
	men_remarrige_ratio[88] = 0.0025;
	men_remarrige_ratio[89] = 0.0025;

	men_remarrige_ratio[90] = 0.0025;
	men_remarrige_ratio[91] = 0.0025;
	men_remarrige_ratio[92] = 0.0025;
	men_remarrige_ratio[93] = 0.0025;
	men_remarrige_ratio[94] = 0.0025;

	men_remarrige_ratio[95] = 0.0025;
	men_remarrige_ratio[96] = 0.0025;
	men_remarrige_ratio[97] = 0.0025;
	men_remarrige_ratio[98] = 0.0025;
	men_remarrige_ratio[99] = 0.0025;

	women_remarrige_ratio[0] = 0.0000;
	women_remarrige_ratio[1] = 0.0000;
	women_remarrige_ratio[2] = 0.0000;
	women_remarrige_ratio[3] = 0.0000;
	women_remarrige_ratio[4] = 0.0000;

	women_remarrige_ratio[5] = 0.0000;
	women_remarrige_ratio[6] = 0.0000;
	women_remarrige_ratio[7] = 0.0000;
	women_remarrige_ratio[8] = 0.0000;
	women_remarrige_ratio[9] = 0.0000;

	women_remarrige_ratio[10] = 0.0000;
	women_remarrige_ratio[11] = 0.0000;
	women_remarrige_ratio[12] = 0.0000;
	women_remarrige_ratio[13] = 0.0000;
	women_remarrige_ratio[14] = 0.0000;

	women_remarrige_ratio[15] = 0.0000;
	women_remarrige_ratio[16] = 0.0004;
	women_remarrige_ratio[17] = 0.0004;
	women_remarrige_ratio[18] = 0.0004;
	women_remarrige_ratio[19] = 0.0004;
	
	women_remarrige_ratio[20] = 0.0103;
	women_remarrige_ratio[21] = 0.0103;
	women_remarrige_ratio[22] = 0.0103;
	women_remarrige_ratio[23] = 0.0103;
	women_remarrige_ratio[24] = 0.0103;

	women_remarrige_ratio[25] = 0.0345;
	women_remarrige_ratio[26] = 0.0345;
	women_remarrige_ratio[27] = 0.0345;
	women_remarrige_ratio[28] = 0.0345;
	women_remarrige_ratio[29] = 0.0345;

	women_remarrige_ratio[30] = 0.0501;
	women_remarrige_ratio[31] = 0.0501;
	women_remarrige_ratio[32] = 0.0501;
	women_remarrige_ratio[33] = 0.0501;
	women_remarrige_ratio[34] = 0.0501;

	women_remarrige_ratio[35] = 0.0438;
	women_remarrige_ratio[36] = 0.0438;
	women_remarrige_ratio[37] = 0.0438;
	women_remarrige_ratio[38] = 0.0438;
	women_remarrige_ratio[39] = 0.0438;

	women_remarrige_ratio[40] = 0.0269;
	women_remarrige_ratio[41] = 0.0269;
	women_remarrige_ratio[42] = 0.0269;
	women_remarrige_ratio[43] = 0.0269;
	women_remarrige_ratio[44] = 0.0269;

	women_remarrige_ratio[45] = 0.0176; 
	women_remarrige_ratio[46] = 0.0176; 
	women_remarrige_ratio[47] = 0.0176; 
	women_remarrige_ratio[48] = 0.0176; 
	women_remarrige_ratio[49] = 0.0176; 

	women_remarrige_ratio[50] = 0.0115; 
	women_remarrige_ratio[51] = 0.0115; 
	women_remarrige_ratio[52] = 0.0115; 
	women_remarrige_ratio[53] = 0.0115; 
	women_remarrige_ratio[54] = 0.0115; 

	women_remarrige_ratio[55] = 0.0069; 
	women_remarrige_ratio[56] = 0.0069; 
	women_remarrige_ratio[57] = 0.0069; 
	women_remarrige_ratio[58] = 0.0069; 
	women_remarrige_ratio[59] = 0.0069; 

	women_remarrige_ratio[60] = 0.0043; 
	women_remarrige_ratio[61] = 0.0043; 
	women_remarrige_ratio[62] = 0.0043;  
	women_remarrige_ratio[63] = 0.0043;  
	women_remarrige_ratio[64] = 0.0043;
  
	women_remarrige_ratio[65] = 0.0025;
	women_remarrige_ratio[66] = 0.0025;
	women_remarrige_ratio[67] = 0.0025;
	women_remarrige_ratio[68] = 0.0025;
	women_remarrige_ratio[69] = 0.0025;

	women_remarrige_ratio[70] = 0.0007;
	women_remarrige_ratio[71] = 0.0007;
	women_remarrige_ratio[72] = 0.0007;
	women_remarrige_ratio[73] = 0.0007;
	women_remarrige_ratio[74] = 0.0007;

	women_remarrige_ratio[75] = 0.0007;
	women_remarrige_ratio[76] = 0.0007;
	women_remarrige_ratio[77] = 0.0007;
	women_remarrige_ratio[78] = 0.0007;
	women_remarrige_ratio[79] = 0.0007;

	women_remarrige_ratio[80] = 0.0007;
	women_remarrige_ratio[81] = 0.0007;
	women_remarrige_ratio[82] = 0.0007;
	women_remarrige_ratio[83] = 0.0007;
	women_remarrige_ratio[84] = 0.0007;

	women_remarrige_ratio[85] = 0.0007;
	women_remarrige_ratio[86] = 0.0007;
	women_remarrige_ratio[87] = 0.0007;
	women_remarrige_ratio[88] = 0.0007;
	women_remarrige_ratio[89] = 0.0007;

	women_remarrige_ratio[90] = 0.0007;
	women_remarrige_ratio[91] = 0.0007;
	women_remarrige_ratio[92] = 0.0007;
	women_remarrige_ratio[93] = 0.0007;
	women_remarrige_ratio[94] = 0.0007;

	women_remarrige_ratio[95] = 0.0007;
	women_remarrige_ratio[96] = 0.0007;
	women_remarrige_ratio[97] = 0.0007;
	women_remarrige_ratio[98] = 0.0007;
	women_remarrige_ratio[99] = 0.0007;

}

ごく最近に聞いた話なのですが、結婚披露宴にも「格」というのがあるそうです。

2014年8月1日2014,江端さんの忘備録

(昨日の続きです)

ごく最近に聞いた話なのですが、結婚披露宴にも「格」というのがあるそうです。

Recently, I heard the story that there is a "rank" in a wedding ceremony.

なんでも、大学教授などを呼べば「格」が上がるのだそうです。

They said, for example, the rank will go up when a college professor is in the ceremony.

―― そうかぁーーー？

"It it true?"

私、調子にのって、お世話になった教授を二人とも呼んでしまいました。

In my case, I invited two professors who managed my study in my college to my wedding ceremony.

ゼミでは色々あったけど、楽しく知的な日々を一緒に創って頂いた恩師でしたので。

They could give me an enjoyable and intelligent college life even though there was a lot of trouble.

(石原先生、戸高先生。お元気ですか？)

(Ishihara-sensei, Todaka-sensei. How have you been?)

でも、「格」とかそういうことを考えたことは、一度もありませんでした。

Anyway, I didn't think the rank at all.

それはさておき。

It is enough.

-----

とある結婚披露宴の司会を頼まれた時のことです。

There was a time when I was asked to be the MC of a wedding ceremony.

直前打合せをしている時、

When I did the meeting before the ceremony,

『絶対に、この祝電だけは読み上げてくれ』

I was asked to read a congratulatory telegram carefully and considerably.

と、そうとう念入りに頼まれたことがあります。

「妙な依頼だなぁ」と思って、ひょいと表書きを見たところ、そこには、

I thought that it was an odd request, and I watched the sender's name

―― 『内閣総理大臣』という文字と、その当時の総理大臣の名前

The title "prime minister" and his name of the day.

が記載されていました。

なるほど。

I got it.

まあ、なんというか、これも、一種の「格」なのかもしれません。

Well, how to say, I thought it might be a kind of "rank."

ただ、これと同文の電報は、その日の日本の結婚披露宴に、同時に事務的に1000通以上も発送されていたのじゃないかなー、と思っています。

However, I also thought that more than one thousand telegrams with the same message were going to be released on the same day,

電報一本のコストで、政治献金をして貰えるのであれば、こんなに「美味しい」商売はないでしょうしね。

It was an accessible business to send a telegram to a wedding ceremony if the statesperson got the political donation.

-----

それはさておき。

Anyway,

何を価値観とするかは個人の自由です。

It was a matter of personal choice and their sense of worth.

私がとやかく言うことはではありません。

I didn't do anything about that.

そして、私は与えられた任務として、その「内閣総理大臣閣下の電報」を、声高らかに読み上げたのです。

I read aloud the "telegram from the prime minister" as my given mission.