Снежинка Коха (исправить приведенный код)

@Sapiuntop · Регистрация: 22.09.2012

Студворк — интернет-сервис помощи студентам

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace koh1
{
    public partial class Form1 : Form
    {
        private Pen pen1;
        private Graphics gr;
        private int uroven;
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            pen1 = new Pen(Color.Green, 1);
            gr = CreateGraphics();
            var p1 = new PointF(100, 100);
            var p2 = new PointF(400, 100);
            var p3 = new PointF(250, 300);
            gr.Clear(Color.White);
            gr.DrawLine(pen1, p1, p2);
            gr.DrawLine(pen1, p2, p3);
            gr.DrawLine(pen1, p3, p1);
            //Console.ReadLine();
            gr.Clear(Color.White);
            Fractal(p1, p2, p3, 2);
            Fractal(p2, p3, p1, 2);
            Fractal(p3, p1, p2, 2);
        }
        private void Fractal(PointF p1, PointF p2, PointF p3, int n)
        {
            if (n > 0)
            {
                var p4 = new PointF((p2.X + 2 * p1.X) / 3, (p2.Y + 2 * p1.Y) / 3);
                var p5 = new PointF(p1.X + p2.X, p1.Y + p2.Y);
                var ps = new PointF((p1.X + p2.X) / 2, (p1.Y + p2.Y) / 2);
                var pn = new PointF((4 * ps.X - p3.X) / 3, (4 * ps.Y - p3.Y) / 3); 
 
                Fractal(p4, pn, p5, n - 1);
                Fractal(pn, p5, p4, n - 1);
                Fractal(p1, p4, new PointF((2 * p1.X + p3.X) / 3, (2 * p1.Y + p3.Y) / 3), n - 1);
                Fractal(p5, p2, new PointF((2 * p2.X + p3.X) / 3, (2 * p2.Y + p3.Y) / 3), n - 1);
            }
            return n;
        }
        
    }
 
}

@turbanoff · 25.09.2012, 10:47

Сообщение от Sapiuntop

исправить приведенный код

А в чем проблема?

@Sapiuntop · 25.09.2012, 18:00 **[ТС]**

Всем спасибо я уже сам нашел ошибку.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace koh1
{
    public partial class Form1 : Form
    {
       static Pen pen1;
       static Graphics gr;
       static Pen pen2;
       
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            pen1 = new Pen(Color.Green, 1);
            pen2 = new Pen(Color.White, 1);
            gr = CreateGraphics();
            var p1 = new PointF(100, 100);
            var p2 = new PointF(400, 100);
            var p3 = new PointF(250, 300);
            gr.DrawLine(pen1, p1, p2);
            gr.DrawLine(pen1, p2, p3);
            gr.DrawLine(pen1, p3, p1);
            
            Fractal(p1, p2, p3, 5);
            Fractal(p2, p3, p1, 5);
            Fractal(p3, p1, p2, 5);
        }
        static int Fractal(PointF p1, PointF p2, PointF p3, int n)
        {
            if (n > 0)
            {
                
                    var p4 = new PointF((p2.X + 2 * p1.X) / 3, (p2.Y + 2 * p1.Y) / 3);
                    var p5 = new PointF((2*p2.X + p1.X)/3, (p1.Y + 2*p2.Y)/3);
                    var ps = new PointF((p2.X + p1.X) / 2, (p2.Y + p1.Y) / 2);
                    var pn = new PointF((4 * ps.X - p3.X) / 3, (4 * ps.Y - p3.Y) / 3);
 
                    gr.DrawLine(pen1, p4, pn);
                    gr.DrawLine(pen1, p5, pn);
                    gr.DrawLine(pen2, p4, p5);
                   
                    Fractal(p4, pn, p5, n - 1);
                    Fractal(pn, p5, p4, n - 1);
                    Fractal(p1, p4, new PointF((2 * p1.X + p3.X) / 3, (2 * p1.Y + p3.Y) / 3), n - 1);
                    Fractal(p5, p2, new PointF((2 * p2.X + p3.X) / 3, (2 * p2.Y + p3.Y) / 3), n - 1);
                
            }
            return n;
        }
        
    }
 
}

@abu_chechen · 17.12.2019, 23:13

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Ìàêðîñ1()
    x0 = 300: y0 = 300: r = 270: k = 10
    cir x0, y0, r
    rec x0, y0, r, k, 1
End Sub
 
Sub rec(x0, y0, r, k, n)
     pi = 3.14
     a = pi / k
     r1 = r / (1 + Sin(a))
     r2 = r - r1
     aa = 2 * a
     For i = aa To 2 * pi Step aa
        X = x0 + r1 * Cos(i)
        Y = y0 + r1 * Sin(i)
        cir X, Y, r2
        If n < 10 Then rec X, Y, r2, k, n + 1
    Next i
End Sub
 
Sub cir(x0, y0, r)
    Dim F As Shape
    Set F = ActiveDocument.Shapes.AddShape(9, x0 - r, y0 - r, 2 * r, 2 * r)
    F.Fill.Visible = msoFalse
    F.Line.Weight = 0.5
    F.Line.ForeColor.RGB = RGB(0, 0, 0)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/