Копипаст
Интеграл побеждает Логарифм: реальность и зазеркалье
из моих предыдущих статей создана и распечатана книжка
и новейшая версия разделена на 2 части и есть общий вариант
между прочим с разных форумов
скачали и/или/либо прослушали почти 55 раз
12 мб скачать / слушать 30 м. я-диск ИнтЛог_зазеркалье_64_dav.mp3
12 мб скачать / слушать 27 м. я-диск ИнтЛог_реальность_64_dav.mp3
25 мб скачать / слушать 55 м. я-диск ИнтЛог_озвуч_64_dav.mp3
7 мб скачать / слушать 30 м. я-диск ИнтЛог_зазеркалье_32_dav.mp3
7 мб скачать / слушать 27 м. я-диск ИнтЛог_реальность_32_dav.mp3
12 мб скачать / слушать 55 м. я-диск ИнтЛог_озвуч_32_dav.mp3
эксперимент: вдруг внедрится новый тренд: аудио
и лично я естественно тоже всё прослушал
другие темы:
Волны вероятности повышают надёжность
Пиковая Дама Управление рисками Queen Spades Risk Management
Интеграл Логарифм Комбинаторика и МЫ
Русская сортировка половинами: человеческая сортировка быстрее в 4 раза и МЫ
чуйка и вы и математика и интеграл и мы
бесплатные лекции анимации могут создавать все
ЭКСПОРТ Лидер Ведомый Жертва EXPORT leader slave victim
лучшая кредитка и МЫ best credit card and WE
Рефинансирование кредитов 2-х типов и МЫ
объяснение убытков после повышения ставок и МЫ
Россия и Украина и Европа и МЫ
Данилин: АнтиИгроМаниЯ // Danilin: AntiGambling
Квадрат Экономии Данилиных QED
Деление несовпадений подряд и МЫ
Экспорт и отличие Инвестиций и фальшь-инвестиций
_sg_
темы избегают негатив и недоказуемое
и ещё оригинальные идеи по истории
вида «Наполеон развалил СССР»
даже в иносказательном и в завуалированном виде
в данных статьях отсутствуют
Логарифм Интегралович
в случайном порядке
о чём тоже рассказывается в статьях
внезапно вновь получается осмысленный текст
и ещё возможно цитировать извлекая из контекста
Логарифм Интегралович
т.к. всё позитивно
и возможно удалять
лишние строки и абзацы
и для озвучивания использован спец текст
где числительные перепечатаны буквами
Логарифм Интегралович
? почему C# & Basic & Excel & qb64 ?
потому что C# & qb64 компилируемые
у меня компилятор C# csc.exe в Win7
и компилирую через индивидуальный bat
Excel: среды даже микро размера
Basic: qb64 совместимый с Win7
квадратное уравнение qb64:
' quadratic equation QB64 DAV
INPUT «INPUT A»; A
INPUT «INPUT B»; B
INPUT «INPUT C»; C
D = B ^ 2 — 4 * A * C
IF D < 0 THEN PRINT «D<0 »: END
PRINT «OTBET:»
PRINT «D =»; D
X1 = (-B + SQR(D)) / (2 * A)
X2 = (-B — SQR(D)) / (2 * A)
PRINT «X1 =»; X1
PRINT «X2 =»; X2
END
квадратное уравнение C# без проверки d<0:
// quadratic equation C# DAV
using System;
using System.Text;
using System.IO;
namespace DAV
{
class Program
{
static void Main(string<] args)
{
Console.Write(«INPUT A: »);
long a = Convert.ToInt32(Console.ReadLine());
Console.Write(«INPUT B: »);
long b = Convert.ToInt32(Console.ReadLine());
Console.Write(«INPUT C: »);
long c = Convert.ToInt32(Console.ReadLine());
long d = (b * b — 4 * a * c);
Console.WriteLine(“OTBET: „);
Console.Write(«D =»);
Console.WriteLine(d);
var x1 = (-b + Math.Sqrt(d)) / (2 * a);
var x2 = (-b — Math.Sqrt(d)) / (2 * a);
Console.Write(«X1 = »);
Console.WriteLine(x1);
Console.Write(«X2 = »);
Console.WriteLine(x2);
Console.ReadKey();
}
}
}
квадратное уравнение excel без проверки d<0:
excel: скопировать и вставить в A1
6
7
2
=A2^2-4*A1*A3
=(-A2+КОРЕНЬ(A4))/(2*A1)
=(-A2-КОРЕНЬ(A4))/(2*A1)
дальше нужно изучить условия
создав игрушку “угадай число»
Логарифм Интегралович
Kapeks
предыдущий вариант книжки:
Интеграл обманывает чужих и МЫ
и значит вкратце аннотация:
что делать чтобы свои Знайки обманывали чужих Незнаек
Логарифм Интегралович
специально оставляет непонятным:
Интеграл побеждает Логарифм
или наоборот:
Интеграл побеждает Логарифм
Логарифм Интегралович
программа угадывает число задуманное человеком
эмулируя 2 случайных: машинное и человеческое
и приближаясь каждый раз деля дистанцию на половину
in 1/4 hours on qb64 and in 3/4 hours C# is created
program guesses number conceived by man
emulating 2 random: machine and human
and approaching each time dividing distance by half
'qb64 dav guesses number dividing distance by half
RANDOMIZE TIMER
n = 0: x = 100
c = INT(RND * 100) 'comp
h = INT(RND * 100) 'human
t = 0
h2 = x
h1 = n
10 t = t + 1
PRINT t, c, h,
IF h < c THEN PRINT «MORE»: a = h: h = INT((h + h2) / 2): h1 = a: GOTO 10
IF h > c THEN PRINT «less»: a = h: h = INT((h1 + h) / 2): h2 = a: GOTO 10
PRINT «win by »; t; " steps"
END
1 40 11 MORE
2 40 55 less
3 40 33 MORE
4 40 44 less
5 40 38 MORE
6 40 41 less
7 40 39 MORE
8 40 40 win by 8 steps
//C# dav guesses number dividing distance by half
using System;
using System.Text;
namespace DAV
{
class Program
{
static void Main(string[] args)
{
int x = 100;
int n = 0;
Random rand = new Random();
int c = rand.Next(100); //comp
int h = rand.Next(100); //human
int t = 0;
var h2 = x;
var h1 = n;
dav:
t++;
Console.WriteLine();
Console.Write(t);
Console.Write(" ");
Console.Write©;
Console.Write(" ");
Console.Write(h);
Console.Write(" ");
if(h < c)
{
Console.Write(«MORE»);
int a = h;
h = (h + h2) / 2;
h1 = a;
goto dav;
}
else if(h > c)
{
Console.Write(«less»);
int a = h;
h = (h1 + h) / 2;
h2 = a;
goto dav;
}
Console.Write(«win by „);
Console.Write(t);
Console.Write(“ steps»);
Console.ReadKey();
}
}
}
Логарифм Интегралович
Learn C# knowing Basic & Excel & qb64
никогда никому ничего не рекомендую и пишу только про себя
компилируется программа C# milliard.cs
угадывает 1 из миллиарда номеров за 30 ходов
=log(10^9;2) = 30
копируем текст программы и вставляем в блокнот
и временно сохраняем на рабочий стол с названием
milliard.cs
в блокноте создаём новый текст 2 строчки
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo milliard.cs
pause
и временно сохраняем на рабочий стол с названием
billion.bat
переходим в каталог
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\
где видим csc.exe и переносим 2 файла
milliard.cs
billion.bat
и создаём ярлык каталога на рабочем столе
стартовав billion.bat
возникает информ окно и создаётся
малый быстрый независимый исполняемый
milliard.exe
никогда никому ничего не рекомендую и пишу только про себя
//milliard & billion
using System;
using System.Text;
namespace DAV
{
class Program
{
static void Main(string[] args)
{
int h2 = 1000000000;//or 500
int h1 = 0;
Random rand = new Random();
int c = rand.Next(h2); //computer
int h = rand.Next(h2); //human or h2/2;
int t = 0;
dav:
t++;
Console.WriteLine();
Console.Write(t);
Console.Write(" ");
Console.Write©;
Console.Write(" ");
Console.Write(h);
Console.Write(" ");
if(h < c)
{
Console.Write(«MORE»);
int a = h;
h = (h + h2) / 2;
h1 = a;
goto dav;
}
else if(h > c)
{
Console.Write(«less»);
int a = h;
h = (h1 + h) / 2;
h2 = a;
goto dav;
}
Console.Write(«win by „);
Console.Write(t);
Console.Write(“ steps»);
Console.ReadKey();
}
}
}
Логарифм Интегралович
строит на экране таблицу умножения
Program C# Pythagoras and nested loops
builds on screen multiplication table
2 3 4 5 6 7 8 9
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
особенность компилятора C#
замечание мол ошибка в начале программы
может означать нехватку символов } в конце
C# compiler feature noticed
remark that there is a mistake at beginning of program
may mean a lack of characters } at end
//pifagor
using System;
using System.Text;
namespace DAV
{
class Program
{
static void Main(string[] args)
{
Console.Write(" 2 3 4 5 6 7 8 9");
for (int i = 5; i <=9; i++)
{
Console.WriteLine();
Console.Write(i);
for (int j = 2; j <=9; j++)
{
Console.Write(" ");
Console.Write(i*j);
} //next j 'qb
} //next i 'qb
Console.ReadKey();
}
}
}
на языках basic бэйсик qb64 BasiC# qbc# C##
данная программа не создавалась и
источник: главная учебная программа
in languages basic basic qb64 BasiC# qbc# C##
this program was not created and
source is my magnum opus
Логарифм Интегралович
рисуем 5D рельеф создав случайный массив высот
на QB64 за 5 минут и ещё час
на красоту и на универсальность
' 5д рельеф и массив
SCREEN 12: RANDOMIZE TIMER: DIM a(12,12)
FOR t=1 TO 12 ' количество
FOR x=1 TO 12: FOR y=1 TO 12
a(x,y)=INT(RND*20)'высоты
NEXT: NEXT: CLS
FOR y=1 TO 12: FOR x=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*y-a(x+1,y)), y
NEXT: NEXT
FOR x=1 TO 12: FOR y=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*(y+1)-a(x,y+1)), x
NEXT: NEXT:SLEEP 1
NEXT
END
на C# использована программа маятник
из-за чего остались непонятные строки про таймер
и от вне/внутри циклов зависит функция случайных
и чтоб понять создана экспресс программа случайных
как очищать экран пока неясно и строит медленно
и неясно как задавать цвет линиям переменными
ещё как показывает диспетчер задач
простая программа или массив заполняет память
и только в конце строка очистки памяти спасает
//RELIEF
using System;
using System.Drawing;
using System.Windows.Forms;
class RELIEF
{
Timer timer; // неясно
Form form;
int[,] a = new int[22, 22];
static void Main(string[] args)
{
var p = new RELIEF();
}
public RELIEF()
{
form = new Form() { Text = «RELIEF», Width = 600, Height = 360 };
timer = new Timer() { Interval = 200 }; // неясно
timer.Tick += delegate(object sender, EventArgs e) // неясно
{
Random rand = new Random();
// высоты
for (int x = 1; x <=12; x++)
{
for (int y = 1; y <=12; y++)
a[x,y]=rand.Next(20);
}
// параллели Х
for (int y = 1; y <=12; y++)
{
for (int x = 1; x <=11; x++)
{
var x1 = 50 + 20*x + 20*y;
var y1 = 300 — 20*y — a[x,y];
var x2 = 50 + 20*(x+1) + 20*y;
var y2 = 300 — 20*y — a[x+1,y];
Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
Graphics g = Graphics.FromImage(dblBuffer);
Graphics f = Graphics.FromHwnd(form.Handle);
g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
// f.Clear(Color.Green); // оч.экрана не здесь
f.DrawImage(dblBuffer, new Point(0, 0));
}
}
// параллели У
for (int x = 1; x <=12; x++)
{
for (int y = 1; y <=11; y++)
{
var x1 = 50 + 20*x + 20*y;
var y1 = 300 — 20*y — a[x, y];
var x2 = 50 + 20*(x+1) + 20*y;
var y2 = 300 — 20*(y+1) — a[x, y+1];
Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
Graphics g = Graphics.FromImage(dblBuffer);
Graphics f = Graphics.FromHwnd(form.Handle);
g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
// f.Clear(Color.Green); // оч.экрана не здесь
f.DrawImage(dblBuffer, new Point(0, 0));
}
}
Array.Clear(a, 0, 22); // очищает память
};
timer.Start(); // неясно
Application.Run(form);
}
}
кроме C# маятник есть C# диагонали проще
и больше ни одна программа C# не включилась
чтобы как в basic: 1 файл = 1 программа
поэтому важна моя данная программа 5D рельеф
рисующая хоть что-то предсказуемо
и одновременно изучаем вложенные циклы
и ещё ищу графические программы компилируемые:
1 файл = 1 программа
1 bas = 1 cs = 1 exe
Логарифм Интегралович
случайные файл запись чтение курсор пауза время
Результат искажён шрифтом неравной ширины:
96379693968739885839757333858683485334966947975436757957
* * * * * * * * * * * *
* * * * * *** * * * * * * * * * * * *
* ** * * ** *** * ** * * * * * * * *** * ** ** ****
** **** **** *** * ** * * *** * **** *** ** ** ** **** *
** **** **** ***** **** ***** ** **** **** ******** **** *
** **** **** ***** **** ***** *** *********** ********
********************************************************
********************************************************
********************************************************
0.0468
зато каждый: может + должен = обязан
переводить на разные языки программирования
простые программы соблюдающие:
1bas=1exe & 1cs=1exe
Для обучения используется моя главная программа
// rand file write read cursor pause time
// случайные файл запись чтение курсор пауза время
using System;
using System.Text;
using System.IO;
namespace DAV
{
class Program
{
static void Main(string[] args)
{
var start = DateTime.Now;
Random rand = new Random();
var outFile = new StreamWriter(«dav.txt»);
for (int i = 1; i <= 64; i++)
{
int a = 3+rand.Next(7);
outFile.WriteLine(a);
}
outFile.Close();
var inpFile = new StreamReader(«dav.txt»);
Console.Clear();
for (int i = 1; i <= 64; i++)
{
int b = Convert.ToInt32(inpFile.ReadLine());
Console.SetCursorPosition(i+5,5);
Console.Write(b);
for (int j = 1; j <= b; j++)
{
Console.SetCursorPosition(i+5,16-j);
Console.Write("*");
System.Threading.Thread.Sleep(100);
}
}
inpFile.Close();
var finish = DateTime.Now;
Console.SetCursorPosition(30,17);
Console.Write(finish-start);
Console.ReadKey();
}
}
}
Логарифм Интегралович
Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.
Залогиниться
Зарегистрироваться