昨日今日明日

きのうを思い、きょうを実感し、あすに想いを馳せよう。
若年性或いは老人性痴呆症にならない為にもね?

共産支那に真似ぶ阿呆痴呆メディア

2008年12月07日 | Weblog
ダライ・ラマとニアミス嫌う?中国がEUと首脳会談延期(朝日新聞) - goo ニュース

 共産支那に真似ぶ(学ぶを捩ったもの)日本のマスゴミほど滑稽でおぞましいものはない。・・・・こいつらの頭の中は「重度の共産お支那さまに嫌われると一方的に損する病」に犯されてしまって、治癒の見込みなど到底望むべくも無いのだから、倒産を持って完治とすべしである。・・・要は馬鹿は死ななきゃ治らないということ。

 以下、共産支那が書いた原稿をそのまま日本語に翻訳したであろう共同通信発の静岡新聞のべた記事である。

 ダライ・ラマと仏大統領会談へ 対中関係悪化も

 ベルリン6日共同:欧州連合(EU)議長国フランスのサルゴジ大統領は6日、訪問先のポーランド北部グダニスクで、チベット仏教最高指導者ダライ・ラマ14世と会談する。欧州では中国の人権状況やチベット情勢に関心が高い。
 中国政府は今回の会談に強く反発しており、経済を中心に関係を深めてきたフランスなど欧州諸国と中国の関係が冷え込む恐れも出てきた。
 欧州歴訪中のダライ・ラマは4日に欧州議会で演説した後、ワレサ元ポーランド大統領のノーベル平和賞受賞の25周年記念式典に参加するため、ポーランドを訪問した。同国政府の首脳や議会関係者との会談も予定している。(以上)

 共産支那さまの意向を汲んで仲良くして頂くことだけが善である。・・・・こんな馬鹿げた行動基準が日本以外の国で通用すると信じ込まされていること自体異常であることに未だに気付かない日本のメディアには目を覆いたくなりますねえ。・・・・そもそも欧州とは独立国の集合体なんだぜ。「戦後占領体制の日本の異様な価値観が通用するわけ無いじゃん」。

 フランス側がこれ以上共産支那に深入りしたくないと思えば、フランス国大統領はダライ・ラマと会談すれば良いという外交上の選択肢もある。・・・・そういう独立国の外交上の価値観は共同通信にとっては許されないものなんだろう(大笑い)。

songzhaoのボケ封じ数学講座第82講

2008年12月07日 | Weblog
2次関数とは私たちが中学校で教わったものであるが、できることならこのように教えて欲しかったという思いを新たにし、遠い過去を偲ぼうと思います。

 今回も例によって、ベーシックプログラムを活用しますが、今回使用する機種はシャープの『PC-E500』であることをおことわりしておきます。

 何はともあれ教材の作成から入ろうと思います。

