Копипаст

Копипаст | Интеграл побеждает Логарифм: реальность и зазеркалье

Интеграл побеждает Логарифм: реальность и зазеркалье

из моих предыдущих статей создана и распечатана книжка
и новейшая версия разделена на 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

Деление несовпадений подряд и МЫ

Экспорт и отличие Инвестиций и фальшь-инвестиций

 

 

★4
Креативно => Плюс
avatar

_sg_

в полном соответствии с пониманием
темы избегают негатив и недоказуемое

и ещё оригинальные идеи по истории
вида «Наполеон развалил СССР»
даже в иносказательном и в завуалированном виде
в данных статьях отсутствуют
перемешав строки статей

в случайном порядке
о чём тоже рассказывается в статьях

внезапно вновь получается осмысленный текст
и ещё возможно цитировать извлекая из контекста
возрастные ограничения: 0+
т.к. всё позитивно

и возможно удалять
лишние строки и абзацы

и для озвучивания использован спец текст
где числительные перепечатаны буквами
Учим C# зная Basic & Excel & qb64

? почему 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)

дальше нужно изучить условия
создав игрушку “угадай число»
про чё книжка то? напиши аннотацию.
avatar

Kapeks

название статьи и темы 
специально оставляет непонятным:

Интеграл побеждает Логарифм
или наоборот:
Интеграл побеждает Логарифм
за 1/4 часа на qb64 и за 3/4 часа C# создана
программа угадывает число задуманное человеком
эмулируя 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();
        }
    }
}




Учим C# зная Basic & Excel & qb64
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();
        }
    }
}




Програма C# Пифагор и вложенные циклы
строит на экране таблицу умножения

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
Программа сразу создана в C# и изучены:
случайные файл запись чтение курсор пауза время

Результат искажён шрифтом неравной ширины:

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();
}
}
}


Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.

Залогиниться

Зарегистрироваться
....все тэги
UPDONW