VB.NET

[ask] how to make it faster???

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Apr 2008

Posts: 8

Reputation: allopiloping is an unknown quantity at this point

Solved Threads: 0

allopiloping allopiloping is offline

Offline

Newbie Poster

[ask] how to make it faster???

Jun 13th, 2008

dear guys...
i have a code but it runs so slowly
i would it to make it fast...can u help me??

what should i do???

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 Var2 = 0.1
        For y = 0 To jlhPro - 1
            Do
                Var1 = Var2
 
                For z = 0 To thn - 1
                    kata &= data(y, z) & "*" & Var1 & "^" & z + 1 & vbCrLf
                    Res1 += data(y, z) * Var1 ^ (z + 1)
                    kata &= "data = " & data(y, z) & vbCrLf
                    kata &= "res1 = " & Res1 & vbCrLf
                Next
                Res1 -= invest
                kata &= "res1 = " & Res1 & vbCrLf & vbCrLf & vbCrLf
                kata &= "=========================================" & vbCrLf
 
 
                For z = thn To 1 Step -1
                    Res2 += z * data(y, z - 1) * Var1 ^ (z - 1) & vbCrLf
                    kata &= z & "*" & data(y, z - 1) & "*" & Var1 & "^" & (z - 1) & vbCrLf
                    kata &= "res2 = " & Res2 & vbCrLf
                Next
 
                Var2 = Var1 - Res1 / Res2
            Loop Until Math.Abs(Var1 - Var2) < 0.00000001
 
            ir = (1 - Var2) / Var2
            kata &= "irr = " & ir * 100 & "% " & vbCrLf
        Next
 Var2 = 0.1
        For y = 0 To jlhPro - 1
            Do
                Var1 = Var2

                For z = 0 To thn - 1
                    kata &= data(y, z) & "*" & Var1 & "^" & z + 1 & vbCrLf
                    Res1 += data(y, z) * Var1 ^ (z + 1)
                    kata &= "data = " & data(y, z) & vbCrLf
                    kata &= "res1 = " & Res1 & vbCrLf
                Next
                Res1 -= invest
                kata &= "res1 = " & Res1 & vbCrLf & vbCrLf & vbCrLf
                kata &= "=========================================" & vbCrLf


                For z = thn To 1 Step -1
                    Res2 += z * data(y, z - 1) * Var1 ^ (z - 1) & vbCrLf
                    kata &= z & "*" & data(y, z - 1) & "*" & Var1 & "^" & (z - 1) & vbCrLf
                    kata &= "res2 = " & Res2 & vbCrLf
                Next

                Var2 = Var1 - Res1 / Res2
            Loop Until Math.Abs(Var1 - Var2) < 0.00000001

            ir = (1 - Var2) / Var2
            kata &= "irr = " & ir * 100 & "% " & vbCrLf
        Next

•

Join Date: Jun 2007

Posts: 22

Reputation: dadelsen is an unknown quantity at this point

Solved Threads: 5

dadelsen

Offline

Newbie Poster

Re: [ask] how to make it faster???

Jun 14th, 2008

I did not analyze the algorithm. Concerning the types that are used:
If a program needs to perform many append operations on a string, using a stringbuilder object may be faster than using a string object.

See
http://msdn.microsoft.com/en-us/libr...er(VS.80).aspx