|
org.unizone.0.8534
Instance of TypeScriptInfo
| Node data | Value |
| org.edgescript.TypeScriptInfo.prerequisiteParcels | List{} |
| org.edgescript.TypeScriptInfo.prerequisiteMethods | List{} |
| org.edgescript.TypeScriptInfo.script | /* BaliTimeSeries subclass: #BaliVolumeDiff instanceVariableNames: 'resolution ' classVariableNames: '' poolDictionaries: '' category: 'Bali'! !BaliVolumeDiff methodsFor: 'timeList'! prepareDataFrom: aBaliTime resolution: aResolution | to sourceSteps val index src set data env load last i | self resolution: aResolution. load := self loadResolution: aResolution. (load loadedFrom notNil and: [load loadedFrom <= aBaliTime]) ifTrue: [^nil]. self server user report: 'Preparing ' , self name. self resolution: nil. "clear it all" self resolution: aResolution. load := self loadResolution: aResolution. src := self nextSource. to := (self loadResolution: aResolution) loadedFrom. to isNil ifTrue: [to := BaliTime now addDays: 1]. env := JazzEnvironment new. env localAt: 'cond_history_from' put: aBaliTime. env localAt: 'cond_history_to' put: to. env localAt: 'cond_history_resolution' put: aResolution. set := Set new. src collectStepsDim: #dimHistory environment: env into: set. sourceSteps := set asList. sourceSteps sortWith: [:a :b | a < b]. i := 1. [i < sourceSteps size] whileTrue: [ val := sourceSteps at: i. (val equalTo: (sourceSteps at: i + 1) type: aResolution) ifTrue: [sourceSteps removeAtIndex: i] ifFalse: [i := i + 1]]. index := 1. last := nil. self dataList isEmpty ifFalse: [self dataList removeFirst]. [index <= sourceSteps size] whileTrue: [ env localAt: 'cond_history' put: (sourceSteps at: index). (index > 1 and: [(sourceSteps at: index - 1) equalTo: (sourceSteps at: index) type: #day]) ifFalse: [last := nil]. val := src valueAspect: #volume environment: env. data := BaliTimeData new source: self. data aspects at: #timestamp put: (sourceSteps at: index). (val isNil or: [last isNil]) ifFalse: [data aspects at: #value put: (val < last ifTrue: [nil] ifFalse: [val - last])] ifTrue: [data aspects at: #value put: val]. self dataList add: data. last := val. index := index + 1]. self dataList sort. self server user report: ''. load loadedFrom: aBaliTime.! ! !BaliVolumeDiff methodsFor: 'source'! basicPreferredDisplayType: aBaliDisplay ^#bar! basicValueAspect: anAspect environment: env self resolution: env resolution. ^self valueAspect: anAspect time: env timestamp resolution: env resolution environment: env.! basicValueTypes ^#(#volume)! defaultColor ^#veryLightGray! defaultName self nextSource isNil ifTrue: [^'volume diff']. ^'interval volume of ' , self nextSource name.! ! !BaliVolumeDiff methodsFor: 'aspects'! resolution ^resolution! resolution: newResolution resolution = newResolution ifFalse: [ resolution := newResolution. self dataList: nil. self dataDict: nil. self loads: nil].! ! */ |
| org.edgescript.TypeScriptInfo.defineType | org.unizone.finance.equity.VolumeDiff |
| org.edgescript.TypeScriptInfo.prerequisiteScripts | List{} |