Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
VBScript For questions and discussions related to VBScript.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the VBScript section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old December 3rd, 2004, 05:22 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default Script Help :)

I really need some help to make this script here..

www.zere0.1go.dk/vbs-script.jpg

Please help me :/ I really need it :)

Reply With Quote
  #2 (permalink)  
Old December 3rd, 2004, 05:24 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Ups.. its here.. sry

http://zere0.1go.dk/vbs-script.jpg

Reply With Quote
  #3 (permalink)  
Old December 3rd, 2004, 05:29 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Wrong url before.. sry
http://upit.dk/u/vbs script.jpg

Reply With Quote
  #4 (permalink)  
Old December 5th, 2004, 10:28 PM
Friend of Wrox
 
Join Date: Jun 2003
Location: Bangalore, KA, India.
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post
Default

Can you post your code, to let us know how far you have gone on this.

Cheers!

_________________________
- Vijay G
Strive for Perfection
Reply With Quote
  #5 (permalink)  
Old December 6th, 2004, 05:14 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default

not started yet.. its the worse part.. its the start :/

Reply With Quote
  #6 (permalink)  
Old December 6th, 2004, 05:34 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default

please help me to start, man :)


Reply With Quote
  #7 (permalink)  
Old December 7th, 2004, 02:23 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Function motocross(input_column As Range, _
                      output_column As Range, _
                      x As Range)
Dim input_count As Integer
Dim output_count As Integer

input_count = input_column.Rows.Count
output_count = output_column.Rows.Count

If input_count <> output_count Then
    motocross = "Something's messed up! The number of indeces number of output_columnues don't match!"
    GoTo out
End If

ReDim xin(input_count) As Single
ReDim yin(input_count) As Single

Dim c As Integer

For c = 1 To input_count
xin(c) = input_column(c)
yin(c) = output_column(c)
Next c


Dim n As Integer
Dim i, k As Integer
Dim p, qn, sig, un As Single
ReDim u(input_count - 1) As Single
ReDim yt(input_count) As Single

n = input_count
yt(1) = 0
u(1) = 0

For i = 2 To n - 1
    sig = (xin(i) - xin(i - 1)) / (xin(i + 1) - xin(i - 1))
    p = sig * yt(i - 1) + 2
    yt(i) = (sig - 1) / p
    u(i) = (yin(i + 1) - yin(i)) / (xin(i + 1) - xin(i)) - (yin(i) - yin(i - 1)) / (xin(i) - xin(i - 1))
    u(i) = (6 * u(i) / (xin(i + 1) - xin(i - 1)) - sig * u(i - 1)) / p

    Next i

qn = 0
un = 0

yt(n) = (un - qn * u(n - 1)) / (qn * yt(n - 1) + 1)

For k = n - 1 To 1 Step -1
    yt(k) = yt(k) * yt(k + 1) + u(k)
Next k


Dim klo, khi As Integer
Dim h, b, a As Single


klo = 1
khi = n
Do
k = khi - klo
If xin(k) > x Then
khi = k
Else
klo = k
End If
k = khi - klo
Loop While k > 1
h = xin(khi) - xin(klo)
a = (xin(khi) - x) / h
b = (x - xin(klo)) / h
y = a * yin(klo) + b * yin(khi) + ((a ^ 3 - a) * yt(klo) + (b ^ 3 - b) * yt(khi)) * (h ^ 2) / 6


motocross = y

out:
End Function

Reply With Quote




Similar Threads
Thread Thread Starter Forum Replies Last Post
looking for script 7474information Classic ASP Basics 4 October 22nd, 2004 02:48 AM
Call and run CGI script from a PHP script ... how? dbruins BOOK: Beginning PHP4/PHP 5 ISBN: 978-0-7645-4364-7; v5 ISBN: 978-0-7645-5783-5 1 June 10th, 2003 03:09 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.