精品一区二区三区四区高清,精产国品一二三产品区别视频免费 ,avav亚洲天堂网

版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

宇天旅夢(mèng)

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時(shí)
蟲號(hào): 2178982
注冊(cè): 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

9樓: Originally posted by 宇天旅夢(mèng) at 2013-08-25 17:02:44
這個(gè)循環(huán)現(xiàn)在差不多了。
還有幾個(gè)小問題：
1、還是不明白為什么要輸入4個(gè)數(shù)呢？
2、real*8 x1,x2,y1,y2
complex*16 z,x(n),y(n),i,f 中，這里的8和16是什么意思？規(guī)定這樣嗎？
3、open語句中為何要有 ...

我改寫了一下，把x,y的虛數(shù)形式改沒了。

運(yùn)行沒檢查出錯(cuò)，可是運(yùn)行結(jié)果什么都沒有，不知道怎么回事，
代碼是這樣的：
   program xcx
real*8 x(5),y(5),n
integer k
complex*16 i,f
open(10,file='xcx.dat',status='unknown')
i=(0,1)
   do 1 k=1,5
      x(1)=0
   y(1)=0
   do 3 n=0.1,0.5
      x(n+1)=x(n)+0.1
      y(n+1)=y(n)+0.1
3    continue
   read*,x,y
1    continue
   do 2 k=1,5
z=(3*y(k)-1)*(x(k)+2)
   f=((5*x(k)+6*z)*zexp(2*i))/(2*x(k)-z)
write(*,*)x(k),y(k),f
write(*,*)x(k),y(k),f
2    continue
   stop
end

贊一下

回復(fù)此樓

11樓2013-08-25 19:12:58

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢(mèng)

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時(shí)
蟲號(hào): 2178982
注冊(cè): 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

10樓: Originally posted by phy_yo at 2013-08-25 19:05:52
虛數(shù)可以看成兩個(gè)實(shí)數(shù)組成實(shí)部一個(gè) 虛部一個(gè)
real*8 x1,x2,y1,y2 就是定義四個(gè)精度為8位的實(shí)數(shù) 這樣就可以組成兩個(gè)虛數(shù)
complex*16 z,x(n),y(n),i,f 就好理解了就是定義精度為8位的虛數(shù)（實(shí)質(zhì)是兩個(gè)精度為8的 ...

我把x,y的虛數(shù)形式換了，改了點(diǎn)東西，運(yùn)行時(shí)沒顯示錯(cuò)誤，可是運(yùn)行結(jié)果沒有，彈出來的就只有黑框，不知道怎么回事，代碼如下：
   program xcx
real*8 x(5),y(5),n
integer k
complex*16 i,f
open(10,file='xcx.dat',status='unknown')
i=(0,1)
   do 1 k=1,5
      do 3 n=0.1,0.5
      x(k+1)=x(k)+0.1
      y(k+1)=y(k)+0.1
3    continue
   read*,x,y
1    continue
   do 2 k=1,5
z=(3*y(k)-1)*(x(k)+2)
   f=((5*x(k)+6*z)*zexp(2*i))/(2*x(k)-z)
write(*,*)x(k),y(k),f
write(*,*)x(k),y(k),f
2    continue
   stop
end

贊一下

回復(fù)此樓

12樓2013-08-25 19:16:10

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時(shí)
蟲號(hào): 2414907
注冊(cè): 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

