»ä¤Î¥²¥¹¥È¥Ö¥Ã¥¯¤Ç¤¹
- 03/12/03 20:24:48
¥³¥á¥ó¥È:
data 40,25
data 60,25
data 35,55
data 0, 0
data 100,100
LET n=2
dim xij(n,n),f(n),e(n),x(n),a(n,n),ii(n,n),linv(n,n)
for i=1 to n
for j=1 to n
read xij(i,j)
next j
next i
for i=1 to n
read f(i)
next i
for i=1 to n
read e(i)
next i
for i=1 to n
read x(i)
next i
for i=1 to n
for j=1 to n
LET a(i,j)=xij(i,j)/x(j)
next j
next i
mat print a
mat ii=idn
mat a=ii-a
mat linv=inv(a)
mat print linv
dim ff(n),ckx(n)
LET f(1)=f(1)+0.2*f(1)
let f(2)=f(2)+0.2*f(2)
mat ff=f+e
mat ckx=linv*ff
mat print ckx
mat x=ckx-x
mat print x
END
11 26 - 03/11/26 21:02:48
¥³¥á¥ó¥È:
basic> help ÇÛÎó¡¡matʸ
·ÐºÑ·×»»¤ÎÎã
»º¶ÈÏ¢´ØʬÀÏ
ÃÏÊý¾åµé¡Ê1991¡Ë»î¸³¤è¤ê
¡¡°Ê²¼¤Î»º¶ÈÏ¢´Øɽ¤¬Í¿¤¨¤é¤ì¤Æ¤¤¤ë¡£º£¡¢A»º¶È¤ÎÍ¢½Ð¤¬£µÃ±°ÌÁý²Ã¤·¤¿¤È¤¡¢A»º¶È¡¢B»º¶È¤Î»º½Ð³Û¤Ï¤É¤ì¤À¤±Áý²Ã¤¹¤ë¤«¡£
| A B | F E | X
--+-------+-------+----
A | 20 40 | 30 10 | 100
B | 60 0 | 20 0 | 80
-----------------------
100 80
¤¿¤À¤·¡¢F¡§ºÇ½ª¼ûÍס¢E¡§Í¢½Ð¡¢X:»º½Ð³Û
A B
1 5 5
2 5 0
3 8 4
4 10 6
5 15 9
************* ¤³¤³¤«¤é¥µ¥ó¥×¥ë¥³¡Ý¥É **************
data 20,40,30,10,100
data 60,0,20,0,80
dim xij(2,2),f(2,1),e(2,1),x(2,1),dat(2,5)
for i=1 to 2
for j=1 to 5
read dat(i,j)
print dat(i,j);
next j
print
next i
for i=1 to 2
for j=1 to 2
LET xij(i,j)=dat(i,j)
next j
next i
for i=1 to 2
LET f(i,1)=dat(i,3)
LET e(i,1)=dat(i,4)
LET x(i,1)=dat(i,5)
next i
for i=1 to 2
for j=1 to 2
LET xij(i,j)=xij(i,j)/x(j,1)
next j
next i
mat print xij
dim ii(2,2),linv(2,2)
mat ii=idn
mat linv=ii-xij
mat linv=inv(linv)
mat print linv
LET e(1,1)=15
dim ff(2,1)
mat ff=f+e
mat x=linv*ff
mat print x
END
·ÐºÑ¤ÎÌäÂê
11 26 - 03/11/26 20:43:22
¥³¥á¥ó¥È:
basic> help ÇÛÎó¡¡matʸ
·ÐºÑ·×»»¤ÎÎã
»º¶ÈÏ¢´ØʬÀÏ
ÃÏÊý¾åµé¡Ê1991¡Ë»î¸³¤è¤ê
¡¡°Ê²¼¤Î»º¶ÈÏ¢´Øɽ¤¬Í¿¤¨¤é¤ì¤Æ¤¤¤ë¡£º£¡¢A»º¶È¤ÎÍ¢½Ð¤¬£µÃ±°ÌÁý²Ã¤·¤¿¤È¤¡¢A»º¶È¡¢B»º¶È¤Î»º½Ð³Û¤Ï¤É¤ì¤À¤±Áý²Ã¤¹¤ë¤«¡£
| A B | F E | X
--+-------+-------+----
A | 20 40 | 30 10 | 100
B | 60 0 | 20 0 | 80
-----------------------
100 80
¤¿¤À¤·¡¢F¡§ºÇ½ª¼ûÍס¢E¡§Í¢½Ð¡¢X:»º½Ð³Û
A B
1 5 5
2 5 0
3 8 4
4 10 6
5 15 9
************* ¤³¤³¤«¤é¥µ¥ó¥×¥ë¥³¡Ý¥É **************
data 20,40,30,10,100
data 60,0,20,0,80
dim xij(2,2),f(2,1),e(2,1),x(2,1),dat(2,5)
for i=1 to 2
for j=1 to 5
read dat(i,j)
print dat(i,j);
next j
print
next i
for i=1 to 2
for j=1 to 2
LET xij(i,j)=dat(i,j)
next j
next i
for i=1 to 2
LET f(i,1)=dat(i,3)
LET e(i,1)=dat(i,4)
LET x(i,1)=dat(i,5)
next i
for i=1 to 2
for j=1 to 2
LET xij(i,j)=xij(i,j)/x(j,1)
next j
next i
mat print xij
dim ii(2,2),linv(2,2)
mat ii=idn
mat linv=ii-xij
mat linv=inv(linv)
mat print linv
LET e(1,1)=15
dim ff(2,1)
mat ff=f+e
mat x=linv*ff
mat print x
END
·ÐºÑ¤ÎÌäÂê
- 03/11/19 21:04:03
¥³¥á¥ó¥È:
option character kanji
randomize
LET m=9250
dim x$(81),y(81)
LET start=0
for i=m to m+80
LET start=start+1
LET x$(start)=chr$(i)
next i
for i=1 to 10
LET y(i)=int(rnd*81)
print x$(y(i))
next i
END
- 03/11/19 20:50:48
¥³¥á¥ó¥È:
LET n=100
dim x(n)
LET s=0
for i=1 to n
LET x(i)=int(rnd*6)+1
LET s=s+x(i)
print i,x(i),s
next I
SET WINDOW 0,100,0,7
for i=1 to n
PLOT LINES:i,x(i);
next I
END
»ä¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ø|
