# FORTRAN Program to Solve Mathematical Problem

Document Sample

```					FORTRAN Program to Solve Mathematical Problem

1. Identify the conic ax2+2hxy+by2+2gx+2fy+c=0 if a, h, b, g, f, and c are given. In
case of pare of straight lines, mention whether they are perpendicular or parallel.
In case hyperbola, mention whether it is rectangular hyperbola.
Solution::

program p6
implicit none
Real::a,b,c,f,g,h,disk
Print*,"Enter the coefficient of x^2"
Print*,"Enter the coefficient of 2xy"
Print*,"Enter the coefficient of y^2"
Print*,"Enter the coefficient of 2x"
Print*,"Enter the coefficient of 2y"
Print*,"Enter the consent term"
disk=a*b*c+2*f*g*h-a*f**2-b*g**2-c*h**2
if(disk==0) then
Print*,"The equation is pair of straight line"
else if(a==b .and. h==0) then
print*,"The equation is a circle"
elseif (a*b-h**2>0) then
print*,"The equation is a Ellipse"
elseif (a*b-h**2<0) then
print*,"The equation is a Hyperbola"
else
print*,"The equation is a Parabola"
end if
end program p6

```
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
 views: 53 posted: 3/28/2012 language: English pages: 2
Description: Identify the conic ax2 2hxy by2 2gx 2fy c=0 if a, h, b, g, f, and c are given. In case of pare of straight lines, mention whether they are perpendicular or parallel. In case hyperbola, mention whether it is rectangular hyperbola.
How are you planning on using Docstoc?