12樓: Originally posted by 宇天旅夢(mèng) at 2013-08-25 19:16:10
我把x,y的虛數(shù)形式換了，改了點(diǎn)東西，運(yùn)行時(shí)沒顯示錯(cuò)誤，可是運(yùn)行結(jié)果沒有，彈出來的就只有黑框，不知道怎么回事，代碼如下：
program xcx
real*8 x(5),y(5),n
integer k
complex*16 i,f
open(10,f ...

我把x,y的虛數(shù)形式換了，改了點(diǎn)東西，運(yùn)行時(shí)沒顯示錯(cuò)誤，可是運(yùn)行結(jié)果沒有，彈出來的就只有黑框，不知道怎么回事，代碼如下：
   program xcx
      real*8 x(5),y(5)
      integer k，n
      complex*16 i,f
      open(10,file='xcx.dat',status='unknown')
      i=(0,1)
x(1)=0
y(2)=0
      do 3 n=1,4             !/數(shù)組變量必須是整數(shù)才行你可以想一下為什么這里是4/
         x(n+1)=x(n)+0.1
         y(n+1)=y(n)+0.1
3       continue

   do 2 k=1,5
      z=(3*y(k)-1)*(x(k)+2)
   f=((5*x(k)+6*z)*zexp(2*i))/(2*x(k)-z)
      write(*,*)x(k),y(k),f
      write(10,*)x(k),y(k),f    !/這樣數(shù)據(jù)才會(huì)寫入xcx.dat/
2    continue
   pause
      end

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯(cuò)誤無法獲取數(shù)據(jù)

13樓2013-08-25 19:46:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢(mèng)

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時(shí)
蟲號(hào): 2178982
注冊(cè): 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

13樓: Originally posted by phy_yo at 2013-08-25 19:46:30
我把x,y的虛數(shù)形式換了，改了點(diǎn)東西，運(yùn)行時(shí)沒顯示錯(cuò)誤，可是運(yùn)行結(jié)果沒有，彈出來的就只有黑框，不知道怎么回事，代碼如下：
   program xcx
      real*8 x(5),y(5)
      integer k，n
      comp ...

顯示啦
n=1,4是因?yàn)榍懊嬉呀?jīng)給出了x(1)=0， y(2)=0，而每個(gè)只容納5個(gè)數(shù)。
這里改成了y(2)=0？  原來的y(1)=0不對(duì)嗎？這是任意的嗎？

write(10,*)x(k),y(k),f  這里的10 是什么含義？我見過 write(*,10)x,y,f
                                                                     10  format(......)

現(xiàn)在的輸出結(jié)果怎么才可以弄成x一列，y一列，f一列呢？

DAT文件的打開方式設(shè)置為“origin",卻沒有一點(diǎn)反應(yīng)，這又怎么導(dǎo)入？

贊一下

回復(fù)此樓

14樓2013-08-25 20:12:50

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時(shí)
蟲號(hào): 2414907
注冊(cè): 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

14樓: Originally posted by 宇天旅夢(mèng) at 2013-08-25 20:12:50

顯示啦
n=1,4是因?yàn)榍懊嬉呀?jīng)給出了x(1)=0， y(2)=0，而每個(gè)只容納5個(gè)數(shù)。
這里改成了y(2)=0？原來的y(1)=0不對(duì)嗎？這是任意的嗎？

write(10,*)x(k),y(k),f 這里的10 是什么含義？我見過 write ...

y(2)=0 是我打錯(cuò)了應(yīng)該是y(1)=0 不過在這里不影響這里你即便不寫默認(rèn)的x(1),y(1)都是0 改用其他數(shù)據(jù)的的話要記得定義數(shù)組的首項(xiàng)
format的用法我就不細(xì)說了這里用不到你回頭自己看書吧
dat文件可以用記事本打開就像txt一樣復(fù)制然后粘貼到oringin就行了

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯(cuò)誤無法獲取數(shù)據(jù)

15樓2013-08-25 20:24:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢(mèng)

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時(shí)
蟲號(hào): 2178982
注冊(cè): 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

15樓: Originally posted by phy_yo at 2013-08-25 20:24:55
y(2)=0 是我打錯(cuò)了應(yīng)該是y(1)=0 不過在這里不影響這里你即便不寫默認(rèn)的x(1),y(1)都是0 改用其他數(shù)據(jù)的的話要記得定義數(shù)組的首項(xiàng)
format的用法我就不細(xì)說了這里用不到你回頭自己看書吧
dat文件可以用記事 ...

