Опыт работы с нейронными сетями и простой код на Ассемблере.

Application · 23 июл 2026

dcc0, 16:40 про рейкастинг.

dcc0 · 24 июл 2026

Интересно. Но ничего , что топографы знали про рейкастинг и раньше?! Ладно, это я так...

Application · 24 июл 2026

Ну не всегда можно сразу сообразить как методы топографов перенести в 3d игры.

dcc0 · 25 июл 2026

Application сказал(а): ↑

Ну не всегда можно сразу сообразить как методы топографов перенести в 3d игры.
Нажмите, чтобы раскрыть...

"Математическое и геометрическое представление линейной перспективы появилось в 1415–1425 годах в Италии. Первые практические опыты провел архитектор Филиппо Брунеллески около 1415 года, а в 1435 году теоретик Леон Баттиста Альберти описал её математические законы в своем трактате "... ИИ Вики. Я думаю, что над этой темой думали очень много и давно. Почти уверен, что в научной литературе алгоритм в явном или неявном виде существует. Так что вопрос почти всегда один: на чьих плечах стоит тот или иной ученый или программист?! Молодец человек, если сумел понять или закодировать, но надо надо понимать, что он, скорее всего, не сделал открытия. Бывает, что играясь на бумажке, можно открыть новый алгоритм, но большая часть их давно известна..

--- Сообщение объединено, 25 июл 2026 ---

Application, я думаю, многое из физического, видимого, особенно воспринимаемого, не так просто переложить на код. Что-то легче, что-то труднее. При видимой лёгкости и понятности, можно помучиться, если с 0 нуля делать. + если есть пробелы в понимании геометрии или недостаточно смекалки, то можно долго сидеть. Но тригонометрии не один год и не сто лет, и инженерная школа в общем тоже не вчера появилась.
Как-то так...

--- Сообщение объединено, 25 июл 2026 ---

Omnis ars imitatio est naturae.
Всякое искусство - пожражаие природе.

Application · 25 июл 2026

Так что вопрос почти всегда один: на чьих плечах стоит тот или иной ученый или программист?! Молодец человек, если сумел понять или закодировать, но надо надо понимать, что он, скорее всего, не сделал открытия. Бывает, что играясь на бумажке, можно открыть новый алгоритм, но большая часть их давно известна..
Нажмите, чтобы раскрыть...

Даже если есть сам алгоритм, там много чего другого, что нужно реализовывать и держать в уме.

Application · 28 июл 2026

3d куб в консоли.

Код (C):

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#include <windows.h>

#include <string.h>

#include <conio.h>

#define WIDTH 80

#define HEIGHT 25

#define PI 3.14159265359

// Структура для 3D вектора

typedef struct {

double x, y, z;

} TVec3;

// Глобальный буфер экрана

char screen[WIDTH * HEIGHT + 1];

// Функция создания вектора

TVec3 MakeVec(double x, double y, double z) {

TVec3 v;

v.x = x;

v.y = y;

v.z = z;

return v;

}

// Поворот точки вокруг осей

void RotatePoint(TVec3* p, double ax, double ay, double az) {

double x, y, z;

double cosA, sinA;

// Поворот вокруг X

cosA = cos(ax);

sinA = sin(ax);

y = p->y * cosA - p->z * sinA;

z = p->y * sinA + p->z * cosA;

p->y = y;

p->z = z;

// Поворот вокруг Y

cosA = cos(ay);

sinA = sin(ay);

x = p->x * cosA + p->z * sinA;

z = -p->x * sinA + p->z * cosA;

p->x = x;

p->z = z;

// Поворот вокруг Z

cosA = cos(az);

sinA = sin(az);

x = p->x * cosA - p->y * sinA;

y = p->x * sinA + p->y * cosA;

p->x = x;

p->y = y;

}

// Проекция 3D на 2D

void ProjectPoint(const TVec3* p, int* sx, int* sy) {

double scale;

scale = 8.0 / (p->z + 8.0); // Перспектива

*sx = (int)(p->x * scale * 5.0 + WIDTH / 2.0);

*sy = (int)(-p->y * scale * 5.0 + HEIGHT / 2.0);

// Ограничение

if (*sx < 0) *sx = 0;

if (*sx >= WIDTH) *sx = WIDTH - 1;

if (*sy < 0) *sy = 0;

if (*sy >= HEIGHT) *sy = HEIGHT - 1;

}

// Рисование линии

void DrawLine(TVec3 p1, TVec3 p2) {

int x1, y1, x2, y2;

int x, y, dx, dy, sx, sy, err, e2;

ProjectPoint(&p1, &x1, &y1);

ProjectPoint(&p2, &x2, &y2);

x = x1;

y = y1;

dx = abs(x2 - x1);

dy = abs(y2 - y1);

if (x1 < x2) sx = 1; else sx = -1;

if (y1 < y2) sy = 1; else sy = -1;

err = dx - dy;

while (1) {

if (x >= 0 && x < WIDTH && y >= 0 && y < HEIGHT) {

screen[y * WIDTH + x] = '#';

}

if (x == x2 && y == y2) break;

e2 = 2 * err;

if (e2 > -dy) {

err = err - dy;

x = x + sx;

}

if (e2 < dx) {

err = err + dx;

y = y + sy;

}

}

}

