Moderators: FourthWorld, heatherlaine, Klaus, kevinmiller
Code: Select all
put url "http://table.finance.yahoo.com/table.csv?s=AAPL" into field 1
replace comma with tab in field 1
set the itemdelimiter to tab
repeat with i= 2 to 1000
put item 7 of line i of field 1 into tClose
put 1000-i, 200-round(tClose) & return before tAdjustedPoints
end repeat
set the points of graphic "Adjusted close" to tAdjustedPoints
show group "Adjusted close"
Code: Select all
set the points of graphic "Adjusted close" to tAdjustedPoints
set the width of graphic "Adjusted close" to the width of graphic "Frame"
set the height of graphic "Adjusted close" to the height of graphic "Frame" *.9
set the bottom of graphic "Adjusted close" to the bottom of graphic "Frame"
set the left of graphic "Adjusted close" to the left of graphic "Frame"Code: Select all
put "" into field "Dates"
repeat with i= 2 to 1000 Step 100
put item 1 of line i of field 1 & " " after field "Dates"
end repeatCode: Select all
on mouseUp
global tClose2
put url "http://table.finance.yahoo.com/table.csv?s=AAPL" into field "MainData"
replace comma with tab in field "MainData"
set the itemdelimiter to tab
put empty into Temp
repeat with i= 2 to 1000
put item 7 of line i of field "MainData" into tClose
put 1000-i, 200-round(tClose) & return before tAdjustedPoints
put round(item 7 of line i of field "MainData",1) &"," after Temp
end repeat
put empty into field "Scale"
put max (Temp) - min (Temp) into theRange
put theRange/10 into theInterval
Put 0 into Inc
repeat with L = 45 down to 1 step -5
add 1 to Inc
put round ((theInterval*Inc),0) + round(min (Temp),0) into line L of field "Scale"
end repeat
put round(max (Temp),0) into line 1 of field "Scale"
put round(min (Temp),0) into line 50 of field "Scale"
set the points of graphic "Adjusted close" to tAdjustedPoints
set the width of graphic "Adjusted close" to the width of graphic "Frame"
set the height of graphic "Adjusted close" to the height of graphic "Frame" *.99
set the bottom of graphic "Adjusted close" to the bottom of graphic "Frame"
set the left of graphic "Adjusted close" to the left of graphic "Frame"
put "" into field "Dates"
repeat with i= 1002 down to 2 Step -100
put item 1 of line i of field "MainData" & " " after field "Dates"
end repeat
end mouseUpYes, than you would not have to set the itemdelimiter to tab since the default itemdelimiter is comma. But in the field the data would be hard to read without the tab.1. I am not sure why the replace comma with tab command is used unless it is just used to make the data display look better inside the field. Am I correct in thinking that the extraction would work just as well on the original commas?
Code: Select all
-- take the first thousand lines of the field, i.e. the most recent quotes,
-- line 1 is the header, hence repeat with i = 2 to 1000
-- you will get the most recent 999 quotes
repeat with i= 2 to 1000
-- item 7 is the "adj close"
put item 7 of line i of field "MainData" into tClose
-- here it gets interesting, the first (1000-1) part is the x (horizontal) position of the point
-- 200 - round(tClose) is the y position of the point
-- 200 - tClose because y on the computer starts at 0 = top, you want it the other way around as
-- in the real world 0 at the bottom, here it is assumed that the max tClose is not greater then 200
-- the syntax is a little unusual but ok, normaly you would write
-- put 1000-1 & "," & 200-round(tClose) & return before tAdjustedPoints
-- mind you putting 'before' is used here, you would preferably use 'after' because putting after is a lot
-- faster in Rev then putting before because of memory shuffling in the case of before, for the graphic it is
-- the same whether it draws from left to right or right to left
-- you could write with the same result
-- put 1000-i, 200-round(tClose) & return after tAdjustedPoints
put 1000-i, 200-round(tClose) & return before tAdjustedPoints
-- Temp is a comma separated list of values to find the min and max value of the quotes
put round(item 7 of line i of field "MainData",1) & "," after Temp
end repeat
-- here you would want to add the following because of the trailing return, in this case it
-- does not hurt but trailing returns can cause trouble in fields and so on.
delete char - 1 of tAdjustedPointsCode: Select all
on mouseUp
put line 2 to 100 of field "MainData" into tData -- you can adjust the number of days you want, 500 or 1000 is feasible but low resolution
set the itemdelimiter to tab
put "" into tCollect
repeat for each line aLine in tData
delete item 7 of aLine
delete item 6 of aLine
delete item 1 of aLine
put aLine & return after tCollect
end repeat
delete char -1 of tCollect --trailing return
put tCollect into tData
-- let us find out the max value of tData
put tData into tDataTemp -- on a copy of the data
replace tab with comma in tDataTemp -- we want a comma separated list of all values
replace return with comma in tDataTemp -- turn lines into comma
put round(max (tDataTemp),0) into tMax -- get the max
put round(min (tDataTemp),0) into tMin -- get the min
put the number of lines of tData * 5 into tColum -- construct the x axis
repeat for each line aLine in tData
put tColum & "," & round (tMax - item 2 of aLine) & return after tTemp
put tColum & "," & round (tMax - item 3 of aLine) & return & return after tTemp
put tColum - 2 & "," & round (tMax - item 1 of aLine) & return after tTemp
put tColum & "," & round (tMax - item 1 of aLine) & return & return after tTemp
put tColum + 2 & "," & round(tMax - item 4 of aLine) & return after tTemp
put tColum & "," & round (tMax - item 4 of aLine) & return & return after tTemp
put tColum - 5 into tColum
end repeat
delete char -1 of tTemp
lock screen
set the points of graphic "Adjusted close" to tTemp
set the width of graphic "Adjusted close" to the width of graphic "Frame"
set the height of graphic "Adjusted close" to the height of graphic "Frame" *.99
set the bottom of graphic "Adjusted close" to the bottom of graphic "Frame"
set the left of graphic "Adjusted close" to the left of graphic "Frame"
put empty into field "Scale"
put tMax into line 1 of field "Scale"
put tMin into line 50 of field "Scale"
put tMax - tMin into theRange
put theRange/10 into theInterval
Put 0 into Inc
repeat with L = 45 down to 1 step -5
add 1 to Inc
put round ((theInterval*Inc),0) + tMin into line L of field "Scale"
end repeat
put tMax into line 1 of field "Scale"
put tMin into line 50 of field "Scale"
put empty into field "dates"
end mouseUpactually you I to avoid working on data within fields. It is slower then working on variables. I think of fields more of temporary repositories or a way to display data. Whenever you do something to the data do it in a variable and then put it back into the field.Is it normal in Revolution to write data to fields or does using a variable work just as well?
Code: Select all
on mouseUp
--set the markerpoints of grc "adjusted close" to makeCross() -- deblock for cross
set the markerpoints of grc "adjusted close" to makeSquareBox()
set the markerfillcolor of grc "adjusted close" to red -- sets the fill of the marker
set the hiliteColor of grc "adjusted close" to blue -- sets the 'line color of the marker
set the markerLIneSize of grc "adjusted close" to 1 -- adjust the linesize of the marker
set the linesize of grc "adjusted close" to 0 -- make the lines invisible
set the markerfilled of grc "adjusted close" to true -- makes the fill of markers visible
end mouseUp
function makeSquareBox
-- you can change the form of the markerpoints here
return \
"-2,-2" & cr &\
"2,-2" & cr &\
"2,2" & cr &\
"-2,2" & cr &\
"-2,-2"
end makeSquareBox
function makeCross
return \
"0,-3" & cr &\
"0,3" & cr & cr &\
"3,0" & cr &\
"-3,0"
end makeCross