Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 1 ---------- UserFunction 0 ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 2 4 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 2 0 2 Cells(t,1) Cells(t,2) 1 t 1 1 1 0 0 16777215 1 1 0 3 1 0 0 3 0 2 0 Q 1 0 2 Q Cells(s,1) Cells(s,2) 0 t 0.1 0 0 255 0 16777215 0 1 0 1 1 0 0 6 0 2 0 R 0 0 1 S 0 0 1 T 0 0 1 U 0 0 1 V 0 0 1 A 7 0 2 Cells(t,3) Cells(t,4) 0 1 5 t 1 0 0 0 0 16777215 1 0 0 1 1 0 0 1 0 3 0 B 0 0 1 C 0 0 1 D 0 0 1 E 0 0 1 F 0 0 1 G 0 0 1 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 0 0 1 N 0 0 1 O 1 0 2 O 0 0 0 t 0.1 0 0 16777215 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 ---------- Segments 0 ---------- paramater 14 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 13 0 1 1 1 1 2 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 13 0 1 1 1 0 3 13 0 1 1 1 0 1 12 0 1 1 0.1 0 0 4 0 1 1 0.1 1 0 0 0 1 1 0.1 1 0 0 0 1 1 1 1 0 1 1 80 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 4 2 1 1 0 1 1 0 1 0 32 0 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg,MaxAimgN0 0 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 914 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 10.6870517020004 -0.596898915283541 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 10.6179396775756 -0.832262677575694 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 12 0 0 0 0 0 12 0 0 0 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 10 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 6 y1 y2 y3 y4 y5 y6 ---------- Panel Position 0 0 0 100 219 142 301 175 0 0 1 1 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 16711680 0 12 0 0 0 31 1辺10の正方形内に半径1の円を 重ならないように{n}個配置する。 但し、{1<=n<=13} #//描く #on n change #ClrAImg #ClrAllCells #if n<=0 then n:=1 #if n>=13 then n:=13 #Cells(1,3):=(0,0) #Cells(2,3):=(10,0) #Cells(3,3):=(10,10) #Cells(4,3):=(0,10) #Cells(5,3):=(0,0) #//本題 #Cells(1,1):=8*rnd(1)+1 #Cells(1,2):=8*rnd(1)+1 #for s:=2 to n #Cells(s,1):=8*rnd(1)+1 #Cells(s,2):=8*rnd(1)+1 #for u:=1 to s-1 #if (Cells(s,1)-Cells(u,1))^2+(Cells(s,2)-Cells(u,2))^2<4 then s:=s-1 #next u #next s #t:=1 #draw #ClrAImg #for t:=1 to n #draw #next ---------- 11 4 27 1 6 35 0 6 35 0 6 35 0 6 35 0 6 35 0 6 35 0 6 35 0 6 35 0 6 35 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 13 10 200 Table Data 1 data 2.62342229485512 4.63142422027886 0 0 2 data 8.63597432896495 1.23338040523231 10 0 3 data 7.05429509654641 8.77895610593259 10 10 4 data 6.06883123144507 3.17780102603137 0 10 5 data 8.8356127217412 3.92581293918192 0 0 6 data 3.42661155387759 2.0090457778424 7 data 1.25468469038606 1.2054341044277 8 data 6.14256750419736 5.28557998500764 9 data 3.31713647022843 8.60698743723333 10 data 1.09118678420782 5.97646462358534 11 data 8.3295180760324 6.59546254388988 12 data 5.15142635628581 7.27804776839912 13 data 1.03882702440023 8.77991240657866 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------