ablemerle1 said:
keep getting missing paenthisis error can someone help this is a program for plotting vertical curves for surveying
Prgm
ClrIO
Local b,f,l,e,s,vpc,vpt,svpc,svpt,c,i
Dialog
Title "Variables"
Request "Backslope",b
Request "Foreslope",f
Request "Length In Stations",l
Request "Elevation at VPI",e
Request "Station at VPI In feet",s
EndDlog
Define c=(f-b)/(2*l)
Define vpc=e+(b*(l/2))
Define svpc=s-((l/2)*100)
Define vpt=e+(f*(l/2))
Define svpt=s+((l/2)*100)
Dialog
Title "Stationing and Elevation"
Text "VPC Elevation="(vpc)
Text "VPC Station="(svpc)
Text "VPT Elevation="(vpt)
Text "VPT Station="(svpt)
Text "Coefficient of Curvature="(c)
EndDlog
Pause
Dialog
Request "Starting Point",sp
Request "Interval of Points on Curve",i
Request "Height 1",h
Request "Height 2",o
EndDlog
Define d=§((2/l)(§(h)+§(o))^2)/(b-f)
Define x=(b*l)/(b-f)
define z=vpc+b(sp+i)+c(sp+i)^2
define w=vpc+b(sp+i2)+c(sp+i2)^2
define v=vpc+b(sp+i3)+c(sp+i3)^2
define u=vpc+b(sp+i4)+c(sp+i4)^2
define t=vpc+b(sp+i5)+c(sp+i5)^2
define p=vpc+b(sp+i6)+c(sp+i6)^2
define r=vpc+b(sp+i7)+c(sp+i7)^2
define q=vpc+b(sp+i8)+c(sp+i8)^2
define m=vpc+b(sp+i9)+c(sp+i9)^2
define n=vpc+b(sp+i10)+c(sp+i10)^2
define max=(vpc+b(ix)+c(ix)^2)
Dialog
Text "Elevation at X="(sp+i),(z)
Text "Elevation at X="(sp+i2),(w)
Text "Elevation at X="(sp+i3),(v)
Text "Elevation at X="(sp+i4),(u)
Text "Elevation at X="(sp+i5),(t)
Text "Elevation at X="(sp+i6),(p)
Text "Elevation at X="(sp+i7),(r)
Text "Elevation at X="(sp+i8),(q)
Text "Elevation at X="(sp+i9),(m)
Text "Elevation at X="(sp+i10),(n)
Text "Elevation at X="(x),(max)
EndDlog
EndPrgm
Prgm
ClrIO
Local b,f,l,e,s,vpc,vpt,svpc,svpt,c,i
Dialog
Title "Variables"
Request "Backslope",b
Request "Foreslope",f
Request "Length In Stations",l
Request "Elevation at VPI",e
Request "Station at VPI In feet",s
EndDlog
Define c=(f-b)/(2*l)
Define vpc=e+(b*(l/2))
Define svpc=s-((l/2)*100)
Define vpt=e+(f*(l/2))
Define svpt=s+((l/2)*100)
Dialog
Title "Stationing and Elevation"
Text "VPC Elevation=",(vpc)
Text "VPC Station=",(svpc)
Text "VPT Elevation=",(vpt)
Text "VPT Station=",(svpt)
Text "Coefficient of Curvature=",(c)
EndDlog
Pause
Dialog
Request "Starting Point",sp
Request "Interval of Points on Curve",i
Request "Height 1",h
Request "Height 2",o
EndDlog
Define d=§((2/l)(§(h)+§(o))^2)/(b-f)
Define x=(b*l)/(b-f)
define z=vpc+b(sp+i)+c(sp+i)^2
define w=vpc+b(sp+i2)+c(sp+i2)^2
define v=vpc+b(sp+i3)+c(sp+i3)^2
define u=vpc+b(sp+i4)+c(sp+i4)^2
define t=vpc+b(sp+i5)+c(sp+i5)^2
define p=vpc+b(sp+i6)+c(sp+i6)^2
define r=vpc+b(sp+i7)+c(sp+i7)^2
define q=vpc+b(sp+i8)+c(sp+i8)^2
define m=vpc+b(sp+i9)+c(sp+i9)^2
define n=vpc+b(sp+i10)+c(sp+i10)^2
define max=(vpc+b(ix)+c(ix)^2)
Dialog
Text "Elevation at X=",(sp+i),(z)
Text "Elevation at X=",(sp+i2),(w)
Text "Elevation at X=",(sp+i3),(v)
Text "Elevation at X=",(sp+i4),(u)
Text "Elevation at X=",(sp+i5),(t)
Text "Elevation at X=",(sp+i6),(p)
Text "Elevation at X=",(sp+i7),(r)
Text "Elevation at X=",(sp+i8),(q)
Text "Elevation at X=",(sp+i9),(m)
Text "Elevation at X=",(sp+i10),(n)
Text "Elevation at X=",(x),(max)
EndDlog
i know nothing about plotting vertical curves for surveying but as far as i can see the only problems i saw were commas i put the corrected program above try it and then tell me if you still have problems