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

[stavropoll]

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

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

[koleff]

Ето една програмка от мен за смятане на работно, максимално и т.н. налягане за тръби....

ТУК

[petko10]

Програмка за симулиране на гравитация от мен (запазете я като текстови файл и я пуснете с 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),но не докарвам изобразяването ,ако някой се интересува може да я пусна .

[mita6ki]

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

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

Благодаря