// Очистка консоли

void ClrScr() {

HANDLE hConsole;

CONSOLE_SCREEN_BUFFER_INFO ConsoleInfo;

DWORD dwSize, NumCells;

COORD Coord;

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

GetConsoleScreenBufferInfo(hConsole, &ConsoleInfo);

dwSize = ConsoleInfo.dwSize.X * ConsoleInfo.dwSize.Y;

Coord.X = 0;

Coord.Y = 0;

FillConsoleOutputCharacter(hConsole, ' ', dwSize, Coord, &NumCells);

FillConsoleOutputAttribute(hConsole, ConsoleInfo.wAttributes, dwSize, Coord, &NumCells);

SetConsoleCursorPosition(hConsole, Coord);

}

// Перемещение курсора

void GotoXY(int x, int y) {

HANDLE hConsole;

COORD Coord;

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

Coord.X = x - 1;

Coord.Y = y - 1;

SetConsoleCursorPosition(hConsole, Coord);

}

// Главная функция

int main() {

TVec3 cube[8];

TVec3 rotated[8];

int edges[12][2];

int i;

double angle;

HANDLE hConsole;

// Вершины куба

cube[0] = MakeVec(-1, -1, -1);

cube[1] = MakeVec( 1, -1, -1);

cube[2] = MakeVec( 1, 1, -1);

cube[3] = MakeVec(-1, 1, -1);

cube[4] = MakeVec(-1, -1, 1);

cube[5] = MakeVec( 1, -1, 1);

cube[6] = MakeVec( 1, 1, 1);

cube[7] = MakeVec(-1, 1, 1);

// Ребра куба (соединения вершин)

edges[0][0] = 0; edges[0][1] = 1;

edges[1][0] = 1; edges[1][1] = 2;

edges[2][0] = 2; edges[2][1] = 3;

edges[3][0] = 3; edges[3][1] = 0;

edges[4][0] = 4; edges[4][1] = 5;

edges[5][0] = 5; edges[5][1] = 6;

edges[6][0] = 6; edges[6][1] = 7;

edges[7][0] = 7; edges[7][1] = 4;

edges[8][0] = 0; edges[8][1] = 4;

edges[9][0] = 1; edges[9][1] = 5;

edges[10][0] = 2; edges[10][1] = 6;

edges[11][0] = 3; edges[11][1] = 7;

// Инициализация экрана

memset(screen, ' ', WIDTH * HEIGHT);

screen[WIDTH * HEIGHT] = '\0';

ClrScr();

// Скрываем курсор

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

CONSOLE_CURSOR_INFO cursorInfo;

GetConsoleCursorInfo(hConsole, &cursorInfo);

cursorInfo.bVisible = FALSE;

SetConsoleCursorInfo(hConsole, &cursorInfo);

angle = 0;

while (1) {

// Очистка экрана

memset(screen, ' ', WIDTH * HEIGHT);

// Копируем и поворачиваем вершины

for (i = 0; i < 8; i++) {

rotated[i] = cube[i];

RotatePoint(&rotated[i], angle, angle * 0.7, angle * 0.3);

}

// Рисуем все ребра

for (i = 0; i < 12; i++) {

DrawLine(rotated[edges[i][0]], rotated[edges[i][1]]);

}

// Вывод на экран

GotoXY(1, 1);

printf("%s", screen);

angle += 0.05;

Sleep(50);

// Выход по нажатию ESC

if (GetAsyncKeyState(VK_ESCAPE)) break;

}

// Показываем курсор обратно

cursorInfo.bVisible = TRUE;

SetConsoleCursorInfo(hConsole, &cursorInfo);

return 0;

}

GRAFik · 29 июл 2026

Application сказал(а): ↑

3d куб в консоли.
Нажмите, чтобы раскрыть...

Не в обиду. Скомпилировал, не понравилось. Бред какой-то, а не 3d куб в консоли. Проверять нужно качество работы бредогенератора, перед тем как постить его выхлоп.

Application · 29 июл 2026

GRAFik, это же консоль. а что ожидал увидеть?

dcc0 · 31 июл 2026 в 17:48

Application сказал(а): ↑

3d куб в консоли.

Код (C):

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#include <windows.h>

#include <string.h>

#include <conio.h>

#define WIDTH 80

#define HEIGHT 25

#define PI 3.14159265359

// Структура для 3D вектора

typedef struct {

double x, y, z;

} TVec3;

// Глобальный буфер экрана

char screen[WIDTH * HEIGHT + 1];

// Функция создания вектора

TVec3 MakeVec(double x, double y, double z) {

TVec3 v;

v.x = x;

v.y = y;

v.z = z;

return v;

}

// Поворот точки вокруг осей

