В данном приложении помещены процедуры генерации
окружностей по алгоритму Брезенхема и Мичнера, а также
программа T_Circle для тестирования данных процедур.
/*--------------------------------------------------- V_Circle
* Подпрограммы для генерации окружности
* Pixel_circle - занесение пикселов с учетом симметрии
* V_BRcirc - генерирует окружность по алгоритму
* Брезенхема.
* V_MIcirc - генерирует окружность по алгоритму
* Мичнера.
*/
#include <graphics.h>
/*----------------------------------------------- Pixel_circle
* Заносит пикселы окружности по часовой стрелке
*/
static void Pixel_circle (xc, yc, x, y, pixel)
int xc, yc, x, y, pixel;
{
putpixel(xc+x, yc+y, pixel);
putpixel(xc+y, yc+x, pixel);
putpixel(xc+y, yc-x, pixel);
putpixel(xc+x, yc-y, pixel);
putpixel(xc-x, yc-y, pixel);
putpixel(xc-y, yc-x, pixel);
putpixel(xc-y, yc+x, pixel);
putpixel(xc-x, yc+y, pixel);
} /* Pixel_circle */
/*--------------------------------------------------- V_BRcirc
* Генерирует 1/8 окружности по алгоритму Брезенхема
*
* Процедура может строить 1/4 окружности.
* Для этого надо цикл while заменить на for (;;)
* и после Pixel_circle проверять достижение конца по условию
* if (y <= end) break;
* Где end устанавливается равным 0
* В этом случае не нужен и последний оператор
* if (x == y) Pixel_circle (xc, yc, x, y, pixel);
* Генерацию 1/8 можно обеспечить задав end = r / sqrt (2)
*/
void V_BRcirc (xc, yc, r, pixel)
int xc, yc, r, pixel;
{ int x, y, z, Dd;
x= 0; y= r; Dd= 2*(1-r);
while (x < y) {
Pixel_circle (xc, yc, x, y, pixel);
if (!Dd) goto Pd;
z= 2*Dd - 1;
if (Dd > 0) {
if (z + 2*x <= 0) goto Pd; else goto Pv;
}
if (z + 2*y > 0) goto Pd;
Pg: ++x; Dd= Dd + 2*x + 1; continue; /* Горизонт */
Pd: ++x; --y; Dd= Dd + 2*(x-y+1); continue; /* Диагонал */
Pv: --y; Dd= Dd - 2*y + 1; /* Вертикал */
}
if (x == y) Pixel_circle (xc, yc, x, y, pixel);
} /* V_BRcirc */
/*--------------------------------------------------- V_MIcirc
* Генерирует 1/8 окружности по алгоритму Мичнера
*/
void V_MIcirc (xc, yc, r, pixel)
int xc, yc, r, pixel;
{ int x, y, d;
x= 0; y= r; d= 3 - 2*r;
while (x < y) {
Pixel_circle (xc, yc, x, y, pixel);
if (d < 0) d= d + 4*x + 6; else {
d= d + 4*(x-y) + 10; --y;
}
++x;
}
if (x == y) Pixel_circle (xc, yc, x, y, pixel);
} /* V_MIcirc */
/*=============================================== T_CIRCLE.C
*
* ТЕСТ ГЕНЕРАЦИИ ОКРУЖНОСТЕЙ
*
* Запрашивает ввод четырех чисел - координат центра,
* радиуса и цвета построения: Xc Yc R Pix
*
* Затем строит заданную окружность по алгоритму Брезенхема
* и концентрично с ней с радиусом, уменьшенным на 2, и
* номером цвета, уменьшенным на 1, выдает окружность по
* алгоритму Мичнера.
*
* При вводе Xc < 0 программа прекращает работу
*/
#include <graphics.h>
#include <stdio.h>
#include "V_CIRCLE.C"
/*-------------------------------------------- MAIN T_CIRCLE.C
*/
void main (void)
{
int ii, Xc=300, Yc=240, R=238, Pix=14;
int gdriver = DETECT, gmode;
initgraph(&gdriver, &gmode, "c:\tc\bgi");
if ((ii= graphresult()) != grOk) {
printf ("Err=%d\n", ii); goto all;
}
setbkcolor(0);
cleardevice();
for (;;) {
gotoxy (1,1);
printf(" \r");
printf("Xc, Yc, R, Pix= (%d %d %d %d) ? ", Xc,Yc,R,Pix);
scanf ("%d%d%d%d", &Xc, &Yc, &R, &Pix);
if (Xc < 0) break;
V_BRcirc (Xc, Yc, R, Pix);
V_MIcirc (Xc, Yc, R-2, Pix-1);
}
all:
closegraph();
}
Знаете ли Вы, что такое мысленный эксперимент, gedanken experiment? Это несуществующая практика, потусторонний опыт, воображение того, чего нет на самом деле. Мысленные эксперименты подобны снам наяву. Они рождают чудовищ. В отличие от физического эксперимента, который является опытной проверкой гипотез, "мысленный эксперимент" фокуснически подменяет экспериментальную проверку желаемыми, не проверенными на практике выводами, манипулируя логикообразными построениями, реально нарушающими саму логику путем использования недоказанных посылок в качестве доказанных, то есть путем подмены. Таким образом, основной задачей заявителей "мысленных экспериментов" является обман слушателя или читателя путем замены настоящего физического эксперимента его "куклой" - фиктивными рассуждениями под честное слово без самой физической проверки. Заполнение физики воображаемыми, "мысленными экспериментами" привело к возникновению абсурдной сюрреалистической, спутанно-запутанной картины мира. Настоящий исследователь должен отличать такие "фантики" от настоящих ценностей.
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
