I followed what you said however i still can't get the co-ordinates to import? Please can you look at the attached .dat filehttp://files.engineering.com/getfile.aspx?folder=785fd9ac-b3a9-4281-9014-935bfa650078&file=C1_NEW.dat
This is a version with X between 0 and 1, and Y between -1 and 1 however i am still encountering the same problem. I have attached the new file to this post. Any help would be much appreciated!http://files.engineering.com/getfile.aspx?folder=c5ba4ff9-e046-47c4-b934-f2563621a616&file=C1_NEW.dat
Hi,
I've got some co-ordinates that i want to put into XLFR5 however it doesn't seem to recognise the points apart from the first one. I realise that the shape isn't really an aerofoil and was wondering if this had anything to do with it? I am basically importing co-ordinates from a CAD model...
Hi Doug, when using the following co-ordinates, im not sure the results are correct?
x y
1.037181486 0.001523559
1.035589476 0.001828478
1.030824855 0.002737012
1.022915625 0.00423568
1.011910532 0.006300626
0.997878028 0.008900735
0.980902121 0.011998673
0.961087561...
I get an error for the ReDim seg(ns, 2)
It says expected array but im not sure what that means. I am trying to create a 2D array in which the cells can be read from based on a segment number 'ns' and either columns 1 or 2
This is some new code i have been writing:
Option Explicit
Option Base 1
Dim row, col, i As Long
Dim seg As Integer
Dim np, ns As Long
Dim X, Y, L As Double
Dim SinB, CosB, Sin2B As Double
Function SectionalProperties()
ReDim X(np)
ReDim Y(np)
ReDim seg(ns, 2)
np = 5...
My program is for thin-walled structures instead of enclosed structures and so finding the length has been useful when carrying out other calculations. How would i go about creating a variant array?
Also when going to the next step:
For i = 1 To np
SinB(i) = (Y2(i) - Y1(i)) / L(i)...
These are my declarations:
Option Explicit
Option Base 1
Dim row, col, i As Integer
Dim np As Integer
Dim X1(1 To 1000), Y1(1 To 1000), X2(1 To 1000), Y2(1 To 1000), L(1 To 1000) As Double
This is the code i have written to find the length of each segment, it gives me correct answers which is good:
Function SectionalProperties()
np = 4
For i = 1 To np
row = 22 + (i - 1)
col = 3
X1(i) = ThisWorkbook.Sheets("TWSAOptions").Cells(row, col).Value
Next...
I am still relatively new to VBA so cant understand where your xyrange is being defined? Also what do x1, x2, y1, y2, XD, and YD represent?
My program allows a user to specify the number of co-ordinates to be inputted, the VBA code then reads the co-ordinates from a specific row and column...
I have managed to find Ixx and Iyy from these equations:
http://bridgeautomation.com/blog/?p=130
Any clarification on how to find Ixy and Ixyc would be greatly appreciated!
I am not very familiar with VBA, it is all relatively new to me so i dont understand what much of the coding means.
I am however interested in the formulas/equations you have used in order to determine each of the sectional properties.
For example, how have you made a program that allows...
I have looked at the spreadsheet on this link:
http://newtonexcelbach.wordpress.com/2008/03/25/section-properties-of-defined-shapes-spreadsheet/
I am wanting to do the exact same but not yet able to understand how the shapes have been combined or how the co-ordinate data is being read to find...
Hi everybody,
Im doing a project where i plot co-ordinates of a an arbitrary cross section within Excel and i am able to work out properties such as ixx, iyy etc. I have already seen spreadsheets like this but wondered how it would be possible to create my own? I am new to VBA as well so don't...