void RotatePoint(TVec3* p, double ax, double ay, double az) {

double x, y, z;

double cosA, sinA;

// Поворот вокруг X

cosA = cos(ax);

sinA = sin(ax);

y = p->y * cosA - p->z * sinA;

z = p->y * sinA + p->z * cosA;

p->y = y;

p->z = z;

// Поворот вокруг Y

cosA = cos(ay);

sinA = sin(ay);

x = p->x * cosA + p->z * sinA;

z = -p->x * sinA + p->z * cosA;

p->x = x;

p->z = z;

// Поворот вокруг Z

cosA = cos(az);

sinA = sin(az);

x = p->x * cosA - p->y * sinA;

y = p->x * sinA + p->y * cosA;

p->x = x;

p->y = y;

}

// Проекция 3D на 2D

void ProjectPoint(const TVec3* p, int* sx, int* sy) {

double scale;

scale = 8.0 / (p->z + 8.0); // Перспектива

*sx = (int)(p->x * scale * 5.0 + WIDTH / 2.0);

*sy = (int)(-p->y * scale * 5.0 + HEIGHT / 2.0);

// Ограничение

if (*sx < 0) *sx = 0;

if (*sx >= WIDTH) *sx = WIDTH - 1;

if (*sy < 0) *sy = 0;

if (*sy >= HEIGHT) *sy = HEIGHT - 1;

}

// Рисование линии

void DrawLine(TVec3 p1, TVec3 p2) {

int x1, y1, x2, y2;

int x, y, dx, dy, sx, sy, err, e2;

ProjectPoint(&p1, &x1, &y1);

ProjectPoint(&p2, &x2, &y2);

x = x1;

y = y1;

dx = abs(x2 - x1);

dy = abs(y2 - y1);

if (x1 < x2) sx = 1; else sx = -1;

if (y1 < y2) sy = 1; else sy = -1;

err = dx - dy;

while (1) {

if (x >= 0 && x < WIDTH && y >= 0 && y < HEIGHT) {

screen[y * WIDTH + x] = '#';

}

if (x == x2 && y == y2) break;

e2 = 2 * err;

if (e2 > -dy) {

err = err - dy;

x = x + sx;

}

if (e2 < dx) {

err = err + dx;

y = y + sy;

}

}

}

// Очистка консоли

void ClrScr() {

HANDLE hConsole;

CONSOLE_SCREEN_BUFFER_INFO ConsoleInfo;

DWORD dwSize, NumCells;

COORD Coord;

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

GetConsoleScreenBufferInfo(hConsole, &ConsoleInfo);

dwSize = ConsoleInfo.dwSize.X * ConsoleInfo.dwSize.Y;

Coord.X = 0;

Coord.Y = 0;

FillConsoleOutputCharacter(hConsole, ' ', dwSize, Coord, &NumCells);

FillConsoleOutputAttribute(hConsole, ConsoleInfo.wAttributes, dwSize, Coord, &NumCells);

SetConsoleCursorPosition(hConsole, Coord);

}

// Перемещение курсора

void GotoXY(int x, int y) {

HANDLE hConsole;

COORD Coord;

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

Coord.X = x - 1;

Coord.Y = y - 1;

SetConsoleCursorPosition(hConsole, Coord);

}

// Главная функция

int main() {

TVec3 cube[8];

TVec3 rotated[8];

int edges[12][2];

int i;

double angle;

HANDLE hConsole;

// Вершины куба

cube[0] = MakeVec(-1, -1, -1);

cube[1] = MakeVec( 1, -1, -1);

cube[2] = MakeVec( 1, 1, -1);

cube[3] = MakeVec(-1, 1, -1);

cube[4] = MakeVec(-1, -1, 1);

cube[5] = MakeVec( 1, -1, 1);

cube[6] = MakeVec( 1, 1, 1);

cube[7] = MakeVec(-1, 1, 1);

// Ребра куба (соединения вершин)

edges[0][0] = 0; edges[0][1] = 1;

edges[1][0] = 1; edges[1][1] = 2;

edges[2][0] = 2; edges[2][1] = 3;

edges[3][0] = 3; edges[3][1] = 0;

edges[4][0] = 4; edges[4][1] = 5;

edges[5][0] = 5; edges[5][1] = 6;

edges[6][0] = 6; edges[6][1] = 7;

edges[7][0] = 7; edges[7][1] = 4;

edges[8][0] = 0; edges[8][1] = 4;

edges[9][0] = 1; edges[9][1] = 5;

edges[10][0] = 2; edges[10][1] = 6;

edges[11][0] = 3; edges[11][1] = 7;

// Инициализация экрана

memset(screen, ' ', WIDTH * HEIGHT);

screen[WIDTH * HEIGHT] = '\0';

ClrScr();

// Скрываем курсор

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);

CONSOLE_CURSOR_INFO cursorInfo;

GetConsoleCursorInfo(hConsole, &cursorInfo);

cursorInfo.bVisible = FALSE;

SetConsoleCursorInfo(hConsole, &cursorInfo);

angle = 0;

while (1) {

// Очистка экрана

memset(screen, ' ', WIDTH * HEIGHT);

// Копируем и поворачиваем вершины

for (i = 0; i < 8; i++) {

rotated[i] = cube[i];

RotatePoint(&rotated[i], angle, angle * 0.7, angle * 0.3);

}

// Рисуем все ребра

for (i = 0; i < 12; i++) {

DrawLine(rotated[edges[i][0]], rotated[edges[i][1]]);

}

// Вывод на экран

GotoXY(1, 1);

printf("%s", screen);

angle += 0.05;

Sleep(50);

// Выход по нажатию ESC

if (GetAsyncKeyState(VK_ESCAPE)) break;

}

