Help me to porting small code C > Blitzmax

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	SsolidThinkK Betreff: Help me to porting small code C > Blitzmax	Mo, Nov 23, 2009 16:10 Antworten mit Zitat
Hello, Sorry for write in bad english, i want porting this C code in Blitzmax code, help me...please Code: [AUSKLAPPEN] [EINKLAPPEN] double ts[SIZE], A[SIZE], B[SIZE], P[SIZE]; main() { int i, k, p, N, L; double avg, y, sum, psmax; /* read in and scale data points / i = 0; while(scanf("%lf", &y) != EOF) { ts[i] = y/1000.0; i += 1; } / get rid of last point and make sure # of data points is even */ if((i%2) == 0) i -= 2; else i -= 1; L = i; N = L/2; thank you

SsolidThinkK

Betreff: Help me to porting small code C > Blitzmax

Mo, Nov 23, 2009 16:10
Antworten mit Zitat

Hello,

Sorry for write in bad english, Rolling Eyes

i want porting this C code in Blitzmax code, help me...please

Code: [AUSKLAPPEN]

double ts[SIZE], A[SIZE], B[SIZE], P[SIZE];
main()
{
int i, k, p, N, L;
double avg, y, sum, psmax;

/* read in and scale data points */
i = 0;
while(scanf("%lf", &y) != EOF) {
   ts[i] = y/1000.0;
   i += 1;
}
/* get rid of last point and make sure #
   of data points is even */
if((i%2) == 0)
   i -= 2;
else
   i -= 1;
L = i; N = L/2;

thank you

	ComNik	Mo, Nov 23, 2009 21:44 Antworten mit Zitat
BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict Global ts:Double[SIZE], A[SIZE], B[SIZE], P[SIZE] Function Main() 'Not required, just to point out were it would be in c Local i:Int, k:Int, p:Int, N:Int, L:Int Local avg:Double, y:Double, sum:Double, psmax:Double 'Read in and scale data points While Not Eof(stream) 'You have to create a new Stream first, but you can figure out how to do that by youreself ts[i] = y/1000.0 i:+ 1 Wend 'Get rid of last point ... If i Mod 2 = 0 i:- 2 Else i:- 1 L = i N = L/2 ' (Or L Shr 1...) EndIf But i looks like the code is not complete. I highly recommend reading that: http://www.2dgamecreators.com/blitzmax/resources/ So far...
WIP: Vorx.Engine

ComNik

Mo, Nov 23, 2009 21:44
Antworten mit Zitat

BlitzMax: [AUSKLAPPEN]


SuperStrict

Global ts:Double[SIZE], A[SIZE], B[SIZE], P[SIZE]

Function Main() 'Not required, just to point out were it would be in c 
    Local i:Int, k:Int, p:Int, N:Int, L:Int
    Local avg:Double, y:Double, sum:Double, psmax:Double
    
    'Read in and scale data points
    While Not Eof(stream)  'You have to create a new Stream first, but you can figure out how to do that by youreself 
 
         ts[i] = y/1000.0
         i:+ 1
    
     Wend

     'Get rid of last point ...
     If i Mod 2 = 0 
         i:- 2
     Else
        i:- 1
        L = i
        N = L/2 ' (Or L Shr 1...)
    EndIf

But i looks like the code is not complete. I highly recommend reading that: http://www.2dgamecreators.com/blitzmax/resources/

So far...

WIP: Vorx.Engine

	Dreamora	Di, Nov 24, 2009 4:54 Antworten mit Zitat
Please post english questions on the regular Blitz boards (http://www.blitzbasic.com). Postings made here are expected to be in german (not bablefish / google translator german but native german)
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Di, Nov 24, 2009 4:54
Antworten mit Zitat

Please post english questions on the regular Blitz boards (http://www.blitzbasic.com).

Postings made here are expected to be in german (not bablefish / google translator german but native german)

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	SsolidThinkK	Di, Nov 24, 2009 13:29 Antworten mit Zitat
ComNik hat Folgendes geschrieben: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict Global ts:Double[SIZE], A[SIZE], B[SIZE], P[SIZE] Function Main() 'Not required, just to point out were it would be in c Local i:Int, k:Int, p:Int, N:Int, L:Int Local avg:Double, y:Double, sum:Double, psmax:Double 'Read in and scale data points While Not Eof(stream) 'You have to create a new Stream first, but you can figure out how to do that by youreself ts[i] = y/1000.0 i:+ 1 Wend 'Get rid of last point ... If i Mod 2 = 0 i:- 2 Else i:- 1 L = i N = L/2 ' (Or L Shr 1...) EndIf But i looks like the code is not complete. I highly recommend reading that: http://www.2dgamecreators.com/blitzmax/resources/ So far... thank you for your kind reply.

SsolidThinkK

Di, Nov 24, 2009 13:29
Antworten mit Zitat

ComNik hat Folgendes geschrieben:

BlitzMax: [AUSKLAPPEN]


SuperStrict

Global ts:Double[SIZE], A[SIZE], B[SIZE], P[SIZE]

Function Main() 'Not required, just to point out were it would be in c 
    Local i:Int, k:Int, p:Int, N:Int, L:Int
    Local avg:Double, y:Double, sum:Double, psmax:Double
    
    'Read in and scale data points
    While Not Eof(stream)  'You have to create a new Stream first, but you can figure out how to do that by youreself 
 
         ts[i] = y/1000.0
         i:+ 1
    
     Wend

     'Get rid of last point ...
     If i Mod 2 = 0 
         i:- 2
     Else
        i:- 1
        L = i
        N = L/2 ' (Or L Shr 1...)
    EndIf

But i looks like the code is not complete. I highly recommend reading that: http://www.2dgamecreators.com/blitzmax/resources/

So far...

thank you for your kind reply.

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

Nach Oben

BlitzBasic Portal

Help me to porting small code C > Blitzmax

SsolidThinkK

Betreff: Help me to porting small code C > Blitzmax

ComNik

Dreamora

SsolidThinkK