1 REM**2ジカンスウノガクシュウ by songzhao
10 CLEAR:CLS:PRINT”2ジカンスウ シキノカタチ”:PRINT”Y=a(X+b)^2+c --1”:PRINT”Y=pX^2+qX+r --2”
20 INPUT DDS
30 IF DDS=1 THEN INPUT”a=”;A,:”b=”;B,”c=”;C:P=A:Q=2*A*B:R=A*B^2+C:GOTO 50
40 INPUT”p=”;P,”q=”;Q,”r=”;R:A=P:B=Q/(2*P):C=R-Q^2/(4*P)
50 CLS:PRINT”Y=”;A;”(X+”;B;”)^2+”;C:PRINT”Y=”;P;”X^2+”;Q;”X+”;R
60 ZZ$=INKEY$:IF ZZ$=”” THEN 60
70 PRINT”YヲニュウリョクXヲモトメル”:PRINT”Y=ジッスウ--1”:PRINT”Y=1ジシキ--2”:PRINT”Y=2ジシキ--3 ”;:INPUT DSS
80 IF DSS=1 THEN INPUT”Yノスウチ=”;RR:PP=0:QQ=0:GOTO 130
90 IF DSS=2 THEN INPUT”Y=aX+bノ a=”;QQ,”Y=aX+bノ b=”;RR:PP=0:GOTO 130
100 PRINT”2ジシキノカタチ”:PRINT”Y=a(X+b)^2+c --1”:PRINT”Y=pX^2+qX+r --2”:INPUT DSD
110 IF DSD=1 THEN INPUT”a=”;AA,”b=”;BB,”c=”;CC:PP=AA:QQ=2*AA*BB:RR=AA*BB^2+CC:GOTO 130
120 INPUT”p=”;PP,”q=”;QQ,”r=”;RR:AA=PP:BB=QQ/(2*PP):CC=RR-QQ^2/(4*PP)
130 P1=P-PP:Q1=Q-QQ:R1=R-RR
140 ZZ=Q1^2-4*P1*R1:IF ZZ<0 THEN PRINT”キョスウ ハッセイ”:FOR J=0 TO 200:NEXT J:GOTO 70
150 X1=(-Q1-SQR ZZ)/(2*P1):X2=(-Q1+SQR ZZ)/(2*P1):Y1=P*X1^2+Q*X1+R:Y2=P*X2^2+Q*X2+R
160 PRINT”コタエ”:PRINT”X1=”;X1;”X2=”;X2:PRINT”Y1=”;Y1;”Y2=”;Y2
170 ZZ$=INKEY$:IF ZZ=”” THEN170
200 REM**セキブン
210 S1=P*X2^3/3+Q*X2^2/2+R*X2-(P*X1^3/3+Q*X1^2/2+R*X1):S2=PP*X2^3/3+QQ*X2^2/2+RR*X2-(PP*X1^3/3+QQ*X1^2/2+RR*X1)
220 S3=P1*X2^3/3+Q1*X2^2/2+R1*X2-(P1*X1^3/3+Q1*X1^2/2+R1*X1)
230 PRINT”メンセキ S1=”;S1;”S2=”;S2
240 PRINT”メンセキ ABS(S1-S2)=”;ABS(S1-S2)
250 PRINT”メンセキ ABS(S3)=”;ABS S3
260 ZZ$=INKEY$:IF ZZ$=”” THEN 260
500 REM**チャート
510 CLS:LOCATE 18,0:PRINT”チャート”:DY=R-C:IF P<0 THEN DY=DY+31
520 LINE (0,0)-(0,0):K=-0.2:FOR J=-50 TO 50 STEP 0.2:K=K+0.2:LINE -(K,31-(P*J^2+Q*J+DY))
530 NEXT J
540 IF DSS=3 THEN 570
550 DDY=RR-C:IF A<0 THEN DDY=DDY+31
560 GOTO 590
570 DDY=RR-C
580 IF PP>0 THEN DDY=DDY+31
585 IF A*AA>0 AND AA>0 THEN DDY=DDY-31
586 IF A*AA>0 AND AA<0 THEN DDY=DDY+30 
590 LINE (0,0)-(0,0):K=-0.2:FOR J=-50 TO 50 STEP 0.2:K=K+0.2:LINE -(K,31-(PP*J^2+QQ*J+DDY))
600 NEXT J
610 ZZ$=INKEY$:IF ZZ$=”” THEN 610
620 CLS:GOTO 70

 ・・・まあこんなところでしょうかね。10行目にCLEAR:CLSと加えたこと、210行目にタイプミスがあったことをお詫びします。また、520行と590行の最初にLINE (0,0)-(0,0)と加えていただくと煩わしい一筆書きの斜めの線から解放されますのであしからず。

 ・・・・あれれ~、しまった。私の頭の悪さに起因する想定外の事態が発生してしまいました。そこで、バグから逃れるために、585行と586行を追加しておきますのであしからず。