// Показываем курсор обратно

cursorInfo.bVisible = TRUE;

SetConsoleCursorInfo(hConsole, &cursorInfo);

return 0;

}

Нажмите, чтобы раскрыть...

3D куб какой-то видел на Ютубе.

--- Сообщение объединено, 31 июл 2026 в 17:48 ---

Кодил руками на смартфоне на даче, вечерком. После повторого просмотра лекции о сети Хопфилда. Уже кодил когда-то пример этот. Ещё раз набросал модель (для ращжевывания). Спрошу у Алисы, понимает ли, о чем код?! хе-хе

P.S.

А ведь если вдуматься, все ведь до тупого угла треугольника просто:
Умножение векторов на себя, их сумма и умножение на искомый образец. Всё. Вся нейронка. Вот только с ёмкостью сети непонятно.
Сколько образцов может хранить.
(даже уравнения школьные бывают сложнее)

Код (Text):

<?php

$x1=array(-1,1,-1,1);

$x2=array(1,-1,1,1);

$x3=array(-1,1,-1,-1);

$y=array($x1, $x2, $x3);

$z=0;

$res1=array();

$res2=array();

$res3=array();

$current_arr=array($res1, $res2, $res3);

$res=array();

while($z < 3) {

for($i=0; $i < count($y[$z]); $i++)

{

for($j=0; $j < count($y[$z]); $j++){

print $y[$z][$j]*$y[$z][$i];

if($z==0)

$res1[]=$y[$z][$j]*$y[$z][$i];

if($z==1)

$res2[]=$y[$z][$j]*$y[$z][$i];

if($z==2)

$res3[]=$y[$z][$j]*$y[$z][$i];

}

print "\n";

}

$z++;

}

print_r($res1);

print_r($res2);

print_r($res3);

for($i=0; $i < count($res1); $i++){

$res[]=$res1[$i]+$res2[$i]+$res3[$i];

}

print_r($res);

//Искомый вектор

$vec=array(1,-1,1,1);

$ii=0;

$rr=0;

for($i=0; $i < 16; $i++)

{

$matr=$res[$i]*$vec[$ii];

$rr+=$matr;

$ii++;

$matr=0;

if ($ii==4) {

if($rr < 0)

$rr=-1;

else

$rr=1;

print $rr;

$rr=0;

$ii=0;

}

}

print "\n";

?>

Ahimov · 31 июл 2026 в 19:22

Application,

Браузерная версия дипсик.

Код (Text):

<!DOCTYPE html>

<html>

<head>

<meta charset="UTF-8">

<meta name="viewport" content="width=device-width, initial-scale=1.0">

<style>

