Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 36 ]  На страницу Пред.  1, 2, 3, 4
Автор Сообщение
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 20 апр 2015, 13:52 
Не в сети
Light & Truth
Зарегистрирован:
28 фев 2012, 18:40
Сообщений: 2209
Cпасибо сказано: 433
Спасибо получено:
1045 раз в 768 сообщениях
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Avgust!

Сможете ли переписать программу в спойлере под код YaBasic? Вроде бы просто?
ПРОГРАММА
Dim x1(), y1(), a1(), L1()
Private Sub Комманда1_Click()
Cls
DrawWidth = 2
pi = 4 * Atn(1)
x0 = 350
y0 = 180
bb = 160
ss = 6
n = 0
ReDim x1(num), y1(num), a1(num), L1(num)
xx1 = 0: yy1 = 0: k = 1: j = 1
'*********************************shadow******
For a = 180 To 0 Step -6
For x = -a To a Step 0.5
If KeyAscii = 32 Then End
If k = -1 And j = 1 Then j = -j
an = a / 1.2: xn = x / 1.2
tn = (an ^ 2 - xn ^ 2)
If tn > 0 Then
yn = k * tn ^ 0.5 / 4
qrrn = Abs(255 - (-a + 180) / 1)
qggn = Abs(255 - (-a + 180) / 1)
qbbn = Abs(255 - (-a + 180))
col = RGB(qrrn, qggn, qbbn)
xx = xn
yy = 110 + yn
If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
If ss = 1 Then PSet (xx + 350, yy + 300), col
Else
zzzz = 0
End If
k = -k: j = -j
Next x
n = n + 1
Next a
'**********************************egg********
For a = 180 To 0 Step -3
'For b = 1# To 1.007 Step 0.001
For x = -a To a Step 0.05
If KeyAscii = 32 Then End
If k = -1 And j = 1 Then j = -j
t = (a ^ 2 - x ^ 2)
If t > 0 Then
y = (a - 180) / 2 + k * t ^ 0.5 / (1.6 * 1.0014 ^ x)
qrr = Abs(255 - a / 2.5)
qgg = Abs(255 - a / 1.5)
qbb = Abs(255 - a)
col = RGB(qrr, qgg, qbb)
xx = x
yy = y
If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
If ss = 1 Then PSet (xx + 350, yy + 300), col
Else
zzzz = 0
End If
k = -k: j = -j
Next x
n = n + 1
Next a
End Sub


Должно получиться так

Изображение

У следующей картинки код тот же, но расцветка привязана к Y

Изображение

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 20 апр 2015, 14:46 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
03 апр 2012, 19:13
Сообщений: 13534
Откуда: Москва
Cпасибо сказано: 1290
Спасибо получено:
3616 раз в 3175 сообщениях
Очков репутации: 678

Добавить очки репутацииУменьшить очки репутации
Не смогу наверное. Потому что знаю только язык Yabasic :)

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 04 май 2015, 14:57 
Не в сети
Light & Truth
Зарегистрирован:
28 фев 2012, 18:40
Сообщений: 2209
Cпасибо сказано: 433
Спасибо получено:
1045 раз в 768 сообщениях
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Avgust!

Вам подарок, потом узнаете и удивитесь его мощности. Проверим мою искренность. Считается одним из лучших в мире.
Антивирус Китай бесплатно http://www.360totalsecurity.com/ru/down ... -security/

Если Вам нужен: бесплатный Microsoft Visual Basic 2010 Express на русском языке, то покажу — как быстро скачать и установить. За час управитесь. Там много скрытых препон, знаю как их обойти. С ним, а вернее Microsoft Visual Studio 2010 Express можно творить ЧУДЕСА.
Express — означает сразу учебный и бесплатный.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 06 май 2015, 13:08 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
03 апр 2012, 19:13
Сообщений: 13534
Откуда: Москва
Cпасибо сказано: 1290
Спасибо получено:
3616 раз в 3175 сообщениях
Очков репутации: 678

Добавить очки репутацииУменьшить очки репутации
ALEXIN, у меня времени в обрез, готовлюсь к конференции. Вот небольшое достижение в Yabasic, полученное попутно. Аппроксимация гаммы-функции Г(m,n) . Нигде не дают нормальной аппроксимации, хотя для Г(m) она приводится во многих учебниках. Я плюнул и решил сам составить программу по определению Г(m,n) путем интегрирования методом Симпсона. Лучше всего подошел кубический полином. Текст проги:

m=2.4:n=1.4:d=0.01
k=30/d
for i=1 to k
a=n+(i-1)*d:b=a+d
t=a:f1=exp(-t)*t^(m-1)
t=b:f4=exp(-t)*t^(m-1)
t=(2*a+b)/3:f2=exp(-t)*t^(m-1)
t=(2*b+a)/3:f3=exp(-t)*t^(m-1)
s1=d/8*(f1+3*f2+3*f3+f4)
s=s+s1
next i
print s


Точность - 7 значащих цифр, что для моих исследований с применением Монте-Карло - вполне отлично.

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю Avgust "Спасибо" сказали:
ALEXIN
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 07 май 2015, 14:45 
Не в сети
Light & Truth
Зарегистрирован:
28 фев 2012, 18:40
Сообщений: 2209
Cпасибо сказано: 433
Спасибо получено:
1045 раз в 768 сообщениях
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Avgust!

Через несколько дней покажу очень интересное. Сюрприз.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Вторая жизнь “игрушечного YaBasic ”
СообщениеДобавлено: 07 май 2015, 19:56 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
03 апр 2012, 19:13
Сообщений: 13534
Откуда: Москва
Cпасибо сказано: 1290
Спасибо получено:
3616 раз в 3175 сообщениях
Очков репутации: 678

Добавить очки репутацииУменьшить очки репутации
ALEXIN, а я расскажу и покажу, как аппроксимировал такое: http://s018.radikal.ru/i509/1505/d8/bcbe728680e4.png

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему    На страницу Пред.  1, 2, 3, 4  Страница 4 из 4 [ Сообщений: 36 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Другая жизнь Чумы

в форуме Размышления по поводу и без

ALEXIN

2

658

27 май 2015, 14:20

Вторая производная

в форуме Дифференциальное исчисление

allc

1

263

27 окт 2014, 18:47

Вторая аксиома математики

в форуме Палата №6

Spirin

50

485

05 фев 2024, 08:21

Вторая производная по 2-м переменным

в форуме Дифференциальное исчисление

wowanjke

1

293

29 май 2016, 23:47

Вторая диагональ параллелограмма

в форуме Геометрия

Elwoo

2

676

02 июн 2016, 20:01

Первая и вторая производные

в форуме Пределы числовых последовательностей и функций, Исследования функций

kvadratisharic

0

177

13 дек 2017, 20:40

Неограниченная Вторая Производная

в форуме Дифференциальное исчисление

Torus

2

553

21 сен 2015, 00:25

Вторая производная по y от сложной функции

в форуме Дифференциальное исчисление

DeusEx

0

279

18 май 2014, 18:04

Первая и вторая теорема Абеля

в форуме Ряды

av65470

2

314

01 апр 2020, 11:44

Вторая производная от неявной функции

в форуме Дифференциальное исчисление

351w

7

442

04 ноя 2017, 20:32


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved