ͣ.ǥ
ͣ£Ҥͤ濴Ȥ180žҡСΤιԤ򡡤줾졡ҡǡСǡΡǤȤޤ
ң£ҡǣäʿԻշѣС//ңҡǡãѡãСȤʤä
ãӣҡǡӣҤջѷ
11ݣҡ£ҡãҡǡãӡ7ܣ
äơҡӤꡡӡ2
ӣҢ梤ãӣҡǤꡡӣҡǡ3*7+2/227/2
ң͡27/23/221/4

ʾΤ褦˲򤭤ޤ
412ڡ 0:48:10 39209

ѷ£äͤ濴180ٲž
ˤĤƣͤоΤȤʤȤ롣
ѷãѣСȣӣҤȣãӣҡջѷ
äƣӡҡᣲ
ѷӣҤľ£ͣäˤĤƥͥ饦
412ڡ 0:48:22 39210
ʸ
RMBž
QP'CSR'CջѷǤ뤳ȤʬΤ
11-x = 7 + x x = 2
3*7/2*1/2 = 21/4
412ڡ 0:49:36 39211
ݤ󤭤
Mr.ǥƱǤ
412ڡ 1:09:06 39212
̴
ͥ饦3ȤAS2ᡢΤޤ21/4Ȥʤޤ
ٻΤ桡 412ڡ 1:15:25 39213
abcba@baLLjugglermoka
BM=MCABM=ACMʤΤǭBPM:QCM=7:11,PN=NQꡢQCR:QCM=4:1137/4=21/4
412ڡ 7:34:15 39214
namba
ֿؤǤ

BP=CQ=aBP=CQ=ȤȤN򤽤줾XYȤ롣
ɸʿ̾ǢABCͤAȤ롣
٥ȥȤMXYa,bͤˤ餺Ʊľˤ뤳Ȥ狼롣

ABBD᣷ȤʤDȤȡBDCA᣷ΤľMNAD̤롣RȤʤ뤿ARᣲ

ABCǥͥ饦ȤASᣲ
SMCǥͥ饦ȤRM21/4
412ڡ 10:25:38 39215
uchinyan
Ϥˤϡơϡ
ɤǶϿƬˤʤäƤơޤ򸫤Ȥ˥ͥ饦ΩƤƤޤޤ
ºݤưפ˲򤱤ΤǤ֤󤤤פȻפäƹͤľˡ

