数学日記
愛と理想
松虫草
第 15 日
8月13日、こ朝一
オリンピックマラソンを見ながら
ピタゴラスの定理の周辺1を考える。
すぐに見つかった。点線円幾何学 HI-314-2
の付加定理。
俳句
日常へ
5 行歌
マラソン
パチクリマラソンできは今ひとつ
一太郎の保存が、誤動作しているようだ。
失敗 3 回
今日のトピック
ピタゴラスの定理の周辺
HI-314-2
点線円幾何学
五行歌
俳句
マラソン
夢も追い
希望に燃えた
五輪見る
歓声を聞く
旅の夏
イギリスの街
みんな
夏世界
黙々と
走る
クーラーでひんやり頭冴え試走
Maple
パチクリ
マラソン
素因数分解のプログラム2
連載
Doval 幾何学
Appending Curve 2
2012-8-13
http://hoval.blogzine.jp/
ピタゴラスナポレオンの共点定理
HI-RPC-TL0813
蛭子井博孝:
HI-314-2
周上中心円の垂直平行線の定理
2008-9-20
蛭子井博孝
共円さんが、いてくれた。ありがとう。
2009-2-21
蛭子井博孝
O # HI-PCD 813 EQG marason by H.E:
O with plots : with StringTools : FormatTime "%Y-%m-%d-%r" ;
"2012-08-13-01:12:07 AM"
O CP d red, blue, green, magenta, "Purple", "DarkGreen", "Orange", "DarkBlue" :
O T d cos 813$ t :
O FP d T, sin T , cos T , sin cos T , sin tan T , cos tan T , sin sin T ,
cos cos T
;
FP := cos 813 t , sin cos 813 t , cos cos 813 t , sin cos cos 813 t ,
sin tan cos 813 t , cos tan cos 813 t , sin sin cos 813 t ,
cos cos cos 813 t
O #マラソン2:08:01 :
O ifactor 813 ; ifactor 20801 ;
3 271
11 31 61
O c d 0 :for h from 1 to 8 do for e from 1 to 1 do for b from 1 to 1 do for ds from 1 to 8
do EQx d sin 42$ t C208 Csin 195$t $FP h : EQy d cos 42$ t C208
2$Pi
Ccos 195$t $FP h : HOEG ds d plot EQx, EQy, t = ds K1 $
8
ds$2$Pi
..
, color = CP ds Cc mod 8 C1 , axes = box, scaling = constrained,
8
(1)
(2)
(3)
numpoints = 300, title = "HI-PCD 813 マラソン by H.E " :od: c d c C1 :
print display seq HOEG j, j = 1 ..8
: print BGT = FormatTime "%m-%d (%r)" ,
c , HEB = h, e, b , " 蛭子井博孝作" : print X = EQx : print Y = EQy : print
= 0 ..2$Pi, st =
1
8
:od:od:od: FormatTime "%Y-%m-%d-%r" ;
t
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:40 AM)", 1 , HEB = 1, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t cos 813 t
Y = cos 42 t C208 Ccos 195 t cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:42 AM)", 2 , HEB = 2, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t sin cos 813 t
Y = cos 42 t C208 Ccos 195 t sin cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1
0
1
BGT = "08-13 (01:59:44 AM)", 3 , HEB = 3, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t cos cos 813 t
Y = cos 42 t C208 Ccos 195 t cos cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:46 AM)", 4 , HEB = 4, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t sin cos cos 813 t
Y = cos 42 t C208 Ccos 195 t sin cos cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:47 AM)", 5 , HEB = 5, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t sin tan cos 813 t
Y = cos 42 t C208 Ccos 195 t sin tan cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1
0
1
BGT = "08-13 (01:59:50 AM)", 6 , HEB = 6, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t cos tan cos 813 t
Y = cos 42 t C208 Ccos 195 t cos tan cos 813 t
1
t = 0 ..2 π, st =
8
2
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:52 AM)", 7 , HEB = 7, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t sin sin cos 813 t
Y = cos 42 t C208 Ccos 195 t sin sin cos 813 t
1
t = 0 ..2 π, st =
8
HI-PCD 813 マラソン by H.E
1.5
1
0.5
0
K0.5
K1
K1.5
K1.5
K1
K0.5
0
0.5
1
1.5
BGT = "08-13 (01:59:54 AM)", 8 , HEB = 8, 1, 1 , " 蛭子井博孝作"
X = sin 42 t C208 Csin 195 t cos cos cos 813 t
Y = cos 42 t C208 Ccos 195 t cos cos cos 813 t
1
t = 0 ..2 π, st =
8
"2012-08-13-01:59:54 AM"
O for ds from 1 to 8 do EQx d sin 11$ t $cos 31$t $cos 61$t : EQy d cos 11$t $cos 31
2$Pi ds$2$Pi
$t $cos 61$ t : HOEG ds d plot EQx, EQy, t = ds K1 $
..
, color
8
8
= CP
ds Cc mod 8 C1 , axes = box, scaling = constrained, numpoints = 300, title
= "HI-PCD 813 マラソン by H.E " :od: c d c C1 : print display seq HOEG j, j
= 1 ..8
: print BGT = FormatTime "%m-%d (%r)" , c , HEB = h, e, b ,
" 蛭子井博孝作" : print X = EQx : print Y = EQy : print
FormatTime "%Y-%m-%d-%r" ;
t = 0 ..2$Pi, st =
1
8
:
(4)
HI-PCD 813 マラソン by H.E
1
0.5
0
K0.5
K1
K0.8 K0.6 K0.4 K0.2
0
0.2
0.4
0.6
0.8
BGT = "08-13 (01:32:44 AM)", 2 , HEB = 2, 2, 2 , " 蛭子井博孝作"
X = sin 11 t cos 31 t cos 61 t
Y = cos 11 t cos 31 t cos 61 t
1
t = 0 ..2 π, st =
8
"2012-08-13-01:32:44 AM"
O
(5)
O # HI-number Table Hatsu by H.E:restart:
O # Ifactor:
O c d 0 : F2 d
:for n from 1 to 100 do N d n : M d 2 : cf d 0 : F d
: for m
N
from 1 to 100 do if N mod M = 0 then cf d cf C1 : N d
: else if cf s 0 then F
M
W
dF
M
cf
W
: if cf = 2 then F2 d F2
print n = F :od: print f2 = F2 :
1=
2= 2
3= 3
4= 2 2
5= 5
6= 2 , 3
7= 7
8=
2
3
9= 3 2
10 = 2 , 5
11 = 11
12 = 2 2, 3
13 = 13
14 = 2 , 7
15 = 3 , 5
16 =
17 =
2 4
17
18 = 3 2, 2
19 = 19
20 = 2 2, 5
21 = 3 , 7
22 = 2 , 11
23 = 23
24 =
2 3, 3
25 = 5 2
26 = 2 , 13
27 =
3
3
28 = 2 2, 7
29 = 29
30 = 2 , 3 , 5
31 = 31
32 = 2 5
33 = 3 , 11
34 = 2 , 17
35 = 5 , 7
36 =
2 2, 3
2
n :fi :fi: cf d 0 : M d MC1 fi:od:
37 = 37
38 = 2 , 19
39 = 3 , 13
40 = 2 3, 5
41 = 41
42 = 2 , 3 , 7
43 = 43
44 =
2 2, 11
45 = 3 2, 5
46 = 2 , 23
47 = 47
48 =
2 4, 3
49 =
50 =
51 =
7
2
5 2, 2
3 , 17
52 = 2 2, 13
53 = 53
54 =
55 =
3 3, 2
5 , 11
56 = 2 3, 7
57 = 3 , 19
58 = 2 , 29
59 = 59
2 2, 3 , 5
61 = 61
62 = 2 , 31
60 =
63 =
3 2, 7
64 =
65 = 5
66 = 2 ,
67 =
2 6
, 13
3 , 11
67
68 = 2 2, 17
69 = 3 , 23
70 = 2 , 5 , 7
71 = 71
72 = 2 3, 3 2
73 = 73
74 = 2 , 37
75 =
2
5 , 3
76 = 2 2, 19
77 = 7 , 11
78 = 2 , 3 , 13
79 =
80 =
79
2 4, 5
81 = 3 4
82 = 2 , 41
83 = 83
84 = 2 2, 3 , 7
85 = 5 , 17
86 = 2 , 43
87 = 3 , 29
88 = 2 3, 11
89 = 89
90 = 3 2, 2 , 5
91 = 7 , 13
92 =
93 =
94 =
95 =
2 2,
3 ,
2 ,
5 ,
23
31
47
19
96 = 2 5, 3
97 = 97
98 =
7 2, 2
99 =
3 2, 11
100 = 2 2, 5 2
f2 = 4, 9, 12, 18, 20, 25, 28, 36, 44, 45, 49, 50, 52, 60, 63, 68, 72, 75, 76, 84, 90, 92, 98, 99,
100
O
(1)
ダウンロード

松虫草 - 幾何数学再考