這一部分明白了，可是自己寫了一個(gè)和這大同小異的程序，出錯(cuò)了。

部分程序如下：
do 2 k=1,100
m=(KY*50+i*SQRT(KX*KX+KY*KY))
   $/(SQRT(KX*KX+KY*KY+KY*KY*50*50)-50*50/(6.582122*10**28))

n=(KY*50-i*SQRT(KX*KX+KY*KY))/
   $(SQRT(KX*KX+KY*KY+KY*KY*50*50)-50*50/(6.582122*10**28))

   w=(KY*50+i*SQRT(1+KY*KY))/
   $(SQRT(KX*KX+KY*KY+KY*KY*50*50))

   z=(KY*50-i*SQRT(1+KY*KY))/
   $(SQRT(KX*KX+KY*KY+KY*KY*50*50))
f=((m-n)*(w-z)*EXP(-i*SQRT(1+KY*KY))/
   $((m-w)*(n-z)*e**(2*i*SQRT(KX*KX+KY*KY)-(m-z)(n-z))
其中關(guān)系是 m(KX,KY) n(KX,KY)    w(KX,KY)  ,  z(KX,KY)

f(m(KX,KY), n(KX,KY), w(KX,KY), z(KX,KY))

給出的錯(cuò)誤是：
--------------------Configuration: Text1 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\DevStudio\MyProjects\Text1.for
C:\Program Files\DevStudio\MyProjects\Text1.for(28) : Error: Syntax error, found '(' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) (/ [ + - . ] /) ** / > // .LT. < ...
   $(((m-w)*(n-z)*exp(2*i*SQRT(KX*KX+KY*KY))-(m-z)(n-z))
----------------------------------------------------^
C:\Program Files\DevStudio\MyProjects\Text1.for(28) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: , )
   $(((m-w)*(n-z)*exp(2*i*SQRT(KX*KX+KY*KY))-(m-z)(n-z))
----------------------------------------------------------^
C:\Program Files\DevStudio\MyProjects\Text1.for(15) : Error: The shapes of the array expressions do not conform. [M]
m=(KY*50+i*SQRT(KX*KX+KY*KY))/
--------^
C:\Program Files\DevStudio\MyProjects\Text1.for(18) : Error: The shapes of the array expressions do not conform. [N]
n=(KY*50-i*SQRT(KX*KX+KY*KY))/
--------^
C:\Program Files\DevStudio\MyProjects\Text1.for(21) : Error: The shapes of the array expressions do not conform. [W]
   w=(KY*50+i*SQRT(1+KY*KY))/
------^
C:\Program Files\DevStudio\MyProjects\Text1.for(24) : Error: The shapes of the array expressions do not conform. [Z]
   z=(KY*50-i*SQRT(1+KY*KY))/
------^
Error executing df.exe.

Text1.exe - 6 error(s), 0 warning(s)

贊一下

回復(fù)此樓

16樓2013-08-25 21:45:24

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時(shí)
蟲號(hào): 2414907
注冊(cè): 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

16樓: Originally posted by 宇天旅夢(mèng) at 2013-08-25 21:45:24
這一部分明白了，可是自己寫了一個(gè)和這大同小異的程序，出錯(cuò)了。

部分程序如下：
do 2 k=1,100
m=(KY*50+i*SQRT(KX*KX+KY*KY))
$/(SQRT(KX*KX+KY*KY+KY*KY*50*50)-50*50/(6.582122*10**28))

...

你這部分有點(diǎn)部分過頭了吧循環(huán)變量k在循環(huán)體內(nèi)根本沒看到你應(yīng)該不是故意刪的……所以你的這些表達(dá)式不會(huì)是直接復(fù)制粘貼的吧……還全是大寫

KX,KY是是自變量要做成數(shù)組形式如KX（20），KY（20）之類的再套入循環(huán)變量就行了你自己慢慢琢磨吧我感覺我前面寫的那些代碼夠你做參考了~或者你可以考慮用matlab 作這種計(jì)算他比fortran方便

贊一下

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

宇天旅夢(mèng)

網(wǎng)絡(luò)錯(cuò)誤無法獲取數(shù)據(jù)

17樓2013-08-25 22:20:40

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢(mèng)

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時(shí)
蟲號(hào): 2178982
注冊(cè): 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

送紅花一朵

引用回帖:

17樓: Originally posted by phy_yo at 2013-08-25 22:20:40
你這部分有點(diǎn)部分過頭了吧循環(huán)變量k在循環(huán)體內(nèi)根本沒看到你應(yīng)該不是故意刪的……所以你的這些表達(dá)式不會(huì)是直接復(fù)制粘貼的吧……還全是大寫

KX,KY是是自變量要做成數(shù)組形式如KX（20），KY（20）之類的 ...

不是粘的啊，我一個(gè)一個(gè)敲進(jìn)去的。。。。。敲了幾次，大小寫混了。。。

我琢磨琢磨吧。

非常非常感謝你的幫助啦，送一朵紅花！

贊一下

回復(fù)此樓

18樓2013-08-25 22:26:39

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主宇天旅夢(mèng) 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 310求調(diào)劑 +4	baibai1314 2026-03-16	4/200	2026-03-22 20:19 by edmund7
[考研] 08工科 320總分求調(diào)劑 +11	梨花珞晚風(fēng) 2026-03-17	11/550	2026-03-22 17:42 by luoyongfeng
[考研] 尋找調(diào)劑 +4	倔強(qiáng)芒? 2026-03-21	4/200	2026-03-22 16:14 by 木托莫露露
[考研] 考研調(diào)劑 +4	來好運(yùn)來來來 2026-03-21	4/200	2026-03-22 12:15 by 星空星月
[考研] 384求調(diào)劑 +3	子系博 2026-03-22	4/200	2026-03-22 11:04 by 搏擊518
[考研] 生物學(xué)一志愿985，分?jǐn)?shù)349求調(diào)劑 +4	zxts12 2026-03-21	7/350	2026-03-22 09:57 by zxts12
[考研] 280求調(diào)劑 +11	咕嚕曉曉 2026-03-18	12/600	2026-03-21 22:40 by ACS Nano——
[考研] 化學(xué)調(diào)劑 +5	yzysaa 2026-03-21	5/250	2026-03-21 22:12 by peike
[考研] 材料求調(diào)劑 +5	@taotao 2026-03-21	5/250	2026-03-21 20:55 by lbsjt
[考研] 316求調(diào)劑 +6	梁茜雯 2026-03-19	6/300	2026-03-21 06:32 by Ecowxq666！
[考研] 材料 336 求調(diào)劑 +3	An@. 2026-03-18	4/200	2026-03-21 01:39 by JourneyLucky
[考研] 華東師范大學(xué)-071000生物學(xué)-293分-求調(diào)劑 +3	研究生何瑤明 2026-03-18	3/150	2026-03-21 01:30 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3	hisfailed 2026-03-19	6/300	2026-03-20 23:43 by hisfailed
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +4	葵梓衛(wèi)隊(duì) 2026-03-18	6/300	2026-03-20 23:02 by JourneyLucky
[考研] 求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +4	@taotao 2026-03-19	4/200	2026-03-20 22:14 by JourneyLucky
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5	Charlieyq 2026-03-19	5/250	2026-03-20 20:35 by JourneyLucky
[考研] 一志愿南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +5	@taotao 2026-03-20	5/250	2026-03-20 20:16 by JourneyLucky
[考研] 材料考研調(diào)劑 +3	xwt。 2026-03-19	3/150	2026-03-19 11:22 by w沐陽w
[考研] 11408 一志愿西電，277分求調(diào)劑 +3	zhouzhen654 2026-03-16	3/150	2026-03-17 07:03 by laoshidan