BM = CM ʤΤǡBRM M 濴ȿײ˲ž B C ˽Ť͡PRN ΰư P'R'N' Ȥޤ
ȡBMR = CMR' ʤΤǡSRNMN'R' ƱľˤޤޤβžѤ 180Ǥ
ǡP'N'//QN ǡP'N' = PN = QN ͤ碌 NN'P'Q ʿԻշˤʤޤ
ꡤNN'//QP'SR'//QP' MRB = MR'C ʤΤ AB//CR' ȤʤäơASR CSR' CQP' Ǥ
ȤCP' = BP = CQ ʤΤ CQP' ջѷˤʤꡤASRCSR' ջѷǡ
AS = ARCS = CA + AS = 7 + ARCR'= BR = BA - AR = 11 - ARCS = CR'7 + AR = 11 - ARAR = 2 cmCS = CR' = 9 cm
SRSR'= ARCR'3SR' = 29SR' = 27/2 cmRR' = SR' - SR = 27/2 - 3 = 21/2 cm = RM = RR'/2 = 21/4 cm
ˤʤޤ
ͥνȡ 412ڡ 12:40:02 MAIL:uchi@sco.bekkoame.ne.jp 39216
???
Option Explicit
Sub Macro1()
Dim Ax As Double, Ay As Double
Dim Bx As Double, By As Double
Dim Cx As Double, Cy As Double
Dim Dx As Double, Dy As Double 'BC11:7ʬD
Dim Ex As Double, Ey As Doulbe 'BC11:7˳ʬE
Dim Fx As Double, Fy As Double, Fr As Double 'DEľ¤Ȥ
Dim Mx As Double, My As Double
Dim Nx As Double, Ny As Double
Dim Px As Double, Py As Double
Dim Qx As Double, Qy As Double, Qt As Double,
Dim Rx As Double, Ry As Double
Dim Sx As Double, Sy As Double
Dim Ax_min As Double, Ax_max As Double, Axx As Double
Dim kizami As Double, sa As Double
Dim AB As Double, AC As Double, CQ As Double, SR As Double
Dim a As Double, b As Double, c As Double, d As Double
Dim dankai As Integer
Cells(1, 1).Value = 10000
Mx = 0: My = 0
Bx = -1: By = 0
Cx = 1: Cy = 0
Dx = (7 * Bx + 11 * Cx) / (11 + 7): Dy = 0
Ex = (-7 * Bx + 11 * Cx) / (11 - 7): Ey = 0
Fx = (Dx + Ex) / 2: Fy = 0: Fr = Abs(Fx - Dx)
Randomize Timer: Qt = Rnd(1) 'Qΰ֤ϤɤǤ褵ʤΤ
For dankai = 1 To 12
If dankai = 1 Then
kizami = 0.01: Ax_min = Dx + kizami: Ax_max = Cx - kizami
Else
Ax_min = Axx - kizami: Ax_max = Axx + kizami: kizami = kizami * 0.1
End If
For Ax = Ax_min To Ax_max Step kizami
Ay = Fy + Sqr(Fr * Fr - (Ax - Fx) * (Ax - Fx))
Qx = ((1 - Qt) * Cx + Qt * Ax) / (Qt + (1 - Qt)) 'CAQt:(1-Qt)ʬ
Qy = ((1 - Qt) * Cy + Qt * Ay) / (Qt + (1 - Qt))
CQ = Sqr((Qx - Cx) * (Qx - Cx) + (Qy - Cy) * (Qy - Cy))
AB = Sqr((Bx - Ax) * (Bx - Ax) + (By - Ay) * (By - Ay))
Px = ((AB - CQ) * Bx + CQ * Ax) / (CQ + (AB - CQ)) 'BABP:(AB-BP)=CQ:(AB-CQ)ʬ
Py = ((AB - CQ) * By + CQ * Ay) / (CQ + (AB - CQ))
Nx = (Px + Qx) / 2: Ny = (Py + Qy) / 2
'AC:y=(Cy-Ay)/(Cx-Ax)*(x-Ax)+Ay=a*x+b
a = (Cy - Ay) / (Cx - Ax): b = a * (-Ax) + Ay
'SNM:y=(Ny-My)/(Nx-Mx)*(x-Mx)+My=c*x+d
c = (Ny - My) / (Nx - Mx): d = c * (-Mx) + My
'Sy=a*Sx+b=c*Sx+d
Sx = (d - b) / (a - c): Sy = a * Sx + b
'AB:y=(By-Ay)/(Bx-Ax)*(x-Ax)+Ay=a*x+b
a = (By - Ay) / (Bx - Ax): b = a * (-Ax) + Ay
'Ry=a*Rx+b=c*Rx+d
Rx = (d - b) / (a - c): Ry = a * Rx + b
AC = Sqr((Cx - Ax) * (Cx - Ax) + (Cy - Ay) * (Cy - Ay))
SR = Sqr((Sx - Rx) * (Sx - Rx) + (Sy - Ry) * (Sy - Ry))
sa = Abs(SR / AC - 3 / 7)
If Cells(1, 1).Value > sa Then
Cells(1, 1).Value = sa
Cells(1, 2).Value = Sqr((Rx - Mx) * (Rx - Mx) + (Ry - My) * (Ry - My)) * 7 / AC
Axx = Ax
End If
Next Ax
Next dankai
End Sub
412ڡ 12:41:32 39217
uchinyan
ǼĤɤߤޤ
Τ˰פϤʤȻפޤΨճ㤤褦Ǥ͡

#39209#39211#39212#39216
BRM M 濴ȿײ 180žƹͤˡ