body { background:#000; margin:0; display:flex; justify-content:center; align-items:center; height:100vh; overflow:hidden; }

pre { color:#0f0; font-family:'Courier New',monospace; font-size:10px; line-height:1.1; text-shadow:0 0 10px #0f0; white-space:pre; }

</style>

</head>

<body>

<pre id="d"></pre>

<script>

// Адаптивный размер

const W = 60; // Уменьшил ширину

const H = 30; // Увеличил высоту

const d = document.getElementById('d');

// Вершины куба (чуть больше для перспективы)

const v = [

[-1.5,-1.5,-1.5], [1.5,-1.5,-1.5], [1.5,1.5,-1.5], [-1.5,1.5,-1.5],

[-1.5,-1.5,1.5], [1.5,-1.5,1.5], [1.5,1.5,1.5], [-1.5,1.5,1.5]

];

const e = [[0,1],[1,2],[2,3],[3,0],[4,5],[5,6],[6,7],[7,4],[0,4],[1,5],[2,6],[3,7]];

function rot(p,a,b,c){

let x=p[0],y=p[1],z=p[2],t,C=Math.cos,S=Math.sin;

t=y*C(a)-z*S(a);z=y*S(a)+z*C(a);y=t;

t=x*C(b)+z*S(b);z=-x*S(b)+z*C(b);x=t;

t=x*C(c)-y*S(c);y=x*S(c)+y*C(c);x=t;

return [x,y,z];

}

function proj(p){

const dist = 5; // Уменьшил дистанцию для лучшей перспективы

const scale = dist / (p[2] + dist);

let x = Math.round(p[0] * scale * 4 + W/2);

let y = Math.round(-p[1] * scale * 4 + H/2);

x = Math.max(0, Math.min(W-1, x));

y = Math.max(0, Math.min(H-1, y));

return [x,y];

}

function line(p1,p2,s){

let [x1,y1]=proj(p1),[x2,y2]=proj(p2);

let x=x1,y=y1,dx=Math.abs(x2-x1),dy=Math.abs(y2-y1);

let sx=x1<x2?1:-1,sy=y1<y2?1:-1,err=dx-dy;

while(true){

if(x>=0&&x<W&&y>=0&&y<H) s[y*W+x] = (x===x1&&y===y1 || x===x2&&y===y2) ? 'O' : '#';

if(x===x2&&y===y2) break;

let e2=2*err;

if(e2>-dy){err-=dy;x+=sx;}

if(e2<dx){err+=dx;y+=sy;}

}

}

let a=0;

function draw(){

let s=Array(W*H).fill(' ');

let r=v.map(p=>rot(p,a,a*0.7,a*0.3));

e.forEach(([i,j])=>line(r[i],r[j],s));

let out='';

for(let y=0;y<H;y++){

for(let x=0;x<W;x++) out += s[y*W+x];

out += '\n';

}

d.textContent = out;

a += 0.04;

requestAnimationFrame(draw);

}

draw();

</script>

</body>

</html>

GRAFik · 31 июл 2026 в 21:12

Вот у Инди на JS - ещё более-менее приемлемый вариант. В цвете (правда, только в зелёном), но и то хоть что-то. Да и на 3D куб, это хоть и отдалённо, но похоже. То же ведь по сути консоль.

Ahimov · 31 июл 2026 в 21:39

GRAFik,

Это дипсика, я в JS вообще ничего не понимаю. Вопрос был как увидеть консольный куб без консоли тем же алгоритмом. По ссылке еще есть графический и попытки собрать в одну строку(не эксплойты если что).

dcc0 · 1 авг 2026 в 02:31

Application · 1 авг 2026 в 14:32

Поправил немного код с рейкастингом.

Что делает алгоритм DDA

Шагает от одной ячейки сетки к другой.

Проверяет пересечения по осям X и Y.

Находит точное попадание луча в стену.

Работает быстро за счет целочисленной или фиксированной математики.

Код (Pascal):

unit RaycasterGame;

interface

uses

Windows, Messages, SysUtils, Math, GameInput;

const

MAP_WIDTH = 16;

MAP_HEIGHT = 16;

FOV = Pi / 3.0;

MAX_DEPTH = 16.0;

MOVE_SPEED = 0.08;

ROTATE_SPEED = 0.03;

MOUSE_SENSITIVITY = 0.005;

PITCH_LIMIT = 1.5; // Ограничение наклона

const

worldMap: array[0..MAP_HEIGHT-1, 0..MAP_WIDTH-1] of Integer = (

(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,1),

(1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,1),

(1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),

(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

);

type

TPlayerState = record

X, Y, Angle: Double;

Pitch: Double;

end;

var

PlayerState: TPlayerState;

procedure InitGame;

procedure UpdatePlayer(var State: TGameState);

function CastRay(RayAngle: Double): Double;

function GetWallColor(Distance: Double): COLORREF;

function CanMove(X, Y: Double): Boolean;

implementation

procedure InitGame;

begin

PlayerState.X := 3.0;

PlayerState.Y := 4.0;

PlayerState.Angle := 0.0;

PlayerState.Pitch := 0.0;

end;

function CanMove(X, Y: Double): Boolean;

var

MapX, MapY: Integer;

begin

Result := False;

MapX := Trunc(X);

MapY := Trunc(Y);

if (MapX >= 0) and (MapX < MAP_WIDTH) and

(MapY >= 0) and (MapY < MAP_HEIGHT) then

begin

if worldMap[MapY, MapX] = 0 then

Result := True;

end;

end;

function CastRay(RayAngle: Double): Double;

var

Distance: Double;

Hit: Boolean;

EyeX, EyeY: Double;

TestX, TestY: Integer;

begin

Distance := 0;

Hit := False;

EyeX := Cos(RayAngle);

EyeY := Sin(RayAngle);

while (not Hit) and (Distance < MAX_DEPTH) do

begin

Distance := Distance + 0.1;

TestX := Trunc(PlayerState.X + EyeX * Distance);

TestY := Trunc(PlayerState.Y + EyeY * Distance);

if (TestX < 0) or (TestX >= MAP_WIDTH) or

(TestY < 0) or (TestY >= MAP_HEIGHT) then

begin

Hit := True;

Distance := MAX_DEPTH;

end

else if worldMap[TestY, TestX] = 1 then

Hit := True;

end;

Result := Distance;

end;

function GetWallColor(Distance: Double): COLORREF;

var

Brightness: Double;

Gray: Integer;

begin

if Distance <= 0 then Distance := 0.1;

Brightness := 1.0 - (Distance / MAX_DEPTH);

if Brightness < 0.1 then Brightness := 0.1;

Gray := Trunc(200 * Brightness);

Result := RGB(Gray, Gray, Gray);

end;

procedure UpdatePlayer(var State: TGameState);

var

NewX, NewY: Double;

DirX, DirY, RightX, RightY: Double;

MoveX, MoveY: Double;

DeltaX, DeltaY: Integer;

begin

// ==========================================

// ПОВОРОТ МЫШЬЮ (HORIZONTAL + VERTICAL)

// ==========================================

if State.Input.MouseCaptured then

begin

DeltaX := State.Input.MouseX - State.CenterX;

DeltaY := State.Input.MouseY - State.CenterY;

// Горизонтальный поворот

PlayerState.Angle := PlayerState.Angle + DeltaX * MOUSE_SENSITIVITY;

// Вертикальный наклон (Pitch)

PlayerState.Pitch := PlayerState.Pitch - DeltaY * MOUSE_SENSITIVITY;

// Ограничение наклона

if PlayerState.Pitch > PITCH_LIMIT then

PlayerState.Pitch := PITCH_LIMIT;

if PlayerState.Pitch < -PITCH_LIMIT then

PlayerState.Pitch := -PITCH_LIMIT;

end;

// ==========================================

// ДВИЖЕНИЕ

// ==========================================

DirX := Cos(PlayerState.Angle);

DirY := Sin(PlayerState.Angle);

RightX := -DirY;

RightY := DirX;

MoveX := 0;

MoveY := 0;

if State.Input.W then

begin

MoveX := MoveX + DirX * MOVE_SPEED;

MoveY := MoveY + DirY * MOVE_SPEED;

end;

if State.Input.S then

begin

MoveX := MoveX - DirX * MOVE_SPEED;

MoveY := MoveY - DirY * MOVE_SPEED;

end;

if State.Input.A then

begin

MoveX := MoveX - RightX * MOVE_SPEED;

MoveY := MoveY - RightY * MOVE_SPEED;

end;

if State.Input.D then

begin

MoveX := MoveX + RightX * MOVE_SPEED;

MoveY := MoveY + RightY * MOVE_SPEED;

end;

NewX := PlayerState.X + MoveX;

NewY := PlayerState.Y + MoveY;

if CanMove(NewX, PlayerState.Y) then

PlayerState.X := NewX;

if CanMove(PlayerState.X, NewY) then

PlayerState.Y := NewY;

if PlayerState.X < 0.5 then PlayerState.X := 0.5;

if PlayerState.X > MAP_WIDTH - 0.5 then PlayerState.X := MAP_WIDTH - 0.5;

if PlayerState.Y < 0.5 then PlayerState.Y := 0.5;

if PlayerState.Y > MAP_HEIGHT - 0.5 then PlayerState.Y := MAP_HEIGHT - 0.5;

end;

end.

Код (Pascal):

unit RaycasterRenderer;

interface

uses

Windows, Messages, SysUtils, Math,

GameInput, RaycasterGame;

type

TGameGraphics = record

hWnd: HWND;

Width: Integer;

Height: Integer;

hBuffer: HDC;

hBitmap: HBITMAP;

hOldBitmap: HBITMAP;

end;

var

Graphics: TGameGraphics;

procedure InitGraphics;

procedure FreeGraphics;

procedure RecreateBuffer;

procedure RenderScene(hDC: HDC; const State: TGameState);

implementation

procedure DrawRect(hDC: HDC; X, Y, W, H: Integer; Color: COLORREF);

var

Brush: HBRUSH;

begin

Brush := CreateSolidBrush(Color);

SelectObject(hDC, Brush);

Rectangle(hDC, X, Y, X + W, Y + H);

DeleteObject(Brush);

end;

procedure DrawText(hDC: HDC; X, Y: Integer; const Text: string; Color: COLORREF);

var

OldColor: COLORREF;

OldBkMode: Integer;

begin

OldColor := SetTextColor(hDC, Color);

OldBkMode := SetBkMode(hDC, TRANSPARENT);

TextOut(hDC, X, Y, PChar(Text), Length(Text));

SetBkMode(hDC, OldBkMode);

SetTextColor(hDC, OldColor);

end;

procedure DrawLine(hDC: HDC; X1, Y1, X2, Y2: Integer; Color: COLORREF; Thickness: Integer);

var

Pen: HPEN;

OldPen: HPEN;

begin

Pen := CreatePen(PS_SOLID, Thickness, Color);

OldPen := SelectObject(hDC, Pen);

MoveToEx(hDC, X1, Y1, nil);

LineTo(hDC, X2, Y2);

SelectObject(hDC, OldPen);

DeleteObject(Pen);

end;

procedure DrawCrosshair(hDC: HDC; Width, Height: Integer);

var

CX, CY: Integer;

begin

CX := Width div 2;

CY := Height div 2;

DrawLine(hDC, CX, CY - 9, CX, CY - 3, RGB(0, 255, 0), 2);

DrawLine(hDC, CX, CY + 3, CX, CY + 9, RGB(0, 255, 0), 2);

DrawLine(hDC, CX - 9, CY, CX - 3, CY, RGB(0, 255, 0), 2);

DrawLine(hDC, CX + 3, CY, CX + 9, CY, RGB(0, 255, 0), 2);

end;

procedure DrawHUD(hDC: HDC; Width, Height: Integer; const State: TGameState);

var

InfoText: string;

begin

DrawCrosshair(hDC, Width, Height);

InfoText := Format('X: %.2f Y: %.2f', [PlayerState.X, PlayerState.Y]);

DrawText(hDC, 10, Height - 70, InfoText, RGB(0, 255, 0));

InfoText := Format('Angle: %.2f deg', [PlayerState.Angle * 180 / Pi]);

DrawText(hDC, Width - 150, 10, InfoText, RGB(0, 255, 0));

DrawText(hDC, 10, Height - 90, 'W/A/S/D - äâèæåíèå | ESC - âûõîä', RGB(0, 255, 0));

end;

function CastRayDDA(x, y, angle: Double; var dist, side: Double): Boolean;

var

ray_dir_x, ray_dir_y: Double;

map_x, map_y: Integer;

delta_dist_x, delta_dist_y: Double;

step_x, step_y: Integer;

side_dist_x, side_dist_y: Double;

hit: Boolean;

begin

ray_dir_x := Cos(angle);

ray_dir_y := Sin(angle);

map_x := Trunc(x);

map_y := Trunc(y);

if ray_dir_x <> 0 then

delta_dist_x := Abs(1 / ray_dir_x)

else

delta_dist_x := 1e30;

if ray_dir_y <> 0 then

delta_dist_y := Abs(1 / ray_dir_y)

else

delta_dist_y := 1e30;

if ray_dir_x > 0 then

begin

step_x := 1;

side_dist_x := (map_x + 1 - x) * delta_dist_x;

end

else

begin

step_x := -1;

side_dist_x := (x - map_x) * delta_dist_x;

end;

if ray_dir_y > 0 then

begin

step_y := 1;

side_dist_y := (map_y + 1 - y) * delta_dist_y;

end

else

begin

step_y := -1;

side_dist_y := (y - map_y) * delta_dist_y;

end;

hit := False;

side := 0;

while not hit do

begin

if side_dist_x < side_dist_y then

begin

side_dist_x := side_dist_x + delta_dist_x;

map_x := map_x + step_x;

side := 0;

end

else

begin

side_dist_y := side_dist_y + delta_dist_y;

map_y := map_y + step_y;

side := 1;

end;

if (map_x < 0) or (map_x >= MAP_WIDTH) or (map_y < 0) or (map_y >= MAP_HEIGHT) then

Break;

if worldMap[map_y, map_x] = 1 then

hit := True;

end;

if hit then

begin

if side = 0 then

dist := (map_x - x + (1 - step_x) / 2) / ray_dir_x

else

dist := (map_y - y + (1 - step_y) / 2) / ray_dir_y;

Result := True;

end

else

Result := False;

end;

procedure RenderWalls(hDC: HDC; State: TGameState);

var

i: Integer;

ray_angle, dist, side, height, shade: Double;

color: COLORREF;

wall_y_top, wall_y_bottom: Integer;

PlayerAngle: Double;

HalfHeight: Integer;

PitchOffset: Integer;

begin

PlayerAngle := PlayerState.Angle;

HalfHeight := Graphics.Height div 2;

PitchOffset := Round(PlayerState.Pitch * Graphics.Height / 1.5);

for i := 0 to Graphics.Width - 1 do

begin

ray_angle := PlayerAngle - FOV / 2.0 + (i / Graphics.Width) * FOV;

if CastRayDDA(PlayerState.X, PlayerState.Y, ray_angle, dist, side) then

begin

dist := dist * Cos(PlayerAngle - ray_angle);

height := Min(Graphics.Height / Max(dist, 0.1), Graphics.Height * 2);

if side = 0 then

color := RGB(180, 170, 160)

else

color := RGB(140, 130, 120);

shade := Max(0.3, 1 - Min(dist / 15, 1) * 0.7);

color := RGB(

Trunc(GetRValue(color) * shade),

Trunc(GetGValue(color) * shade),

Trunc(GetBValue(color) * shade)

);

wall_y_top := HalfHeight + PitchOffset - Trunc(height / 2);

wall_y_bottom := HalfHeight + PitchOffset + Trunc(height / 2);

if wall_y_top < 0 then wall_y_top := 0;

if wall_y_bottom > Graphics.Height then wall_y_bottom := Graphics.Height;

DrawLine(hDC, i, wall_y_top, i, wall_y_bottom, color, 1);

end;

end;

end;

procedure RenderScene(hDC: HDC; const State: TGameState);

var

HalfHeight: Integer;

PitchOffset: Integer;

begin

HalfHeight := Graphics.Height div 2;

PitchOffset := Round(PlayerState.Pitch * Graphics.Height / 1.5);

DrawRect(Graphics.hBuffer, 0, 0, Graphics.Width, HalfHeight + PitchOffset, RGB(30, 40, 60));

DrawRect(Graphics.hBuffer, 0, HalfHeight + PitchOffset, Graphics.Width,

Graphics.Height - (HalfHeight + PitchOffset), RGB(50, 50, 50));

if HalfHeight + PitchOffset < 0 then

DrawRect(Graphics.hBuffer, 0, 0, Graphics.Width, Graphics.Height, RGB(50, 50, 50))

else if HalfHeight + PitchOffset > Graphics.Height then

DrawRect(Graphics.hBuffer, 0, 0, Graphics.Width, Graphics.Height, RGB(30, 40, 60));

RenderWalls(Graphics.hBuffer, State);

DrawHUD(Graphics.hBuffer, Graphics.Width, Graphics.Height, State);

BitBlt(hDC, 0, 0, Graphics.Width, Graphics.Height, Graphics.hBuffer, 0, 0, SRCCOPY);

end;

procedure InitGraphics;

begin

FillChar(Graphics, SizeOf(Graphics), 0);

Graphics.Width := 800;

Graphics.Height := 600;

RecreateBuffer;

end;

procedure FreeGraphics;

begin

if Graphics.hBitmap <> 0 then

begin

SelectObject(Graphics.hBuffer, Graphics.hOldBitmap);

DeleteObject(Graphics.hBitmap);

Graphics.hBitmap := 0;

end;

if Graphics.hBuffer <> 0 then

begin

DeleteDC(Graphics.hBuffer);

Graphics.hBuffer := 0;

end;

end;

procedure RecreateBuffer;

var

hdcWin: HDC;

begin

if Graphics.hBitmap <> 0 then

begin

SelectObject(Graphics.hBuffer, Graphics.hOldBitmap);

DeleteObject(Graphics.hBitmap);

Graphics.hBitmap := 0;

end;

if Graphics.hBuffer = 0 then

Graphics.hBuffer := CreateCompatibleDC(0);

hdcWin := GetDC(Graphics.hWnd);

Graphics.hBitmap := CreateCompatibleBitmap(hdcWin, Graphics.Width, Graphics.Height);

Graphics.hOldBitmap := SelectObject(Graphics.hBuffer, Graphics.hBitmap);

ReleaseDC(Graphics.hWnd, hdcWin);

end;

end.

dcc0 · 1 авг 2026 в 14:45

https://ru.wikipedia.org/wiki/Хебб,_Дональд

https://ru.wikipedia.org/wiki/Розенблатт,_Фрэнк

--- Сообщение объединено, 1 авг 2026 в 14:45 ---

"
Критика перцептронов в 70-х гг

Однако в 1969 году бывший сокурсник Розенблатта Марвин Минский и Сеймур Пейперт опубликовали книгу «Перцептроны», в которой привели строгое математическое доказательство того, что перцептрон не способен к обучению в большинстве интересных для применения случаев. В результате принятия идей и выводов книги М. Минского и С. Паперта работы по нейронным сетям были свернуты во многих научных центрах и финансирование существенно урезано. Так как Розенблатт погиб в результате трагической случайности при кораблекрушении в Чесапикском заливе, во время плавания на яхте в день своего рождения, то он не смог аргументированно ответить на критику и исследования нейронных сетей приостановились практически на десятилетие."

--- Сообщение объединено, 1 авг 2026 в 14:46 ---

"
Имя Хебба часто всплывает в дискуссиях об участии исследоватей-психологов в допросах, использующих техники сенсорной депривации из-за его исследований в этой области. В докладе на симпозиуме по сенсорной депривации в июне 1958 г. в Гарварде Хебб замечает:

Работа, которую мы провели в Университете МакГилла, на самом деле началась с проблемы промывания мозгов. Нам не разрешили сказать это в первой публикации… Главным импульсом, конечно, была обеспокоенность «признаниями» на российских коммунистических процессах. Термин «промывание мозгов» появился немного позже, в применении к китайским технологиям. Мы не знали, какими были русские технологии, но, кажется, они приводили к некоторым специфическим изменениям отношения. Как? Одним из возможных факторов была сенсорная депривация, и мы сконцентрировались на этом вопросе.[11]
Оригинальный текст (англ.)
Недавние исторические исследования показали, что работы Хебба по сенсорной депривации финансировались ЦРУ (McCoy, 2007), частично были засекречены и первоначально использовались только госагентствами США. В некоторых его исследованиях добровольцы подвергались многочасовой сенсорной депривации[источник не указан 1655 дней].
"

--- Сообщение объединено, 1 авг 2026 в 14:47 ---

Всяких интересностей ...

Dmitry_Milk · 2 авг 2026 в 10:05

dcc0 сказал(а): ↑

Имя Хебба часто всплывает в дискуссиях об участии исследоватей-психологов в допросах, использующих техники сенсорной депривации
Нажмите, чтобы раскрыть...

А я думал, что имя Хебба в первую очередь известно в нейросайнсе из-за правила Хебба.

Application · 4 авг 2026 в 16:31

Войти или зарегистрироваться

Опыт работы с нейронными сетями и простой код на Ассемблере.

Application Moderator Команда форума

dcc0 Active Member

Application Moderator Команда форума

dcc0 Active Member

Application Moderator Команда форума

Application Moderator Команда форума

GRAFik Active Member

Application Moderator Команда форума

dcc0 Active Member

Ahimov Active Member

GRAFik Active Member

Ahimov Active Member

dcc0 Active Member

Application Moderator Команда форума

Вложения:

Main.rar

dcc0 Active Member

Dmitry_Milk Member

Application Moderator Команда форума

Войти или зарегистрироваться

Опыт работы с нейронными сетями и простой код на Ассемблере.

Application Moderator Команда форума

dcc0 Active Member

Application Moderator Команда форума

dcc0 Active Member

Application Moderator Команда форума

Application Moderator Команда форума

GRAFik Active Member

Application Moderator Команда форума

dcc0 Active Member

Ahimov Active Member

GRAFik Active Member

Ahimov Active Member

dcc0 Active Member

Application Moderator Команда форума

Вложения:

Main.rar

dcc0 Active Member

Dmitry_Milk Member

Application Moderator Команда форума

Быстрый поиск