Solve Coding Problem with Efficient Wide Boiling Program - Get Help Now!

  • Thread starter chammakh24
  • Start date
  • Tags
    Coding
In summary, a coding problem is a challenge that requires the use of programming languages and techniques to find a solution. To get help with a coding problem, you can seek assistance from online communities, ask a friend or colleague, or consult with a professional programmer. If you are stuck on a coding problem, take a break and come back to it later, or try breaking it down into smaller parts. To improve your coding skills, practice regularly and challenge yourself with new problems, or take online courses and attend workshops. It is completely acceptable to ask for help with a coding problem, as even experienced programmers seek assistance and collaborate with others.
  • #1
chammakh24
2
0
please i need help in this code

program wide_boiling
implicit none
integer :: i, j, m
real :: Trosee, Tbulle, P, RR(100), vf(100),
real :: aT1(3), aT6(3), ap1(3), z(3), ap2(3)
real ::, x(3), T, k(3,10)
m=0
T=518.67
m=m+1
do i = 1,3
k(i,m) = (aT1(i)/(T(m)**2))+(aP1(i)*log(P))+aT6(i)+(aP2(i)/P**2)
k(i,m) = exp(k(i,m))
write(6,*) ¢k(i,m) = ¢,¢ ¢,k(i,m),¢ ¢,¢ i = ¢,¢ ¢,i,' ¢,¢m = ¢,¢ ¢,m
end do
100 continue
j=0
vf =0.25
j=j+1
RR(j) = 0
do i = 1,3
RR(j) = RR(j)+(k(i,j)-1)*z(i)/(1+(k(i,j)-1)*vf(j))
end do
write(6,*) ?RR(j)=?,RR(j),? ?,?j=?,j
if(abs(RR(j)).LE.5E-3) then
do i = 1,3
x(i) = z(i)/(1+(k(i,j)-1)*vf(j))
end do
write(6,*) ?x(i)= ?,x(i),? ?,?i = ?,i,? ?,? j = ?,j
else
dRR(j) = 0
do i = 1,3
dRR(j)=dRR(j)+(z(i)*((k(i,m)-1)**2))/((z(i)*((k(i,m)-1)**2))/(1+(k(i,m)*vf(j)))**2)
end do
write(6,*) ?dRR(j)=?,dRR(j),? ?,?j=?,j
vf(j)=vf(j)-(RR(j)/dRR(j))
write(6,*) ?vf(j)=?,vf(j),? ?,?j=?,j
go to 100
end if
end program wide_boiling
 
Technology news on Phys.org
  • #2


chammakh24 said:
please i need help in this code

program wide_boiling
implicit none
integer :: i, j, m
real :: Trosee, Tbulle, P, RR(100), vf(100),
real :: aT1(3), aT6(3), ap1(3), z(3), ap2(3)
real ::, x(3), T, k(3,10)
m=0
T=518.67
m=m+1
do i = 1,3
k(i,m) = (aT1(i)/(T(m)**2))+(aP1(i)*log(P))+aT6(i)+(aP2(i)/P**2)
k(i,m) = exp(k(i,m))
write(6,*) ¢k(i,m) = ¢,¢ ¢,k(i,m),¢ ¢,¢ i = ¢,¢ ¢,i,' ¢,¢m = ¢,¢ ¢,m
end do
100 continue
j=0
vf =0.25
j=j+1
RR(j) = 0
do i = 1,3
RR(j) = RR(j)+(k(i,j)-1)*z(i)/(1+(k(i,j)-1)*vf(j))
end do
write(6,*) ?RR(j)=?,RR(j),? ?,?j=?,j
if(abs(RR(j)).LE.5E-3) then
do i = 1,3
x(i) = z(i)/(1+(k(i,j)-1)*vf(j))
end do
write(6,*) ?x(i)= ?,x(i),? ?,?i = ?,i,? ?,? j = ?,j
else
dRR(j) = 0
do i = 1,3
dRR(j)=dRR(j)+(z(i)*((k(i,m)-1)**2))/((z(i)*((k(i,m)-1)**2))/(1+(k(i,m)*vf(j)))**2)
end do
write(6,*) ?dRR(j)=?,dRR(j),? ?,?j=?,j
vf(j)=vf(j)-(RR(j)/dRR(j))
write(6,*) ?vf(j)=?,vf(j),? ?,?j=?,j
go to 100
end if
end program wide_boiling

That's a pretty vague question. What's wrong?
 
  • #3


the prb is that when the programe do the go to 100 he dosen't incr again i don't know way
he should calcul the new tempretaure but he dosent
 
  • #4


The way your program is structured, j never exceeds 1. I suggest placing the statement j = 0 before 100 CONTINUE.
 
  • #5
Moderator's note: this discussion has been moved to its own thread.
 

Related to Solve Coding Problem with Efficient Wide Boiling Program - Get Help Now!

1. What is a coding problem?

A coding problem is a challenge or task that requires the use of programming languages and techniques to find a solution. It can range from simple tasks like creating a basic calculator to complex problems like developing algorithms for artificial intelligence.

2. How can I get help with a coding problem?

There are several ways to get help with a coding problem. You can seek assistance from online communities and forums, ask a friend or colleague who is knowledgeable in coding, or consult with a professional programmer or tutor.

3. What should I do if I am stuck on a coding problem?

If you are stuck on a coding problem, take a break and come back to it later with a fresh perspective. You can also try breaking the problem down into smaller parts and tackling them one at a time. Don't be afraid to ask for help from others.

4. How can I improve my coding skills?

To improve your coding skills, practice regularly and challenge yourself with new and complex problems. You can also take online courses or attend coding workshops to learn new techniques and stay updated on the latest trends in programming.

5. Is it okay to ask for help with a coding problem?

Yes, it is absolutely okay to ask for help with a coding problem. Programming can be challenging and it is perfectly normal to seek assistance when needed. It is important to remember that even experienced programmers ask for help and collaborate with others to find solutions.

Similar threads

Fortran Errors in Fortran code for solving Laplace's equation in 3D
    • Programming and Computer Science
Replies
4
Views
1K
Python Thermal lattice Boltzmann model ignoring source term -- python code help please
    • Programming and Computer Science
Replies
1
Views
2K
Derivative of Cost Function with Respect to Output Layer Weight
    • Programming and Computer Science
Replies
31
Views
3K
MHB Is this a Gödel number of a Turing machine?
    • Programming and Computer Science
Replies
3
Views
1K
I'm getting garbage values while reading matrices from a file
    • Programming and Computer Science
Replies
12
Views
2K
Programming succesive trapezoidal integrator
    • Programming and Computer Science
Replies
20
Views
2K
Comp Sci Blackjack program in javascript
    • Engineering and Comp Sci Homework Help
Replies
10
Views
2K
Trying to compile a source code in C
    • Programming and Computer Science
Replies
5
Views
2K
Review C Code: Find & Resolve Issues in Visual Studio & repl.it
    • Programming and Computer Science
2
Replies
47
Views
4K
Fortran Solving Function Problem in Code Exchange
    • Programming and Computer Science
Replies
8
Views
2K

Hot Threads

Recent Insights

Back
Top