#39210
ABC M 濴ȿײ 180žƹͤˡ
¼#39209ʤɤƱˤʤȻפޤǥͥ饦ȤäƤ褦Ǿ㤦Τǡʬˤޤ

#39213
ͥ饦Ȥˡ餯䤬ǽ˻פդˡȻפޤ

#39214
Ȥˡʤޤ褯ǤƤޤ󡥡ʬޤ (^^;

#39215
ɸ٥ȥȥͥ饦ȤˡޤǹԤȿزˡǤ͡

#39217
ץˤˡ
ͥνȡ 413ʶ 17:44:17 39218

򤱤ˡ轵󥸤褦ˤʤäƤϢ³Ȥ졢ޤǤȤңᣲˤɤ夭ͤȣäԡʤȤˤ֤ȡӣңȢӣͣԤҡͣԡᣲᣴäƣӣҡң͡ᣴȤʤꡢң͡ᣴäƣң͡ᣲȤʤޤ
412ڡ 18:37:09 39219
(Keigei)
ʤؤǤġġ

иɸǡA(00)B(110)C(07)P(11p0)Q(07p) ȤС
M(11/27/2)N(11/2p/27/2p/2) 顢ľMN yx2 ˤʤꡢ
R(20)S(02) ȤʤäơSRRM27/2 3RM47 RM21/4 Ǥ
412ڡ 21:41:28 39220
ģ
ܺ山Dz򤭤ޤǣפ˥ղˤϤƻäޤǯʾեǤڤߤƤޤ
412ڡ 22:21:37 39221
fumio
ˤϡ֤˹ʤä
413ʶ 13:09:25 39222
X
򤤤ⲿ䤷Ƥǡʬʤ˹֤ͤ򤫤ߤȤȤʤפȤΤʲ

ѷABCˤAC=BOȤʤOAB֤ˤȤ롣AORȤ롣BCMȤ롣BP=CQȤʤ뤤ʤPQ򤽤줾BO塢CAˤȤäƤPQMRθPQʬ롣οޤȤΰ㤤ϻOȤ뤳ȡSʤȡ

ƤˡBO,OA,AC,CBܤݤҤȸʤơäȷѷƤʻͳѷˤƤ⤳Ѥ餺ΩġʵˤηOA//BCʿԤǺоΤǡ͡
413ʶ 17:01:50 39223
ϥ饮㡼ƥ
ͥ饦Ǥߤޤ
413ʶ 18:10:43 HomePage:湩ؤ˥39224
⡼ޥ
äȤ...^^;
˵...PB=QC=7ΤȤ...Orz...
BAαĹSBCʿȤθTȤ...
ST=b, AT=a, BM=c
b/2c=a/11
b/c=(a+2)/(7+2)
a/11=(a+2)/18
a=22/7
(2+22/7)/9=3/x
x=27*7/(14+22)=189/36=21/4

...Ƭդ...뻶븫...^^;...
413ʶ 19:16:29 39225
xxx
ʲǤ
ߡ
ܣᣱ
ƤϤƤäʤäƤ!?(-)
414ڡ 8:57:52 39226
xxx
ޤǤ

ߡ

Ǥޤ
414ڡ 8:59:13 39227
xxx
Ǥߣ/Ǥ
ޥ뤵#39227Ƥꤤޤ
ɤ 414ڡ 9:04:50 39228

Ȥʤǡ
ѷSMCžƻѷBSRĤ롣
餯ѷBSRջѷǤꡢդϤĹϡ
(117)2ˤʤ롣
ꡢSA=AR2
Ȥϥͥ饦Ǥޤ
轵ΤޤޤǤ˻Ʋ򤯲ˤʤ䤷פ򤷤Ƥޤ⥫ȤȤǡ­򴶤ޤ
414ڡ 10:55:30 HomePage:39229

#39209ǤäȤ狼ޤ

ң͡27/23/221/4
դͥ饦äƤޤä
414ڡ 11:29:22 HomePage:39230