Отиди на
Форум "Наука"

Програмки за физика


Recommended Posts

  • Потребител

Случайно намерих тази програмка. Има много като нея, само трябва да се поразрови. За сега това е най-добре работещата такава, която съм виждал:

http://www.download.bg/index.php?cls=progr...lt&id=25252

Link to post
Share on other sites
  • 1 месец по късно...
  • Потребител

Програмка за симулиране на гравитация от мен (запазете я като текстови файл и я пуснете с QBasic 4.5 (не знам дали на 1.1 ще тръгне ,на 4.5 съм я писал) :

================================================================

DECLARE SUB Scales (O5!, m!, n!)

DECLARE SUB DelScales (O5!, m!, n!)

DECLARE SUB dottodot (x!, y!, x1!, y1!, c!)

DECLARE SUB LINE1 (x!, y!, x1!, y1!, xm!, ym!)

DECLARE SUB prenesi (x!, y!, x1!, y1!, x2!, y2!, x3!, y3!)

SCREEN 12

COLOR 2

PRINT "PROGRAMA ZA SIMULIRANE NA GRAVITACIONNA TO4KA"

PRINT ""

2 :

O5 = 20

m = 0

n = 0

CALL Scales(O5, m, n)

PRINT "Vyvedi gravitacionnata to4ka:"

INPUT "x:", xv

IF xv = 6666 THEN GOTO 5

INPUT "y:", yv

IF yv = 6666 THEN GOTO 5

CIRCLE (xv, yv), 5

CIRCLE (xv, yv), 150

PRINT "Vyvedi obekta (vektora mu):"

INPUT "x1:", x1

IF x1 = 6666 THEN GOTO 5

INPUT "y1:", y1

IF y1 = 6666 THEN GOTO 5

INPUT "x2:", x2

IF x2 = 6666 THEN GOTO 5

INPUT "y2:", y2

IF y2 = 6666 THEN GOTO 5

LINE (x1, y1)-(x2, y2)

INPUT "Kolko da prodylji simulaciqta:", o

IF o = 6666 THEN GOTO 5

INPUT "Sila na gravitaciq (0-30):", vv1

IF vv1 = 6666 THEN GOTO 5

CLS

CIRCLE (xv, yv), 5

CIRCLE (xv, yv), 150

LINE (x1, y1)-(x2, y2)

FOR o = 1 TO o

FOR i = 1 TO 122200 'nice

NEXT i

CALL DelScales(O5, x2, y2)

CALL dottodot(xv, yv, x2, y2, v)

v1 = vv1

IF v < 5 THEN o = o - 1

v1 = 6.672 * vv1 ^ 2 / v ^ 2

xv1 = x2 - ((x2 - xv) * v1 / v)

yv1 = y2 - ((y2 - yv) * v1 / v)

CALL prenesi(x2, y2, x1, y1, xv1, yv1, xn, yn)

LINE (x1, y1)-(x2, y2)

CIRCLE (x1, y1), 3

6 :

x1 = x2

y1 = y2

x2 = xn

y2 = yn

CALL Scales(O5, x2, y2)

NEXT o

5 :

INPUT "Za restartirane vyvedi 1:", o

IF o = 1 THEN GOTO 2

SUB DelScales (O5, m, n)

LINE (m, 480)-(m, 480 - (O5 / 5 + 3)), 0, BF

LINE (0, n)-(O5 / 5 + 3, n), 0, BF

END SUB

SUB dottodot (x, y, x1, y1, c)

xn! = x1 - x

yn! = y1 - y

c = SQR(xn ^ 2 + yn ^ 2)

END SUB

SUB LINE1 (x, y, x1, y1, xm, ym)

LINE (x + xm, ABS(480 - (y + ym)))-(x1 + xm, ABS(480 - (y1 + ym)))

END SUB

SUB prenesi (x, y, x1, y1, x2, y2, x3, y3)

x3 = x2 - (x1 - x)

y3 = y2 - (y1 - y)

END SUB

SUB Scales (O5, m, n)

xe = 640 / O5

ye = 480 / O5

O6 = 0

FOR xe = 1 TO xe

O6 = O6 + O5

LINE (O6, 480)-(O6, 480 - O5 / 5)

NEXT xe

O6 = 0

FOR ye = 1 TO ye

O6 = O6 + O5

LINE (0, O6)-(O5 / 5, O6)

NEXT ye

LINE (m, 480)-(m, 480 - (O5 / 5 + 3))

LINE (0, n)-(O5 / 5 + 3, n)

END SUB

===========================================

Примерни стойности в реда в който ги иска - 400,240,150,140,154,138,400,30

имам и 3 измерен варянт ,който е математически верен (т.е. връща координати на точките x,y,z),но не докарвам изобразяването ,ако някой се интересува може да я пусна .

Link to post
Share on other sites
  • 1 year later...
  • Потребител

Здравейте, искам да попитам, дали някой знае програма, която показва точния цвят съответстващ на определена дължина на вълната. Зная че може би това ще е много относително, но все пак ако знаете за нещо подобно кажете.

Имам и един въпрос и не знам дали тук точно им е мястото да го задам. Интересува ме колко горе долу е обхватът на чувствителност в спектъра на повечето фотокамери които използваме (цифров фотоапарати), от колко до колко nm и също дали някой знае приблизително колко nm е дължината на вълната на едно обикновенно дистанционно за ТВ на пример.

Благодаря :)

Link to post
Share on other sites

Напиши мнение

Може да публикувате сега и да се регистрирате по-късно. Ако вече имате акаунт, влезте от ТУК , за да публикувате.

Guest
Напиши ново мнение...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Зареждане...

За нас

Вече 15 години "Форум Наука" е онлайн и поддържа научни, исторически и любопитни дискусии с учени, експерти, любители, учители и ученици.

 

За контакти:

×
×
  • Create New...