十進BASICプログラム 6n-1,6n+1 素数の個数を数える
6n-1,6n+1 素数の個数を数える
!6n+k
OPTION ARITHMETIC NATIVE
DECLARE EXTERNAL SUB prime
LET k=3E8
CALL prime(k)
END
EXTERNAL SUB prime(k)
OPTION ARITHMETIC NATIVE
!エラトステネスの篩
LET Fu=17783
LET Fm=2040
DIM P(Fu)
DIM A(Fm)
MAT P=ZER
MAT A=ZER
LET A(1)=2
LET H1=1
FOR I=3 TO SQR(Fu) STEP 2
IF P(I)=0 THEN
FOR J=I*I TO Fu STEP I
LET P(J)=1
NEXT J
END IF
NEXT I
FOR I=3 TO Fu STEP 2
IF P(I)=0 THEN
LET H1=H1+1
LET A(H1)=I
END IF
NEXT I
LET Q=6
LET k5=IP(k/Q)
DIM Au(k5),Av(k5)
MAT Au = ZER !(6*n-1)
MAT Av = ZER !(6*n+1)
FOR P1=3 TO k/6
LET P2=A(P1)
LET P3=A(P1+1)
IF P2^2>k THEN EXIT FOR
LET m= (P2^2-1)/ 6
DO
LET Av(m)=1 !(6*n+1)
LET m=m+p2
IF m>k5 THEN EXIT DO
LOOP
IF MOD(P2*P3+1,6)=0 THEN
LET w= (P2*P3+1)/ 6
ELSE
LET P3=A(P1)
DO
LET P3=P3+1
IF MOD(P2*P3+1,6)=0 THEN EXIT DO
LOOP
LET w= (P2*P3+1)/ 6
! PRINT P2;P3;P2*P3+1
END IF
DO
LET Au(w)=1 !(6*n-1)
LET w=w+p2
IF w>k5 THEN EXIT DO
LOOP
NEXT p1
!PRINT 2
!PRINT 3
LET cc=2
FOR n=1 TO k5
IF Au(n)=0 THEN
LET cc=cc+1
LET L= 6*n-1
!PRINT L !(6*n-1)
END IF
IF Av(n)=0 THEN
LET cc=cc+1
LET R= 6*n+1
!PRINT R !(6*n+1)
END IF
NEXT n
print cc
END SUB
計算結果
16252325 3億までの素数の個数
数学的に
素数の Pn^2 は 6*n-1 例: 5×5=25 4×6=24 24+1=25
素数積の Pn×Pn+1 は 6*n+1 例: 5×7=35 6×6=36 36-1=35
無限ループ
ツアー支給品テーラーメイド ドライバー ヘッド M2の個体差
ヘボリューション日記
ヘッド重量 191.4グラム length 46 7/8インチ 47インチ弱
スピーダー474エボリューションV フレックスSR
このヘッドのCT値 247
再び テーラーメイド SIM 9 度 ドライバーヘッド ヤフオク廃品回収品
ツアー支給品テーラーメイドのドライバーヘッド M4の個体差
飛距離は最高の癒し ワンワンワンだ振り ヨネは嫌い。
テレビで録画して見ちゃった。
まだ、忘れてない。
毎度
ヘボリューション なっております。
10.5のツアー支給品 M1
個人的な感想
M1 やっぱり好き
データシートはあてになるのか ?
CT値は飛距離に影響する ?
スピン量の方が影響する。レンジボール
これも徐々に廃れてきた。
既に変え時
そのプロが言うには、毎回良くなっていると
テーラーメイドの新作
試しましたが
よくわかりません。
毎回飛ぶんだ !
もう300ヤード飛びます。て!
顔が命
プロの作品は良くなっている。
あまちゃんのは難しい。
毎日勉強
こんな風に打てたら
飛ぶの ?
そして
左には壁が無い。
そして
右にも壁は無い。
あるわけない。
テーラーメイドM4 ツアー支給品 ドライバーヘッドの個体差
ヤフオク廃品回収品日記
ウエイト外しに失敗したのか ? ネジ穴なめてます。
熟練の技 ヘボリューションではございません。
試し打ち
ロフト角を変えて-2度で、8.5度を試しましたが、レンジボールの為か変化なし
流石にCT値 250 と言う ヘッドに当たりました。
ヘッド重量は 188.9グラム ウエイト2.6グラム
軽めのヘッドにしては、打感が良かった。
フェイス面とクラウンの境界線も
非常に良い。
この個体差がこのメーカーの最大の欠点だと思います。
本日のヘボリューション データ
先日の純正M5 SIM純正シャフトが合うようで
3番FW 用 SIM純正シャフトが合うようで
やっぱりM2
この優しさがいいと思います。
構えやすい。
個人の感想です。
飛距離は最高の癒し
テーラーメイドM5 ドライバーヘッドの個体差
ヤフオク廃品回収品日記
テーラーメイドM5 ドライバーヘッドの発売当初のヘッド
非常に良かった。個人的な感想です。
同じヘッドを3個打ち比べて
同じ結果にならないから
困る。
良いヘッドは普通に打って、真直ぐ飛ぶ事が分かった。
しかし、この違いはどこなのか ?
素人には、わかりません。
打って駄目な時は、直ぐに交換と言うサービスもあるみたい。
Tiger, Rory, DJ & Team TaylorMade's FIRST LOOK at SIM2 Driver | TaylorMade Golf
誰でも簡単に組みたてれられるのはいい。
しかし、個体差の解決な ?
テーラーメイド M5 ドライバーの不具合ではないけど ?
ヘッド重量
196.6
196.8
197.2
ドライバーヘッドの個体差は無くなるのか ?
比べると色々難点