- 积分
- 351
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-18
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-1-21 11:04:33
|
显示全部楼层
嗯嗯,谢谢大家的厚爱,我下去后有改进了下这个程序,是他可以直接在终端输入时显示坐标。源代码我把它贴出来。
program main
implicit none
integer::i,j
character*3 judge
real::x=101.87,y=25.73,x1(2),y1(2)
real::w(2,2),Vq(2,2),Vr(2),Vp,g,p
DATA(x1(i),i=1,2)/99.98,102.49/
DATA(y1(j),j=1,2)/25.02,27.52/
333 write(*,*)"Please enter the Value of Q"
do i=1,2
do j=1,2
write(*,"('Vq(',I1,',',I1,')=')")i,j
read(*,*) Vq(i,j)
end do
end do
g=((x-x1(1))**2)+((x-x1(2))**2)
p=((y-y1(1))**2)+((y-y1(2))**2)
do i=1,2
w(1,i)=1-(((x-x1(i))**2)/g)
end do
do j=1,2
w(2,j)=1-(((y-y1(j))**2)/p)
end do
do i=1,2
Vr(i)=Vq(1,i)*w(1,1)+Vq(2,i)*w(1,2)
end do
Vp=Vr(1)*w(2,1)+Vr(2)*w(2,2)
write(*,*) vp
!write(*,*)'是否需要继续?,是请按Y,其他键退出'
! read(*,*) judge
! if(judge=="Y".or.judge=="y") then
! goto 333
!endif
end
其中,被注释的那几句,我仿照了下论坛里面的,我想把它改为循环输入, |
|