Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Ashish.txt
program modeling real::v1,n1,n2,d2,d1,c,theta,n21,d21,d22,v3,n31,n32,d31,d32 Integer::x,k,h,a,x0,xb,z,L,x1,x2 x1=100 x2= -10 xb=100 z=10 L=20 theta=3*3.14/4 k=40 h=30 a=10 c=3.14/2 x0=0 open(10,file='ashish.txt') do x= -500,500,10 n1= ((x-x0)-a*cos(c))**2 n2=(h-a*sin(c))**2 d1=((x-x0)+a*cos(c))**2 d2=(h+a*sin(c))**2 n21=((x-xb)**2+z**2) d21=(x-(xb+L*cos(theta)))**2 d22=(z+L*sin(theta))**2 n31=(x-x1)**2 n32=z**2 d31= (x-x2)**2 d32=k**2 v1=k*LOG((n1+n2)/(d1+d2)) v2=k*LOG((n21)/d21+d22) v3= k*LOG((n31+n32)/(d31+d32)) write(10,*) x,v1,v2,v3 end do end program
run
|
edit
|
history
|
help
0
Fixed point for several variables
Practice 2(I)
Practice 4
A_04 SIMPSON'S RULE (3(I))
Practice secant
Pivot
Practice 2(I) second time
Practice 1(IV)
Exercise 02
Title