Jump to content

wind shear for the wind farm report


windmueller

Recommended Posts

Dear WAsP community,

there is a windshear value in the report view for each turbine. I would like to see the windshear value for each turbine in the report for a whole windfarm as well. By adding the synthax command from the script for each turbine to the synthax for the whole windfarm it doesn`t work out. Do you have an idea?

Following the synthax for the windshear:
Builder.InsertClosedTableDataHeaderRowElement "wind shear (rotor area)"
...
If Not Atlas Is Nothing Then
If Not ts.PredictedWindClimate Is Nothing Then
' Builder.InsertClosedH2Element ("shear")

Set SourceSite = ReportingAssistant.CastableSelectedMember.AsITurbineSite
Set Project = SourceSite.AsICalculatingHierarchyMember.CalculationByIndex(1).Associates.Project

Set NewMember = Project.AsIHierarchyMember.Insertions.New.ByClassID(ehmcTurbineSite).Execute
NewMember.Description = "Temporary site for vertical profile scripting"

Set TemporarySite = ReportingAssistant.TypeCaster.CastMemberToTurbineSite(NewMember)
Call TemporarySite.AsIWaspSite.Move(SourceSite.AsIWaspSite.Location.x, SourceSite.AsIWaspSite.Location.y)


TemporarySite.HubHeightAgl = ts.HubHeightAgl-0.5*Wtg.RotorDiameter
Set Calculator = ReportingAssistant.TypeCaster.CastMemberToCalculatingHierarchyMember(TemporarySite)
Calculator.CalculationByType(ectPredictedWindClimate).Calculate
Set PredictedClimate1 = TemporarySite.AsIWaspSite.PredictedWindClimate
TemporarySite.AsIHierarchyMember.Remove

Set SourceSite = ReportingAssistant.CastableSelectedMember.AsITurbineSite
Set Project = SourceSite.AsICalculatingHierarchyMember.CalculationByIndex(1).Associates.Project

Set NewMember = Project.AsIHierarchyMember.Insertions.New.ByClassID(ehmcTurbineSite).Execute
NewMember.Description = "Temporary site for vertical profile scripting"

Set TemporarySite = ReportingAssistant.TypeCaster.CastMemberToTurbineSite(NewMember)
Call TemporarySite.AsIWaspSite.Move(SourceSite.AsIWaspSite.Location.x, SourceSite.AsIWaspSite.Location.y)

TemporarySite.HubHeightAgl = ts.HubHeightAgl+0.5*Wtg.RotorDiameter
Set Calculator = ReportingAssistant.TypeCaster.CastMemberToCalculatingHierarchyMember(TemporarySite)
Calculator.CalculationByType(ectPredictedWindClimate).Calculate
Set PredictedClimate2 = TemporarySite.AsIWaspSite.PredictedWindClimate
TemporarySite.AsIHierarchyMember.Remove


End If

I hope you can help me - I will appreciate it.

Cheers,

Windmueller
Link to comment
  • 4 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...